Avatar billede jmc Nybegynder
05. november 2001 - 14:13 Der er 1 løsning

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

Email
sdf@fh

Telefonnummer
3245

besked
dfhg



Din besked er sendt

tilbage

*****
men kun en firkant [checkbox i fremsendte mail!]
hvad kan dette skyldes?
*****
Avatar billede jmc Nybegynder
05. november 2001 - 14:50 #1
Ja, det var
\'Mailer.BodyText  = tekst
som ikke var slået til!
jeg svare selv!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester