Hej NG,
jeg har lige lavet en simpel tilmeldingsformular som nedenstående. Jeg har
også lavet to radiobuttons med afkrydsning af Ja/Nej, men hvordan får jeg
resultatet af denne afkrydsning med i mailen?
Mvh. Anker
Dim strName, strFirma, strAdresse, strPostnr, strBy, strEmail, strTelefon,
strQuery
strName = Trim(Request.Form("ClientName"))
strFirma = Trim(Request.Form("ClientFirma"))
strAdresse = Trim(Request.Form("ClientAdresse"))
strPostnr = Trim(Request.Form("ClientPostnr"))
strBy = Trim(Request.Form("ClientBy"))
strEmail = Trim(Request.Form("ClientEmail"))
strTelefon = Trim(Request.Form("ClientTelefon"))
If (strName <> "" And strFirma <> "" And strAdresse <> "" And strPostnr <>
"" And strBy <> "" And strEmail <> "" And strTelefon <>"") Then
Dim objMail, aRecipients
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "bm@rf.dk"
objMail.To = strEmail
objMail.Subject = "Tilmelding for " & strName
aRecipients = Array("bm@rf.dk", _
"bm@rf.dk")
objMail.BCC = Join(aRecipients, ";")
objMail.Body = strName & vbcrlf & strFirma & vbcrlf & strAdresse & vbcrlf
& strBy & vbcrlf & strEmail & vbcrlf & strTelefon
objMail.Send
Response.Write "Tak for din tilmelding!"
Set objMail = Nothing
|