|
|
 | Tilmeldingsformular
Fra : Anker |
Dato : 24-10-02 18:58 |
|
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
| |
 Christian M. Nielsen (24-10-2002)
| Kommentar
Fra : Christian M. Nielsen |
Dato : 24-10-02 19:43 |
|
"Anker" <norup@mail.tdcadsl.dk> wrote in message
news:3db8353d$0$97617$edfadb0f@dspool01.news.tele.dk...
> 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?
her er to radiobuttons 1 for ja og 1 for nej (value kan du sætte til alt
andet en 0 og 1 bil og bus fx.)
Ja<INPUT TYPE="RADIO" NAME="q1" value="1" > Nej<INPUT TYPE="RADIO" NAME="q1"
value="0" >
På den side du vil modtage værdien har du så
strq1 = request.form("q1")
(Husk at tilføje strq1 til din Dim og i objMail.Body )
--
Mvh / Regards
-=< Christian >=-
ICQ: 25308942
http://www.cmnielsen.dk
Hvis man kloner en sørøver, får man så en piratkopi?
| |
Anker Norup (25-10-2002)
| Kommentar
Fra : Anker Norup |
Dato : 25-10-02 09:01 |
|
Jeg prøvede forslaget, men svaret kommer ikke med i mailen (se
nedenstående)?
Mvh. Anker
<%
Dim strName, strFirma, strAdresse, strPostnr, strBy, strEmail, strTelefon,
strq1
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"))
strq1 = Trim(Request.form("q1"))
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 & vbcrlf & strq1
objMail.Send
Response.Write "Tak for din tilmelding!"
Set objMail = Nothing
Else
%>
| |
Jens Gyldenkærne Cla~ (25-10-2002)
| Kommentar
Fra : Jens Gyldenkærne Cla~ |
Dato : 25-10-02 10:50 |
|
Anker Norup skrev:
> Jeg prøvede forslaget, men svaret kommer ikke med i mailen (se
> nedenstående)?
> strq1 = Trim(Request.form("q1"))
Hvis brugeren ikke har valgt en af radioknapperne kommer der ingen
værdi med over. Du kan evt. lade én af knapperne være trykket ned
fra starten:
Ja<INPUT TYPE="RADIO" NAME="q1" value="1" checked>
Nej<INPUT TYPE="RADIO" NAME="q1" value="0" >
Hvis du stadig ikke får noget med i din mail må du vise os noget af
den side der indeholder formen (send evt. et link til selve siden).
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html
| |
|
|