MMcMojMedlem sedan juli 200269 inlägg Frågan#1 Det blir felet Expected end of statement i denna kod!
Hjälp mig!
<html>
<head>
<title>JamboHost</title>
<style>
<!--
body { font-family: Verdana; font-size: 9px; text-decoration: none }
table { font-family: Verdana; font-size: 9px; text-decoration: none }
input { font-family: Verdana; font-size: 9px; border-style: solid; border-width: 1;
padding: 1 }
option { font-family: Verdana; font-size: 9px; text-decoration: none; border-style:
solid; border-width: 1; padding: 0 }
-->
</style>
</head>
<body topmargin="0" leftmargin="0">
<%
If Len(Request.Form("email")) > 0 AND Len(Request.Form("subject")) > 0 AND Len(Request.Form("message")) > 0 Then
Set newMail = CreateObject("CDONTS.NewMail")
newMail.From = Request.Form("email")
newMail.FromName = Request.Form("namn")
newMail.To = "michael.johansson@visit.se"
newMail.Subject = "JamboHost"
html = "Användar Namn: "Request.Form("username")" <br> Lösenord: "Request.Form("password")" <br> Mb: "Request.Form("mb")" <hr> Namn: "Request.Form("Namn")" <br> Email: "Request.Form("Email")" <br> Hemadress: "Request.Form("Hemadress")" <br> Postadress "Request.Form("Postadress")" <br> Land: "Request.Form("Land")" <br> Telefon: "Request.Form("Telefon")" <br> Mobil: "Request.Form("Mobiltelefon")" <br>"
newMail.Body = ""&html&""
newMail.Send
Set newMail = Nothing
End If
%>
<% Response.redirect "tack.asp" %>
</body>
</html>
SSebbeMedlem sedan jan. 20032 285 inlägg :)
<%
If Len(Request.Form("email")) > 0 AND Len(Request.Form("subject")) > 0 AND Len(Request.Form("message")) > 0 Then
Set newMail = CreateObject("CDONTS.NewMail")
newMail.From = Request.Form("email")
newMail.FromName = Request.Form("namn")
newMail.To = "michael.johansson@visit.se"
newMail.Subject = "JamboHost"
html = "Användar Namn: " & Request.Form("username") & " <br> Lösenord: " & Request.Form("password") & " <br> Mb: " & Request.Form("mb") & " <hr> Namn: " & Request.Form("Namn") & " <br> Email: " & Request.Form("Email") & " <br> Hemadress: " & Request.Form("Hemadress") & " <br> Postadress " & Request.Form("Postadress") & " <br> Land: " & Request.Form("Land") & " <br> Telefon: " & Request.Form("Telefon") & " <br> Mobil: " & Request.Form("Mobiltelefon") & " <br>"
newMail.Body = html
newMail.Send
Set newMail = Nothing
End If
Response.redirect "tack.asp"
