CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

j-roar-h Nybegynder

30. januar 2010 - 18:41 Der er 68 kommentarer og
1 løsning

Design på mail send via aspmail

Hej.

Jeg har en formmail som sender en mail til mig via en hjemmeside. Nu vil jeg gerne have at den sætter det lidt pænt op i den mail man modtager.

Så mit spørgsmål er så. Hvordan sætter man fx billeder ind i mailen.

Min kode ser således ud:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.domæne.dk"
Mailer.AddRecipient "Webmaster NAVN","MAIL.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.BodyText = Request("besked")
Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastetEmne: " & Request("emne") & " Navn: " & Request("navn") & " Email: " & Request("mail") & " Besked: " & Request("besked") & ""
end if
%>

Synes godt om

keysersoze Guru

30. januar 2010 - 20:00 #1

så er du nødt til at sende din mail som html; http://www.serverobjects.com/comp/Aspmail4.htm

Synes godt om

j-roar-h Nybegynder

31. januar 2010 - 12:44 #2

Den side du linker til hjalp mig ikke rigtigt. Ved ikke hvor jeg skal kikke. Så vidt jeg kan se står der ikke noget om html andet end: <html>
<head><title>AspMail HyperLink</title><head>
<body>
<H3>AspMail HyperLink</H3>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Status Update Report"
Mailer.FromAddress = "useyour@isphostnamehere.com"
Mailer.RemoteHost = "your.smtp.server"
Mailer.AddRecipient "Your Recipient", "yourrecipients@addressgoeshere.com"
Mailer.Subject = "AspMail Hyperlink"
Mailer.ContentType = "text/html"
Mailer.BodyText = "<html><body>Here's some <a href=""http://www.serverobjects.com/"">info</a></body></html>"
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail failure. Check mail host server name and tcp/ip connection..."
Response.Write "" & Mailer.Response
end if
%>

Hvilket ikke hjalp.

Kan du beskrive lidt nærmere hvad jeg skal kikke på?

Synes godt om

keysersoze Guru

31. januar 2010 - 12:52 #3

Det er det rigtige punkt du har fat i - den contenttype skal være text/html og din bodytext skal være opbygget som html og det er i html'en du styrer design, billeder etc.

Synes godt om

j-roar-h Nybegynder

31. januar 2010 - 13:22 #4

Jeg har nu prøvet at sætte et billed ind, men uden held.

Min kode ser sådan ud:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.DOMÆNE.dk"
Mailer.AddRecipient "NAVN, MAIL
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.ContentType = "text/html"
Mailer.BodyText = Request("besked") <html><body><img src="Images/RTKlogo_alt.png" width="150" height="40" /></a></body></html>

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastetEmne: " & Request("emne") & " Navn: " & Request("navn") & " Email: " & Request("mail") & " Besked: " & Request("besked") & ""
end if
%>

Synes godt om

keysersoze Guru

31. januar 2010 - 13:55 #5

Som du har sat det op kræver det at modtageren har det angivne billede på den præcise placering - og det er selvfølgelig de færreste der har det. Jeg kan ikke huske om aspmail understøtter muligheden for at vedhæfte ressourcer, men ellers er du tvunget til at angive en direkte placering, altså fx http://www....

Synes godt om

j-roar-h Nybegynder

01. februar 2010 - 14:23 #6

Nu har jeg prøvet at linke til et billed på hjemmesiden, men det hjalp ikke. Jeg får stadig en fejlmeddelse. Min kode ser nu sådan ud:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.DOMÆNE.dk"
Mailer.AddRecipient "NAVN,MAIL"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.ContentType = "text/html"
Mailer.BodyText = Request("besked") <html><body><a href="http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.png"</a><body></html>

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastetEmne: " & Request("emne") & " Navn: " & Request("navn") & " Email: " & Request("mail") & " Besked: " & Request("besked") & ""
end if
%>

Synes godt om

keysersoze Guru

01. februar 2010 - 14:52 #7

det er heller ikke hverken copy/pasted særlig godt eller html-mæssigt på nogen måde korrekt;

Mailer.BodyText = "<html><body><img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.png"" alt="""">" & Request("besked") & "<body></html>"

En anden gang - en fejlmeddelelse vil kunne gøre underværker.

Synes godt om

j-roar-h Nybegynder

01. februar 2010 - 15:12 #8

Tak!

Synes godt om

j-roar-h Nybegynder

01. februar 2010 - 15:15 #9

lige et lille ekstra spørgsmål.

Nu efter jeg har sat den til at sende et billed med, ryger de mail man sender i uønsket post.. Kan man ændre det?

Synes godt om

keysersoze Guru

01. februar 2010 - 15:38 #10

det link jeg tidligere har henvist til forklarer en lille smule om det - men ellers er det ikke de store indput jeg kan komme med desværre.

Synes godt om

j-roar-h Nybegynder

01. februar 2010 - 15:57 #11

okay... der bliver ved at komme problemer.. håber du vil hjælpe..

Jeg har ændret lidt i koden, da jeg gerne ville have den til at skrive alt indholdet som man tastede.

Det giver nogen problemer.

1. Den skriver teksten i mailen på en linje. Har prøvet at sætte et tag ind efter fx. msg = msg & "Navn: " & Request("navn") & vbCrLf "" men uden hæld. (det virker fint, i det "preview" den viser på hjemmesiden)

Hvordan får jeg den til at lave linjeskift?

2. Den skriver den mail man modtager med en anden font. Har prøvet at sætte en <div class> tag ind. Men igen uden hæld.

Hvordan får jeg stylet min tekst i mailen?

3. Når jeg kommer til "preview" siden, visen bunden af siden anderledes, som om det hopper op. prøv at sende en mail på denne side: http://www.ringstedtennisklub.dk/kontakt_webmasteren.html så kan du se hvad jeg mener. Det er kommet efter jeg har sat billed ind.

Min kode ser nu sådan ud:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.ContentType = "text/html"
msg = ""
msg = msg & "<html><div class=""brod""><body><img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.png""><body></html>" & vbCrLf
msg = msg & "Navn: " & Request("navn") & vbCrLf
msg = msg & "Email: " & Request("mail") & vbCrLf
msg = msg & vbCrLf
msg = msg & "Emne: " & Request("emne") & vbCrLf
msg = msg & "Besked: " & Request("besked") & vbCrLf
Mailer.BodyText = msg

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

Synes godt om

keysersoze Guru

01. februar 2010 - 16:10 #12

1: når du sender en html-mail skal du bruge html til linjeskift - dvs .

2: du kan sagtens styre fonts etc, men klienten skal selvfølgelig have den font du vil have vist. at indsætte en class er for så vidt ikke forkert, men så skal du også medsende style-definitionen for din class.

3: du skal medsende valid html for at have en nogenlunde chance for at få dit indhold vist korrekt.

Synes godt om

j-roar-h Nybegynder

01. februar 2010 - 16:30 #13

Tak.

Det hjalp mig dog ikke det store.

1. Jeg har nu sat " " ind, så min kode nu ser sådan ud:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.ContentType = "text/html"
msg = ""
msg = msg & "<html><div class=""brod""><body><img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.png""><body></html>" & vbCrLf
msg = msg & "Navn: " & Request("navn") " " & vbCrLf
msg = msg & "Email: " & Request("mail") " " & vbCrLf
msg = msg & vbCrLf
msg = msg & "Emne: " & Request("emne") " " & vbCrLf
msg = msg & "Besked: " & Request("besked") " " & vbCrLf
Mailer.BodyText = msg

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

Det hjalp ikke, da jeg nu får en fejl meddelse.

2. Fonten er en almindelig verdana. Det med at medsende style-definitionen ved jeg ikke hvordan jeg gør. Det er en style, som jeg har lagt i samme dokument, så den ikke linker til et css dokument.

3. Det ved jeg ikke hvordan jeg gør.

Er lidt "dum" til asp, men serveren tillader ikke php, så er tvunget til at bruge asp. Håber ikke jeg spørger for meget.

Synes godt om

keysersoze Guru

01. februar 2010 - 16:49 #14

Igen - du kommer ikke med nogle fejlmeldinger, det gør det ikke ligefrem lettere.

1: msg = msg & "Navn: " & Request("navn") & " "

2: hvor kan jeg i ovenstående kode se din style?

3: du kan læse og lære om html på fx html.dk og w3schools.com.

Synes godt om

j-roar-h Nybegynder

01. februar 2010 - 17:00 #15

Det er fordi der ikke kommer nogen fejlmeldinger.. Eller der kommer en "siden kan ikke vises" side.

1. Det virker.. tak.

2. Min style ligger ikke i inde i asp scriptet, men unden for. Hele min kode til siden ser sådan ud:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=ISO-8859-1">
<title>Ringsted Tennisklub</title>

<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<link href="CSS/style.css" rel="stylesheet" type="text/css" />
<style type="text/css">

</style>
</head>

<body>
<div class="Flashtop">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','980','height','250','src','Flash/Flashtop','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','Flash/Flashtop' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="980" height="250">
<param name="movie" value="Flash/Flashtop.swf" />
<param name="quality" value="high" />
<embed src="Flash/Flashtop.swf" quality="high" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="980" height="250"></embed>
</object>
</noscript></div>
<div class="Side">
<div id="Left">
<h1>KLUBINFO</h1>

<a href="praktiske_oplysninger.html">Praktiske oplysninger</a> 
<a href="klubblad.html">Klubblad</a> 
<a href="aktiviteter.html">Aktiviteter</a> 
<a href="find_os.html">Her finder du os</a> 
<a href="Kontingent.html">Kontigentsatser</a> 
<a href="malsaetninger_visioner.html">Målsætninger og visioner</a> 
<a href="vintertennis.html">Vintertennis</a> 
<a href="bestyrelse.html">Bestyrelsen</a> 
<a href="generalforsamling.html">Generalforsamling</a> 
<a href="sponsormuligheder.html">Sponsormuligheder</a> 
<a href="sponsorer.html">Sponsorer</a> 
<a href="klubdragt.html">Klubdragt</a> 
<a href="links.html">Links</a> 
<a href="nyhedsbrev.html">Nyhedsbrev</a> 
<a href="kontakt.html">Kontakt klubben</a> 
<a href="kontakt_webmasteren.html">Kontakt Webmaster</a>

</div>
<div id="middle_stor">
<h2>Kontakt</h2>
<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.ContentType = "text/html"
msg = ""
msg = msg & "<html><div class=""brod""><body><img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.png""><body></html>" & " " & vbCrLf
msg = msg & "Emne: " & Request("emne") & " " & vbCrLf
msg = msg & "Navn: " & Request("navn") & " " & vbCrLf
msg = msg & "Email: " & Request("mail") & " " & vbCrLf
msg = msg & vbCrLf
msg = msg & "Besked: " & Request("besked") & " " & vbCrLf
Mailer.BodyText = msg

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

</div>
</div>
<div class="Buttom">
<div align="right" id="Buttom_Left">
<div class="Buttom_Left">Ringsted Tennisklub 2010</div>
</div>
<div id="content_right"><a href="kontakt.html">Kontakt</a></div>
<div id="soeg"><a href="search.html"><img src="Images/Search.png" width="18" height="18" /></a></div>
</div>
</body>
</html>

Er det rigtigt forstået, at hvis man tjekker sin html kode på w3schools.com, og man ikke får nogen fejl. Er den så en valid html?

Synes godt om

keysersoze Guru

01. februar 2010 - 22:09 #16

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl". så får vi formentlig en brugbar fejlbesked.

hvis du ikke sender style-definitionen med til klienten, enten i form af en reference til en css-fil eller som inline kode, aner den ikke hvordan klassen ser ud - klienten får jo kun det du skriver i din BodyText og ikke alt det uden omkring.

hvis html-validatoren fra w3 ikke melder fejl tilbage er det valid kode - men den kode du sender i din BodyText er langt fra valid og det er den vi taler om, ikke alt det andet html du har på din kontaktformular.

Synes godt om

j-roar-h Nybegynder

02. februar 2010 - 12:02 #17

jeg har nu sat et link til en css fil ind. Men den retter ikke fonten i mailen. Jeg ville gerne have det bare var en inline kode, men jeg ved ikke hvordan jeg laver sådan en. Jeg har prøvet at kopierer den kode fra css stylen, men det virkede selvfølgelig ikke.

For mig at se, kan jeg ikke se nogen fejl i den html i BodyText. Og når man kører koden igennem w3 validatoren, er det fejl som < og /. men steder hvor det skal være.

Synes godt om

j-roar-h Nybegynder

02. februar 2010 - 12:10 #18

min kode ser sådan ud:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.ContentType = "text/html"
msg = ""
msg = msg & "Hej " & Request("navn") & " " & " " & vbCrLf
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt." & " " & " "
msg = msg & "Du har indtastet følgende:" & " " & " "
msg = msg & "Email: " & " " & Request("mail") & " " & " " & vbCrLf
msg = msg & vbCrLf
msg = msg & "Besked: " & " " & Request("besked") & " " & " " & vbCrLf
msg = msg & "<html><link href=""http://www.ringstedtennisklub.dk/CSS/formmail.css""><div class=""brod""><body>Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif""><body></html>" & " " & vbCrLf
Mailer.BodyText = msg

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

Synes godt om

keysersoze Guru

02. februar 2010 - 12:14 #19

omkring valid html så et par eksempler;

- du må ikke have tekst for <html>
- <link> skal ligge inde i <body>
- du kan ikke have en <div> inde i <html>

Så længe validatoren siger der er fejl så er der fejl og så kan du ikke forvente at indholdet vises som ønsket.

Synes godt om

j-roar-h Nybegynder

02. februar 2010 - 13:34 #20

okay... hvordan gør man så med det css?

Jeg har nu rykket <link> ind i body, men det virker stadig ikk.

Synes godt om

keysersoze Guru

02. februar 2010 - 13:49 #21

hvis ikke du har gjort mere end det er din kode stadig ikke valid og så skal du rette op på det - hvis den kode du udsender i mailen kan validere på http://validator.w3.org/ og det stadig ikke virker så send din nye kode. Husk samtidig på, at når du henviser til en ekstern kilde fremfor inline css skal klienten acceptere at vise dette (men kan billedet ses kan css'en også).

Synes godt om

j-roar-h Nybegynder

02. februar 2010 - 14:13 #22

kan jeg ikke få dig til at rette min kode, så den bliver valid?

Jeg forstår intet af det de skriver på w3, og jeg har rettet de fejl du beskrev ovenfor. Dog ved jeg ikke hvad du mener med at der ikke må være tekst foran <html>, for jeg mener ikke jeg har noget tekst foran.

Hvordan laver jeg en inline css? Billedet vises heller ikke før man har klikket på "hent fil" i outlokk. Kan man også lave billedet inline?

Synes godt om

j-roar-h Nybegynder

02. februar 2010 - 14:14 #23

min html kode ser sådan ud:

<html><body class=""brod""><body><link href=""http://www.ringstedtennisklub.dk/CSS/formmail.css"">Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif""><body></html>

og hele koden sådan:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = Request ("mail")
Mailer.ContentType = "text/html"
msg = ""
msg = msg & "Hej " & Request("navn") & " " & " " & vbCrLf
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt." & " " & " "
msg = msg & "Du har indtastet følgende:" & " " & " "
msg = msg & "Email: " & " " & Request("mail") & " " & " " & vbCrLf
msg = msg & vbCrLf
msg = msg & "Besked: " & " " & Request("besked") & " " & " " & vbCrLf
msg = msg & "<html><body class=""brod""><body><link href=""http://www.ringstedtennisklub.dk/CSS/formmail.css"">Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif""><body></html>" & " " & vbCrLf
Mailer.BodyText = msg

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

Synes godt om

keysersoze Guru

02. februar 2010 - 14:29 #24

jeg hjælper gerne - men udfører ikke arbejde.

Du har ikke rettet hvad jeg skrev, du har fx stadig masser af tekst før dit <html> tag. Ydermere har du nu fx hele 3 <body> tags hvor kun 1 er tilladt - til gengæld gav jeg en lille skrivefejl da din css skal ligge i <head> og ikke <body>.

Hvis du ikke har styr på din html og ikke kan/vil sætte dig rigtig ind i det (jeg tror ikke på det med ikke kan, for det er meget hurtigt at give op efter under 1 dag) så simplificer det ved at går ud fra en artikel på en side jeg tidligere linkede til, http://www.html.dk/tutorials/html/lektion4.asp, og arbejd med inline css (fx <div style="font-weight: bold;">tekst</div>).

Synes godt om

j-roar-h Nybegynder

04. februar 2010 - 19:39 #25

jeg har nu prøvet at arbejde lidt med det, men det virker ikke som det skal. Beskeden sender ikke de oplysninger jeg har tastet ind, med i mailen. CSS Stylen virker heller ikke i mailen, men om det skyldes samme problem som det med den ikke skriver teksten, ved jeg ikke..

derudover har jeg opdaget, at man kan sende mailen, uden at udfylde formularen på hjemmesiden.

Min kode ser nu sådan ud:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request.Form("emne")
Mailer.FromName = Request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = Request.Form("mail")
Mailer.ContentType = "text/html"
msg = "<html><body>"
msg = msg & "Hej " & Request.Form("navn") & " "
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt. "
msg = msg & "Du har indtastet følgende: "
msg = msg & "Email: " & Request.Form("mail") & " "
msg = msg & "Besked: " & Request.Form("besked") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

Synes godt om

keysersoze Guru

04. februar 2010 - 22:39 #26

stylen virker ikke fordi du har skrevet den forkert;

msg = "<html><body>"

Du kan ikke benytte request.form når du sender med get - så skal du benytte request.querystring. Det er dog en rigtig dårlig idé at sende en formular med get da du både risikerer problemer med specielttegn og at få klippet noget af beskeden pga begrænsning på længden i url'en. løser du det kommer din tekst med.

validering af hvornår formen må sendes kan dels ske i javascript (se fx http://activedeveloper.dk/articles/210/) og dels ske i din ASP fx;

if request.form("noget") = "" Then
Response.write "udfyldt formen"
end if

Synes godt om

j-roar-h Nybegynder

05. februar 2010 - 09:16 #27

jeg tror jeg har fået css stylen til at virke. Kan ikke helt se det, da jeg kun har min hotmail her.

Jeg kunne som du har skrevet, se at den ikke skriver specieltegn. Hvordan ændre man den, så den ikke sender med get, og dermed sender specieltegn med?

Fik også det problem, at den skrev FalseJacob i første linje i mailen. Det der skriver denne linje er: Mailer.FromName = Request("navn")

Det med validering kan jeg ikke få til at virke. Jeg har prøvet at sætte din kode ind, og rettet den til så den passer. Det virkede dog ikke. Jeg ved det har virket tidligere, men ved ikke hvad jeg har fået ændret.

min kode er nu sådan:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","roar_1990@hotmail.com"
Mailer.Subject = Request.QueryString("emne")
Mailer.FromName = Request.QueryString("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = Request.QueryString("mail")
Mailer.ContentType = "text/html"
msg = msg = "<html><body>"
msg = msg & "Hej " & Request.QueryString("navn") & " "
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt. "
msg = msg & "Du har indtastet følgende: "
msg = msg & "Email: " & Request.QueryString("mail") & " "
msg = msg & "Besked: " & Request.QueryString("besked") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
end if

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

Synes godt om

keysersoze Guru

05. februar 2010 - 13:24 #28

Problemer med specieltegn kan både skyldes character encoding problemer, se fx http://web-dev.dk/post/2009/07/Korrekt-visning-af-specielle-karakterer---character-encoding.aspx, og som nævnt hvordan du sender din form og som nævnt vil jeg mene du sætte den til post i stedet for get og så tilsvarende benytte request.form.

mht valideringen hjælper det ikke at sætte den efter eller midt inde i mail-koden - det skal selvfølgelig sættes før og samtidig skal du håndtere fejlen, se fx http://www.html.dk/tutorials/asp/lektion6.asp

Synes godt om

j-roar-h Nybegynder

05. februar 2010 - 18:59 #29

Jeg har nu ændret det fra get til post. Så vidt jeg ved, er det kun på den side man udfylder formularen man skal ændre til post, er dette korrekt forstået?

Jeg støder bare på problemer igen.

Den skriver nu igen ikke noget i den mail man modtager. Jeg har ellers rettet det til request.Form, som jeg mener jeg skal.

Jeg kan også stadig sende en mail uden at udfylde felterne i formularen. Den skriver godt nok besked som man har indtastet i Response.write "Skriv venligst dit navn", men den sender mailen alligevel.

Min kode er nu sådan:

<%

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
end if

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt. "
msg = msg & "Du har indtastet følgende: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Besked: " & request.Form("besked") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg

Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

Jeg har tidligere lavet en formular, som er noget mere simpel, og der virker det med at man ikke kan sende uden at have udfyldt fint. Koden til den er:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.Subject = Request("emne")
msg = msg & request("nyhed") & vbcrlf
msg = msg & request("navn") & vbcrlf
msg = msg & request("mail") & vbcrlf
Mailer.BodyText = msg

Mailer.CharSet = 2

if Request("tilmeld") = "on" then
Mailer.BodyText = "Jeg vil gerne tilmeldes nyhedsbrevet."
end if
if Request("afmeld") = "on" then
Mailer.BodyText = "Jeg vil gerne frameldes nyhedsbrevet."
end if

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastetEmne: " & Request("emne") & " " & replace(msg,vbcrlf," ") & ""
end if
%>

Synes godt om

keysersoze Guru

05. februar 2010 - 20:23 #30

jeg kan ud fra ovenstående ikke sige hvorfor mailen er tom - du må prøve at debugge lidt selv, fx udskrive din msg-variabel eller andre små hjælpe-tekster i stedet for at sende mailen.

som der mere eller mindre bliver forklaret i tutorialen - og som du også selv gør i dit andet eksempel - mangler du at håndtere om fejlen sker eller ej, det er derfor det hedder if/else og ikke bare if.

Synes godt om

j-roar-h Nybegynder

06. februar 2010 - 12:46 #31

Jeg forstår ikke hvad du mener med "debugge lidt selv, fx udskrive din msg-variabel eller andre små hjælpe-tekster i stedet for at sende mailen"

Jeg ved ikke hvordan man gør dette. Som tidligere skrevet, kender jeg ikke noget til asp. Bruger det kun fordi serveren ikke kører php.

Jeg har nu rettet det med validering, så det hedder:

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
Response.Write "Emailen blev sendt"
end if

Dette ændrede dog ikke noget, og den skriver stadig "skriv venligst dit navn" men sender stadig mailen uden indhold.

Jeg ved ikke rigtigt hvad jeg skal gøre for at komme videre herfra?

Synes godt om

keysersoze Guru

06. februar 2010 - 13:51 #32

ASP og PHP minder ufattelig meget om hinanden - så kan du PHP kan du nå rigtig langt i PHP også hvis bare du kan se bort fra syntaksforskellene.

Response.Write "test1"
Response.Write msg
Response.Write "test2"
response.end

Så har du debugget.

du bliver nødt til at pakke selve mail-afsendelsen ind i din if-else - ellers fortsætter koden jo bare alligevel.

Synes godt om

j-roar-h Nybegynder

13. februar 2010 - 12:44 #33

jeg har stadig ikke fået det til at virke... Har nu fået den til at sende mailen med indholdet, men jeg kan stadig ikke få den til at validere.

Jeg har som du skrev ovenover pakket selve mail afsendelsen ind i min if-else - det tror jeg i hvert fald.

min kode ser nu sådan ud:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
Mailer.FromName = request.Form("navn")
else
Response.Write "Emailen blev sendt"
end if
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt. "
msg = msg & "Du har indtastet følgende: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Besked: " & request.Form("besked") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg

Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
%>

Jeg syntes det ser mærkeligt ud, der hvor jeg har pakket den ind. Men sådan forstår jeg det.

Synes godt om

keysersoze Guru

13. februar 2010 - 12:59 #34

ASP er ikke anderledes end PHP hvad angår if-sætninger - eller særlig meget andet programmeringsmæssigt for den sags skyld - så det lyder som en meget dårlig undskyldning at PHP ikke er installeret på serveren. Bortset fra lidt syntaksmæssige forskelle sker der præcis det samme - så læs koden som var det en artikel i stedet for at begrave dig selv i frustrationer over at det er ASP.

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har kontaktet webmasteren, som vil besvare din besked hurtigst muligt. "
msg = msg & "Du har indtastet følgende: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Besked: " & request.Form("besked") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
end if

Synes godt om

j-roar-h Nybegynder

13. februar 2010 - 18:30 #35

jeg tror du har misforstået mig. Jeg kan ikke php, men jeg har en gammel formmail i php liggende, som jeg kunne have brugt.

Nå men tak for koden, den virkede perfekt.

En lille "sidste" spørgsmål.

Hvordan jeg jeg den til at sende en mail til den der sender beskeden i formmailen?

Den sender fint en mail til den jeg har sat som modtager, og hvis jeg sætter AddCC og AddBCC ind sender den også fint til dem.

Jeg har sat ReplyTo til at være request.Form("mail"). Den sender dog ikke nogen mail til den mail man indtaster?

Du kan se i kommentaren ovenfor hvordan det ser ud.

Synes godt om

keysersoze Guru

13. februar 2010 - 18:40 #36

ReplyTo bliver vel kun brugt når - som navnet antyder - modtagerne besvarer mailen.

Synes godt om

j-roar-h Nybegynder

13. februar 2010 - 18:50 #37

Ja. Men det jeg vil have den til, er at den skal sende en mail til ham der udfylder formularen. Og jeg ved ikke hvordan jeg sætter den til det. Har prøvet med Mailer.AddRecipient = request.Form "(mail)" dog uden held.

Synes godt om

keysersoze Guru

13. februar 2010 - 19:02 #38

hvorfor ikke benytte addcc eller addbcc som du kan få til at fungere?

Synes godt om

j-roar-h Nybegynder

13. februar 2010 - 19:10 #39

det har jeg skal prøvet, men får denne fejl:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Mailer.AddCC'

/webmaster.asp, line 79

Og linje 79 er:

Mailer.AddCC = request.Form("mail")

Synes godt om

keysersoze Guru

13. februar 2010 - 19:24 #40

Tag et kig i dokumentationen.

Synes godt om

j-roar-h Nybegynder

14. februar 2010 - 12:20 #41

hvis det er denne du mener: http://www.serverobjects.com/comp/Aspmail4.htm

Har jeg kikket, men så vidt jeg kan se, står der ikke noget om det.

Synes godt om

keysersoze Guru

14. februar 2010 - 14:02 #42

"What's the syntax for adding multiple recipients?"

Synes godt om

j-roar-h Nybegynder

15. februar 2010 - 12:20 #43

ja... men jeg skal jo ikke selv skrive navn og mail.. en skal hente det fra formen. Altså request.Form("mail")

Synes godt om

keysersoze Guru

15. februar 2010 - 12:31 #44

ja, men du skal jo stadig overholde syntaksen - og den indeholder ikke noget = tegn.

Synes godt om

j-roar-h Nybegynder

16. februar 2010 - 11:05 #45

Jeg har nu prøvet både med og uden = tegn, men intet af det virker..

Synes godt om

keysersoze Guru

16. februar 2010 - 11:21 #46

Hvis syntaksen overholdes og du får fejl må det skyldes ""AddCC or AddBCC doesn't work" - is this a bug with AspMail?"

Synes godt om

j-roar-h Nybegynder

24. april 2010 - 19:26 #47

Hej..

Jeg er stødt på endnu et problem.

Jeg skal lave en ny formmail, som skal have nogen forskellige valgmuligheder i dropdown menu.

Jeg har denne form i mit html dokument:

<form method="post" action="klubdragt.asp">
<div id="leftside">
<table border="1" cellpadding="5" cellspacing="0" bordercolor="#999999" title="">
<tr>
<td bgcolor="#A9A9A9"> </td>
<td colspan="2">Senior</td>
<td colspan="2">Junior</td>
</tr>
<tr>
<td valign="middle">Del</td>
<td valign="middle">Vejl. pris
<label> </label>
</td>
<td valign="middle">Klub pris </td>
<td valign="middle">Vejl. pris </td>
<td valign="middle">Klub pris</td>
</tr>
<tr>
<td>Dragt</td>
<td>799 kr

</td>
<td>599 kr
<label>
<select name="Senior dragt" size="1" id="select">
<option>Vælg str</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select>
</label>
</td>
<td>699 kr

</td>
<td>499 kr
<select name="Junior dragt" size="1" id="str4">
<option>Vælg str</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select>
</td>
</tr>
<tr>
<td>Polo </td>
<td>349 kr

</td>
<td>269 kr


<select name="Senior polo" size="1" id="str">
<option>Vælg str</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select>
</td>
<td>299 kr

</td>
<td class="style2">219 kr
<select name="Junior polo" size="1" id="str5">
<option>Vælg str</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select>
</td>
</tr>
<tr>
<td class="style2">Shorts </td>
<td class="style2">299 kr

</td>
<td class="style2">219 kr
<select name="Senior shorts" size="1" id="str2">
<option>Vælg str</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select>
</td>
<td class="style2">249 kr

</td>
<td class="style2">189 kr
<select name="Junior shorts" size="1" id="str6">
<option>Vælg str</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select>
</td>
</tr>
<tr>
<td class="style2">Nederdel </td>
<td class="style2">349 kr

</td>
<td class="style2">269 kr
<select name="Senior nederdel" size="1" id="str3">
<option>Vælg str</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select>
</td>
<td class="style2">349 kr

</td>
<td class="style2">269 kr
<select name="Junior nederdel" size="1" id="str7">
<option>Vælg str</option>
<option value="S">S</option>
<option value="M">M</option>
<option value="L">L</option>
<option value="XL">XL</option>
<option value="XXL">XXL</option>
</select>
</td>
</tr>
</table>

<label for="f1">Emne</label>
 
<input name="emne" type="text" id="f1" value="Klubdragt" size="32" readonly="readonly" />
 
 
<label for="f2">Navn</label>
 
<input id="f2" type="text" name="navn" size="32" />
 
 
<label for="f3">Telefon: 
</label>
<input id="f3" type="text" name="telefon" size="32" />
 
 
<label for="f4">Email</label>
 
<input id="f4" type="text" name="mail" size="32" />
 
 
<input id="subm" type="submit" value="Send" />
<input type="reset" value="Slet" />

</div>
<div id="rightside"> <div id="gallery">
<ul>
<li></li>
<li><a href="photos/Klubdragt_09-10_high.jpg" title="Klargøringsdag 2010"> <img src="photos/Klubdragt_09-101.jpg" width="133" height="200"/> </a> </li>
</ul>
</div></div>

<label for="subject">Subject</label>
<input type="text" id="subject" name="important" size="32" />
 
 

</form>

Og min asp kode ser sådan ud:

<%

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
if request.form("mail") = "" Then
Response.write "Skriv venligst din email"
else
if request.form("telefon") = "" Then
Response.write "Skriv venligst dit telefonnummer"
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Thomas Nielsen","roar@c.dk"
Mailer.AddBcc "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har valgt at købe disse ting: " & request.Form("Senior klubdragt") & " "
msg = msg & "Du har indtastet følgende oplysninger: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Tlf.: " & request.Form("tlf") & " "
msg = msg & "Tøj: " & request.Form("tøj") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
end if
end if
end if
%>

Problemet er, at den ikke skriver de oplysninger jeg har indtastet i den mail man får.

Kan du hjælpe med dette?

Synes godt om

keysersoze Guru

24. april 2010 - 19:35 #48

Der er jo ingen steder du forsøger at skrive dem ind i mailen? De skal sættes ind på samme måde som du har indsat fx email og tlf.

Synes godt om

j-roar-h Nybegynder

25. april 2010 - 17:14 #49

Okay,

Jeg har nu prøvet at sætte nogen få ind. Det virker også, så den skriver noget i mailen.

Problemet er bare, at den kun skriver størrelsen på tøjet, og ikke om det er junior og hvad det er for et produkt de har valgt.

Jeg vil gerne have den til at skrive fx. "Senior dragt str. M".

Min asp ser nu sådan ud:

<%

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
if request.form("mail") = "" Then
Response.write "Skriv venligst din email"
else
if request.form("telefon") = "" Then
Response.write "Skriv venligst dit telefonnummer"
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Thomas Nielsen","roar@c.dk"
Mailer.AddBcc "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har valgt at købe disse ting: " & request.Form("Senior klubdragt") & " "
msg = msg & "Du har indtastet følgende oplysninger: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Tlf.: " & request.Form("telefon") & " "
msg = msg & "Tøj: " & request.Form("Senior dragt") & request.Form("Junior dragt") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
end if
end if
end if
%>

Html filen har jeg ikke rettet i.

Synes godt om

keysersoze Guru

25. april 2010 - 17:21 #50

så vidt jeg kan se requester du også kun 2 ekstra formfelter, men der er jo mange flere på din html-side.

Synes godt om

j-roar-h Nybegynder

25. april 2010 - 18:29 #51

Ja, det ved jeg, men hvordan får jeg den til at skrive som jeg skrev i forrige kommentar?

Det er med vilje jeg ikke har skrevet dem alle ind, da jeg lige ville vide det andet først.

Synes godt om

keysersoze Guru

25. april 2010 - 18:37 #52

jeg er forvirret - du kan jo sagtens skrive både email og tlf ud i et ønsket format, hvad er anderledes i forhold til hvad du søger nu?

Synes godt om

j-roar-h Nybegynder

25. april 2010 - 21:41 #53

Ja. Problemet er at jeg ikke kan få den til at skrive alle de oplysninger jeg ønsker. Den skriver kun størrelsen på det stykke tøj man har valgt. Jeg vil også have den til at skrive hvad m n har valgt og om det er junior eller senior.

Synes godt om

keysersoze Guru

25. april 2010 - 23:15 #54

Det er vel netop også det du opnår så snart du har opsat alle dine requests?

Synes godt om

j-roar-h Nybegynder

26. april 2010 - 20:43 #55

Nej. Det får jeg ikke..

Jeg har nu prøvet at sætte alle requests ind.

<%

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
if request.form("mail") = "" Then
Response.write "Skriv venligst din email"
else
if request.form("telefon") = "" Then
Response.write "Skriv venligst dit telefonnummer"
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Thomas Nielsen","roar@c.dk"
Mailer.AddBcc "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har indtastet følgende oplysninger: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Tlf.: " & request.Form("telefon") & " "
msg = msg & "Tøj: " & request.Form("Senior dragt") & request.Form("Junior dragt") & request.Form("Senior polo") & request.Form("Junior polo") & request.Form("Senior shorts") & request.Form("Junior shorts") & request.Form("Senior nederdel") & request.Form("Junior nederdel") &" "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
end if
end if
end if
%>

Ud af det får jeg teksten: VÃ¦lg strVÃ¦lg strXLVÃ¦lg strVÃ¦lg strLVÃ¦lg strVÃ¦lg str

Det gjorde så at der opstod et andet problem. Nemlig at den ikke skriver æ,ø og å.

Jeg bruger charset=ISO-8859-1 i både asp og html, så ved ikke hvorfor den ikke skriver det korrekt.

Hvordan får jeg den til at skrive som jeg beskriver i #49?

Synes godt om

keysersoze Guru

26. april 2010 - 21:10 #56

du udskriver jo også bare værdierne i en lang køre - skal de sættes læsbart op skal du sætte dem op på samme måde som fx email og tlf med html mellemrum, strong, br osv. Hverken html eller asp er jo så magisk at de skriver ting du ikke giver besked om.

msg = msg & "Senior dragt: " & request.Form("Senior dragt") & " "

Hvis du har dobbelttjekket at du benytter korrekt charset overalt må du smide værdierne gennem en server.htmlencode så du slipper for at spekulere mere over det, men som en start kunne du jo prøve at udskrive msg-variablen til skærmen i stedet for at sende som en mail og se hvordan det står dér og evt også sætte en meta content-type på.

Synes godt om

j-roar-h Nybegynder

27. april 2010 - 18:31 #57

Okay. Tak. Det hjalp gevaldigt.

Men kan man ikke få den til kun at skrive det man har valgt?

Synes godt om

keysersoze Guru

27. april 2010 - 18:39 #58

du kan pakke det ind i nogle if-sætninger på samme måde som du gør først i din kode.

Synes godt om

j-roar-h Nybegynder

27. april 2010 - 19:53 #59

Det har jeg nu prøvet. Men uden held. For det første vil det slet ikke virke, da den ikke kommer frem med en fejl meddelse som den skal.

Og hvis man sætter if-sætninger ind på dem alle, skal man så ikke vælge en i hver menu?

Det jeg gerne vil have er at den kun skriver de ting i mailen som man har valgt. Fx hvis man har valgt "Senior dragt", så skal den kun skrive "Senior dragt" i mailen, og ikke alle de andre produkter man kan vælge.

Forstår du hvad jeg mener?

Min kode ser sådan ud nu.

<%

if request.form("Junior polo") = "" Then
Response.write "Vælg venligst noget tøj"
else
if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
if request.form("mail") = "" Then
Response.write "Skriv venligst din email"
else
if request.form("telefon") = "" Then
Response.write "Skriv venligst dit telefonnummer"
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Thomas Nielsen","roar@c.dk"
Mailer.AddBcc "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har indtastet følgende oplysninger: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Tlf.: " & request.Form("telefon") & " "
msg = msg & "Du har valgt nedenstående tøj: "
msg = msg & "Senior dragt: " & request.Form("Senior dragt") & " "
msg = msg & "Junior dragt: " & request.Form("Junior dragt") & " "
msg = msg & "Senior polo: " & request.Form("Senior polo") & " "
msg = msg & "Junior polo: " & request.Form("Junior polo") & " "
msg = msg & "Senior shorts: " & request.Form("Senior shorts") & " "
msg = msg & "Junior shorts: " & request.Form("Junior shorts") & " "
msg = msg & "Senior nederdel: " & request.Form("Senior nederdel") & " "
msg = msg & "Junior nederdel: " & request.Form("Junior nederdel") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
end if
end if
end if
end if
%>

Synes godt om

keysersoze Guru

27. april 2010 - 20:23 #60

jeg forstår fint hvad du mener - og det er også præcis det du vil løse ved at sætte dine if-sætninger rigtigt op... og du skal selvfølgelig ikke sætte det op i toppen som en betingelse men derimod inde i det område hvor du opbygger din msg-variabel så du kun udbygger variablen såfremt if-sætningen er opfyldt.

Synes godt om

j-roar-h Nybegynder

01. maj 2010 - 13:41 #61

Jeg forstår ikke helt det med at sætte dem op inden i msg variable. Jeg har gjort som der står nedenunder. Kan jeg ikke få dig til at lave et eksempel?

<%

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
if request.form("mail") = "" Then
Response.write "Skriv venligst din email"
else
if request.form("telefon") = "" Then
Response.write "Skriv venligst dit telefonnummer"
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Thomas Nielsen","roar@c.dk"
Mailer.AddBcc "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har indtastet følgende oplysninger: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Tlf.: " & request.Form("telefon") & " "
msg = msg & "Du har valgt nedenstående tøj: "
msg = msg & "Senior dragt: " & request.Form("Senior dragt") & " "
msg = msg & "Junior dragt: " & request.Form("Junior dragt") & " "
msg = msg &
if request.form("Junior polo") = "" Then
Response.write "Vælg venligst noget tøj"
else
"Senior polo: " & request.Form("Senior polo") & " "
msg = msg & "Junior polo: " & request.Form("Junior polo") & " "
msg = msg & "Senior shorts: " & request.Form("Senior shorts") & " "
msg = msg & "Junior shorts: " & request.Form("Junior shorts") & " "
msg = msg & "Senior nederdel: " & request.Form("Senior nederdel") & " "
msg = msg & "Junior nederdel: " & request.Form("Junior nederdel") & " "
msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
end if
end if
end if
%>

Synes godt om

keysersoze Guru

01. maj 2010 - 15:02 #62

if request.form("Junior polo") <> "" Then
msg = msg & "noget...."
end if

Synes godt om

j-roar-h Nybegynder

01. maj 2010 - 15:20 #63

Jeg har nu prøvet at sætte den kode ind du skrev.

Så min kode ser nu sådan ud:

<%

if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
if request.form("mail") = "" Then
Response.write "Skriv venligst din email"
else
if request.form("telefon") = "" Then
Response.write "Skriv venligst dit telefonnummer"
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Thomas Nielsen","roar@c.dk"
Mailer.AddBcc "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = request.Form("emne")
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"

msg = "<html><body>"
msg = msg & "Hej " & request.Form("navn") & " "
msg = msg & "Du har indtastet følgende oplysninger: "
msg = msg & "Email: " & request.Form("mail") & " "
msg = msg & "Tlf.: " & request.Form("telefon") & " "
msg = msg & "Du har valgt nedenstående tøj: "

if request.form("Senior dragt") <> "" Then
msg = msg & "Senior dragt: " & request.Form("Senior dragt") & " "
end if

if request.form("Junior dragt") <> "" Then
msg = msg & "Junior dragt: " & request.Form("Junior dragt") & " "
end if

if request.form("Senior polo") <> "" Then
msg = msg & "Senior polo: " & request.Form("Senior polo") & " "
end if

if request.form("Junior polo") <> "" Then
msg = msg & "Junior polo: " & request.Form("Junior polo") & " "
end if

if request.form("Senior shorts") <> "" Then
msg = msg & "Senior shorts: " & request.Form("Senior shorts") & " "
end if

if request.form("Junior shorts") <> "" Then
msg = msg & "Junior shorts: " & request.Form("Junior shorts") & " "
end if

if request.form("Senior nederdel") <> "" Then
msg = msg & "Senior nederdel: " & request.Form("Senior nederdel") & " "
end if

if request.form("Junior nederdel") <> "" Then
msg = msg & "Junior nederdel: " & request.Form("Junior nederdel") & " "
end if

msg = msg & "Med venlig hilsen Ringsted Tennisklub <img src=""http://www.ringstedtennisklub.dk/Images/RTKlogo_alt.gif"">"
msg = msg & "</body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2

if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: "
Response.Write Mailer.Response
else
Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
Response.Write "Følgende er blevet indtastet" & replace(msg,vbCrLf," ") & ""
end if
end if
end if
end if
%>

Det ændrede bare ikke at den skriver alle tingene, den skriver stadig alle tingene, og så den størrelse ud fra det man har valgt.

Mailen jeg modtager ser sådan ud:

Hej jacob Hansen

Du har indtastet følgende oplysninger:

Email:
webmaster@ringstedtennisklub.dk

Tlf.:
Her skriver den telefonnr.

Du har valgt nedenstående tøj:

Senior dragt:
Vælg str

Junior dragt:
Vælg str

Senior polo:
Vælg str

Junior polo:
M

Senior shorts:
Vælg str

Junior shorts:
Vælg str

Senior nederdel:
Vælg str

Junior nederdel:
Vælg str

Med venlig hilsen
Ringsted Tennisklub

Jeg vil gerne have en den ikke skriver fx
"Senior shorts:
Vælg str

Men at den kun skriver det man har valgt. I det her tilfælde junior polo

Synes godt om

keysersoze Guru

01. maj 2010 - 15:31 #64

sæt value="" på dine ikke valgt options

Synes godt om

j-roar-h Nybegynder

01. maj 2010 - 15:49 #65

Det forstår jeg ikke. Er det i asp koden jeg skal sætte dette ind? Eller er det i html? Og hvor i dokumentet?

Man vælger jo først option når man vælger produkt.

Eller er jeg helt væk?

Synes godt om

keysersoze Guru

01. maj 2010 - 15:58 #66

ja...

<option value="">Vælg str</option>

Synes godt om

j-roar-h Nybegynder

01. maj 2010 - 16:15 #67

Jeg har nu indsat denne kode på alle dropdown menuerne i html dokumentet.

Men jeg får stadig en mail der ser sådan ud:

Hej Jacob Hansen

Du har indtastet følgende oplysninger:

Email:
roar_1990@hotmail.com

Tlf.:
28707650

Du har valgt nedenstående tøj:

Senior dragt:
Vælg str

Junior dragt:
Vælg str

Senior polo:
Vælg str

Junior polo:
S

Senior shorts:
Vælg str

Junior shorts:
Vælg str

Senior nederdel:
Vælg str

Junior nederdel:
Vælg str

Med venlig hilsen
Ringsted Tennisklub

Synes godt om

keysersoze Guru

01. maj 2010 - 16:27 #68

Så må du lave betingelsen om til

<> "Vælg str"

Synes godt om

j-roar-h Nybegynder

01. maj 2010 - 16:45 #69

Sådan det virkede...Tusind tak for hjælpen

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

30/08

Test af Tesla Model 3 Performance: Aldrig har man fået så meget sportsvogn til så få penge

30/08

Dell vil frasælge cybersikkerhedsfirma efter flere forfejlede forsøg

30/08

Danmarks to store it-styrelser skal reduceres markant: Skal samlet sige farvel til hver fjerde stilling i de kommende år

30/08

Nørgaards kæmpe-comeback: ENDELIG får vi et ministerium for civilforsvar - og et ægte digitaliseringsministerium UDEN ligestilling

30/08

Du kan score op til 1,7 millioner kroner på at finde en enkelt sårbarhed

30/08

Nu når en af Danmarks helt store GDPR-retssager til vejs ende: Står over for bødekrav på 800.000 kroner

30/08

CrowdStrike med første regnskab efter globalt nedbrud: Har kostet selskabet 800 millioner kroner

30/08

Regeringen vil reducere bevilling til Datatilsynet med millioner: Skal bruge væsentligt færre penge på løn og tilsyn

30/08

Selskab med 40.000 ansatte dropper VMware efter ballade - vælger anden løsning

30/08

Politiet klar til at skrive kontrakt på nyt dansk fingeraftrykssystem frem til 2035: Leverandøren er fundet - nu mangler blot pengene

30/08

Utopi eller dystopi? Derfor er kunstig intelligens et tveægget sværd

Vis flere artikler

IT-JOB

Teknologisk Institut

Full Stack .Net udvikler til den grønne omstilling

BAADER Logistix A/S

Ambitiøs .NET Softwareudvikler med fokus på Blazor

ATP

Machine Learning Engineer til udvikling af ML-baserede systemer i Fraud Detection & AI Solutions

Udviklings- og Forenklingsstyrelsen

Business Analyst til samfundskritiske IT-projekter

Domstolsstyrelsen

Service Delivery Manager til styring af stor it-driftkontrakt

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 14:35	eftersøger pinnacle14 ultimate Af Janove i Foto & video
I dag 13:45	Langsom forbindelse gennem ethernetkabel Af Esben i LAN/WAN
I går 23:37	Poe strøm Af lurup i LAN/WAN
I går 14:46	GIF-EDITOR Af snestrup2000 i Billedbehandling
I går 14:03	Logge ind Af Bob i PC