27. februar 2003 - 23:55
Der er
40 kommentarer og 1 løsning
Kontaktformular
Hej.. jeg har lavet en kontakt.asp der ser sådan ud: <html> <head> <title>Links</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> <body style="MARGIN: 0px" marginheight="0" marginwidth="0" bgcolor="#CCCCCC"> <table align="center" border="1" width="100%" height="685" cellpadding="5" cellspacing="0"> <tr> <td valign="top" width="100%" height="10" bordercolor="#000000"> <b> <div align="center" "class="h2"> <h1>Kontakt os</h1><br><br> <form METHOD="post" ACTION="kontakt.asp?mode=send" align="left"> <table border="0" width="100%"> <tr> <td width="100%" align="center"><% if mode = "" then %> <% mode = request("mode") %> </td> </tr> <tr> <td width="100%" align="center"> <font size="2" face="Arial"><% end if %> <% if mode = "send" then %> <% if request.form("fra_navn") = "" OR request.form("besked") ="" then response.write("Du mangler at indtaste en oplysning") else Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.nielsenmand.dk" JMail.Sender = "spam@nielsenmand.dk" JMail.Sendername = Request.Form("fra_navn") JMail.Subject = "Nielsenmand.dk_formular" JMail.AddRecipient "patrick@nielsenmand.dk" JMail.Body = Request.Form("besked") JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Silent = True If JMail.Execute then %> Tak for din Mail. <% Else %> Mailen er desværre ikke afsendt prøv igen. <% End If %> <% end if %> <% end if %> </font></td> </tr> <tr> <td width="100%" align="center"> <font size="2" face="Arial"> <div align="left"> <p>Dit Navn:<br> <input type="text" name="fra_navn" size="20"><br> Telefonnummer:<br> <input type="text" name="tlf" size="20"><br> E-mail:<br> <input type="text" name="mail" size="20"><br> Spørgsmål/kommentar:<br> <textarea cols="35" rows="6" name="besked"></textarea><br> <br> <input TYPE="submit" VALUE="Send E-mail"></font></td> </tr> </table> </form> </div> </b></td> </tr> </table> Hvordan får jeg den til at sende beskeden, navnet, telefonnr og emailen inde i den email der bliver sendt til mig? Altså at der er: [besked] Så her skal der stå [fra] [navn] [nummer] [mail] Hvordan klarer jeg den gutter??
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
28. februar 2003 - 00:14
#1
Start med at få noget system i koden! <!-- kontakt.asp --> <% mode = request.querystring("vis") if mode = "sendmail" then <% if mode = "send" then if request.form("fra_navn") = "" OR request.form("besked") = "" then response.write("Du mangler at indtaste en oplysning") else tekst = Request.Form("besked") & vbcrlf & "Fra: " & request.form("fra_navn") & vbcrlf & "Tlf: "& request.form("tlf") & vbcrlf & "Email: " & request.form("mail") Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.nielsenmand.dk" JMail.Sender = "spam@nielsenmand.dk" JMail.Sendername = Request.Form("fra_navn") JMail.Subject = "Nielsenmand.dk_formular" JMail.AddRecipient "patrick@nielsenmand.dk" JMail.Body = tekst JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Silent = True JMail.Execute If JMail.Execute then response.write "Tak for din Mail." Else response.write !Mailen er desværre ikke afsendt prøv igen.! end if else %> <html> <head> <title>Links</title> <link rel="stylesheet" type="text/css" href="style.css"> </head> <body style="MARGIN: 0px" marginheight="0" marginwidth="0" bgcolor="#CCCCCC"> <form METHOD="post" ACTION="kontakt.asp?mode=send" align="left" name="frmMail"> <table align="center" border="1" width="100%" height="685" cellpadding="5" cellspacing="0"> <tr> <td valign="top" width="100%" height="10" bordercolor="#000000"> <b> <div align="center" "class="h2"> <h1>Kontakt os</h1><br><br> <table border="0" width="100%"> <tr> <td width="100%" align="center"> <div align="left"><font size="2" face="Arial"><p>Dit Navn:<br> <input type="text" name="fra_navn" size="20"><br> Telefonnummer:<br> <input type="text" name="tlf" size="20"><br> E-mail:<br> <input type="text" name="mail" size="20"><br> Spørgsmål/kommentar:<br> <textarea cols="35" rows="6" name="besked"></textarea><br> <br> <input TYPE="button" onclic="afsend();" VALUE="Send E-mail"></font></td> </tr> </table> </div> </b></td> </tr> </table> </form> <script language="javascript"> function afsend() { document.frmMail.submit(); } </script> </body> </html> <% end if %>
28. februar 2003 - 00:15
#2
sorry - vis skal erstattes med mode mode = request.querystring("vis") laves om til mode = request.querystring("mode")
28. februar 2003 - 00:16
#3
Fejlmeddelse... ?? Microsoft VBScript compilation error '800a0400' Expected statement /kontakt.asp, line 5 <% if mode = "send" then ^
28. februar 2003 - 00:18
#4
<% if mode = "send" then erstattes med if mode = "send" then
28. februar 2003 - 00:18
#5
Samme fejlmeddelse selvom jeg har ændret det...
28. februar 2003 - 00:19
#6
Microsoft VBScript compilation error '800a03ea' Syntax error /kontakt.asp, line 32 response.write !Mailen er desværre ikke afsendt prøv igen.! ---------------^ Nu fejlmeddelse
28. februar 2003 - 00:19
#7
sorry (er ved at blive træt!!!) onclic="afsend();" erstattes med onclick="afsend();"
28. februar 2003 - 00:20
#8
response.write("Du mangler at indtaste en oplysning") erstat response.write "Du mangler at indtaste en oplysning"
28. februar 2003 - 00:21
#9
Samme fejlmeddelse.. Hehe.. :)
28. februar 2003 - 00:21
#10
response.write !Mailen er desværre ikke afsendt prøv igen.! erstat response.write "Mailen er desværre ikke afsendt prøv igen." skulle der vist ikke være flere fejl fra min side ;)
28. februar 2003 - 00:22
#11
altså "tastefejl" ;) hehehhe
28. februar 2003 - 00:22
#12
Igen... :) *G* Du får 200 for det her.. :) Hvis det altså lykkedes
28. februar 2003 - 00:23
#13
hvad er fejlen denne gang
28. februar 2003 - 00:23
#14
Den vil ikke... den lavar stadig fejæ
28. februar 2003 - 00:24
#15
Jeg skal helst bruge en fejlkode (jeg har ikke lige en server tilstede her hvor jeg sidder lige nu, så jeg kan ikke teste det)
28. februar 2003 - 00:25
#16
Microsoft VBScript compilation error '800a03f6' Expected 'End' /kontakt.asp, line 36 else ^
28. februar 2003 - 00:25
#17
:) Det er besværligt.. men den er altså også 00.22 så det er klart..
28. februar 2003 - 00:27
#18
if request.form("fra_navn") = "" OR request.form("besked") = "" then response.write("Du mangler at indtaste en oplysning") else tekst = Request.Form("besked") & vbcrlf & "Fra: " & request.form("fra_navn") & vbcrlf & "Tlf: "& request.form("tlf") & vbcrlf & "Email: " & request.form("mail") Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.nielsenmand.dk" JMail.Sender = "spam@nielsenmand.dk" JMail.Sendername = Request.Form("fra_navn") JMail.Subject = "Nielsenmand.dk_formular" JMail.AddRecipient "patrick@nielsenmand.dk" JMail.Body = tekst JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Silent = True JMail.Execute If JMail.Execute then response.write "Tak for din Mail." Else response.write !Mailen er desværre ikke afsendt prøv igen.! end if erstat: if request.form("fra_navn") = "" OR request.form("besked") = "" then response.write("Du mangler at indtaste en oplysning") else tekst = Request.Form("besked") & vbcrlf & "Fra: " & request.form("fra_navn") & vbcrlf & "Tlf: "& request.form("tlf") & vbcrlf & "Email: " & request.form("mail") Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.nielsenmand.dk" JMail.Sender = "spam@nielsenmand.dk" JMail.Sendername = Request.Form("fra_navn") JMail.Subject = "Nielsenmand.dk_formular" JMail.AddRecipient "patrick@nielsenmand.dk" JMail.Body = tekst JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Silent = True JMail.Execute If JMail.Execute then response.write "Tak for din Mail." Else response.write !Mailen er desværre ikke afsendt prøv igen.! end if end if
28. februar 2003 - 00:27
#19
fjernede else... så sagde den at der var fejl i linje 101
28. februar 2003 - 00:28
#20
Microsoft VBScript compilation error '800a03f6' Expected 'End' /kontakt.asp, line 101
28. februar 2003 - 00:28
#21
der manglede en "end"
28. februar 2003 - 00:29
#22
Hvor mangler der en end?
28. februar 2003 - 00:30
#23
kig i min erstat sætning: If JMail.Execute then response.write "Tak for din Mail." Else response.write !Mailen er desværre ikke afsendt prøv igen.! end if end if
28. februar 2003 - 00:31
#24
Microsoft VBScript compilation error '800a03f6' Expected 'End' /kontakt.asp, line 103
28. februar 2003 - 00:35
#25
if mode = "sendmail" then <% if mode = "send" then erstat if mode = "send" then jeg sover virkelig timen nu (det er også noget pis jeg ikke har en server ved hånden *suk*)
28. februar 2003 - 00:38
#26
Samme... hvis jeg får mit nye webhotel snart.. så må du godt låne et ftp-pass og kode ;)
28. februar 2003 - 00:39
#27
Hov.. slettede if mode = "sendmail" then og så nu er der ingen fejlmeddelser, men kun en hvis skærm
www.nielsenmand.dk/kontakt.asp
28. februar 2003 - 00:40
#28
det vil jeg helst ikke, men du kan sende kontakt.asp til mig ilenkop@tdcadsl.dk Så kigger lige hurtigt på den ;)
28. februar 2003 - 00:40
#29
Ok... Det var også bare hvis du en dag skulle bruge en server lige nu og her.., har 100 mb
28. februar 2003 - 00:41
#30
It's on the way...
28. februar 2003 - 00:42
#31
Jeg har både mail og webservere hjemme hos mig selv - har først adgang til dem imorgen tidlig, men hvis de sender dit script til mig nu, kigger lige hurtigt på det ;)
28. februar 2003 - 00:43
#32
modtaget - 2 min
28. februar 2003 - 00:44
#33
Det lyder fantastisk... hvis du får brug for hjælp en dag, så har du min mail, så skal jeg se hvad jeg kan gøre.. har mange ben indenfor webprog. men de sover nu *SuK* skal være klar til imorgen... puuuh
28. februar 2003 - 01:23
#34
Hva så??? virker det???
28. februar 2003 - 01:25
#35
Jeg går ihvertfald i seng nu..... Klokken er mange og arbejde kalder snart.. Men jeg kigger ind omkring 14.30 imorgen....
28. februar 2003 - 14:32
#36
hva så? - har du kunnet få scriptet til at fungere???
01. marts 2003 - 21:06
#37
Hej..du har ikke været på længe... :) har du mistet modet?? *G*
03. marts 2003 - 23:27
#38
Sorry jeg ikke lige har været der, men alle min maskiner gik ned.... "fandt" en gammel virus på en af mine diske... Det nemmeste vare at starte maskinerne op fra ny, men jeg kigger på kontakt formularen nu.... ok?
05. marts 2003 - 00:19
#39
Kanon.. det lyder rigtig dejligt... du kan bare sende det til min mail hvis du gider... :)
05. marts 2003 - 00:19
#40
Patrick@nielsenmand.dk
26. marts 2003 - 22:25
#41
Klarede den selv.. :)
Kurser inden for grundlæggende programmering