fejl i mailform
**************\'denne mailform:
***************
<html>
<head>
<title><%= Application(\"title\") %></title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<!-- #include file=\"stylesheet.asp\" -->
<body bgcolor=\"#FFFFFF\">
<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.CharSet = 2
Mailer.FromName = \"JM TEST\"
Mailer.FromAddress= \"jm@grabit.dk\"
Mailer.RemoteHost = \"mail.grabit.dk\"
Mailer.AddRecipient \"grabitdk\", \"jm@grabit.dk\"
Mailer.Subject = Request.Form(\"Type\") & \": \" & Request.Form(\"Type2\")
tekst = \"\"
\'linie = vbCrLf
linie = \"<br>\"
udfyldt = false
if Request.Form(\"Aktivitet\") <> \"\" then
tekst = tekst & \"Aktivitet\" & linie & Request.Form(\"Aktivitet\") & linie & linie
udfyldt = true
end if
if Request.Form(\"mødedato\") <> \"\" then
tekst = tekst & \"mødedato\" & linie & Request.Form(\"mødedato\") & linie & linie
udfyldt = true
end if
if Request.Form(\"Medlemsnummer\") <> \"\" then
tekst = tekst & \"Medlemsnummer\" & linie & Request.Form(\"Medlemsnummer\") & linie & linie
udfyldt = true
end if
if Request.Form(\"Navn\") <> \"\" then
tekst = tekst & \"Navn\" & linie & Request.Form(\"Navn\") & linie & linie
udfyldt = true
end if
if Request.Form(\"Firma\") <> \"\" then
tekst = tekst & \"Firma\" & linie & Request.Form(\"Firma\") & linie & linie
udfyldt = true
end if
if Request.Form(\"Adresse\") <> \"\" then
tekst = tekst & \"Adresse\" & linie & Request.Form(\"Adresse\") & linie & linie
udfyldt = true
end if
if Request.Form(\"Postnummer/By\") <> \"\" then
tekst = tekst & \"Postnummer/By\" & linie & Request.Form(\"Postnummer/By\") & linie & linie
udfyldt = true
end if
if Request.Form(\"Email\") <> \"\" then
tekst = tekst & \"Email\" & linie & Request.Form(\"Email\") & linie & linie
udfyldt = true
end if
if Request.Form(\"Telefonnummer\") <> \"\" then
tekst = tekst & \"Telefonnummer\" & linie & Request.Form(\"Telefonnummer\") & linie & linie
udfyldt = true
end if
if Request.Form(\"besked\") <> \"\" then
tekst = tekst & \"besked\" & linie & Request.Form(\"besked\") & linie & linie
udfyldt = true
end if
if Request.Form(\"CH1\") <> \"\" then
tekst = tekst & \"Valgmulighed 1:\" & linie & Request.Form(\"CH1\") & linie & linie
end if
if Request.Form(\"CH2\") <> \"\" then
tekst = tekst & \"Valgmulighed 2\" & linie & Request.Form(\"CH2\") & linie & linie
end if
if Request.Form(\"CH3\") <> \"\" then
tekst = tekst & \"Valgmulighed 3\" & linie & Request.Form(\"CH3\") & linie & linie
end if
if Request.Form(\"CH4\") <> \"\" then
tekst = tekst & \"Valgmulighed 4\" & linie & Request.Form(\"CH4\") & linie & linie
end if
if Request.Form(\"CH5\") <> \"\" then
tekst = tekst & \"Valgmulighed 5\" & linie & Request.Form(\"CH5\") & linie & linie
end if
if Request.Form(\"CH5\") <> \"\" then
tekst = tekst & \"Valgmulighed 5\" & linie & Request.Form(\"CH5\") & linie & linie
end if
if Request.Form(\"CH6\") <> \"\" then
tekst = tekst & \"Valgmulighed 6\" & linie & Request.Form(\"CH6\") & linie & linie
end if
if Request.Form(\"CH7\") <> \"\" then
tekst = tekst & \"Valgmulighed 7\" & linie & Request.Form(\"CH7\") & linie & linie
end if
if Request.Form(\"CH8\") <> \"\" then
tekst = tekst & \"Valgmulighed 8\" & linie & Request.Form(\"CH8\") & linie & linie
end if
if Request.Form(\"CH9\") <> \"\" then
tekst = tekst & \"Valgmulighed 9\" & linie & Request.Form(\"CH9\") & linie & linie
end if
if Request.Form(\"CH10\") <> \"\" then
tekst = tekst & \"Valgmulighed 10\" & linie & Request.Form(\"CH10\") & linie & linie
end if
Response.Write \"systemet er nede - benyt venligst email eller vent 10 min.<P>\" & tekst
\'Mailer.BodyText = tekst
if udfyldt then
if Mailer.SendMail then
Response.Write \"<p>Din besked er sendt</p>\"
else
Response.Write \"<p>Din besked er <b>ikke</b> sendt</p>\"
Response.Write \"<p>Mail-error. Fejlen var: <b>\" & Mailer.Response & \"</b></p>\"
end if
else
Response.Write \"<p>Din besked blev <b>ikke</b> sendt</p>\"
Response.Write \"<p>felterne var ikke udfyldt!</p>\"
end if
Response.Write \"<title>MAIL TIL ssid</title>\"
Response.Write \"<p><a href=\" & Request.ServerVariables(\"HTTP_REFERER\") & \">tilbage</a></p>\"
%>
*********************************
giver dette output i en browser:
*********************************
systemet er nede - benyt venligst email eller vent 10 min.
Navn
dfg
Firma
dfg
Adresse
dfg
Postnummer/By
234
sdf@fh
Telefonnummer
3245
besked
dfhg
Din besked er sendt
tilbage
*****
men kun en firkant [checkbox i fremsendte mail!]
hvad kan dette skyldes?
*****
