/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Tilmeldingsformular
Fra : Anker


Dato : 24-10-02 19:56

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





 
 
Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408837
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste