Sv: Inget mail

Inget mail

Postades av 2002-03-28 13:38:18 - Jimmy Nilsson, i forum asp - allmänt, Tråden har 3 Kommentarer och lästs av 421 personer

Hej!
Har ett litet problem här, och jag hade varit oerhört tacksam om någon hade kunnat ta sig tid att kolla igenom koden nedan, för jag har stirrat mig blind. Mailet har skickats skitbra innan, innan jag lade in alla if-satser i toppen av koden. Kan säga också att jag inte får något felmeddelande utan allt funkar förutom att mailet skickas.

<code>
<% Option Explicit %>

<html>
<head>
<title>
sida
</title>
</head>
<body>

<%

Dim Foretag, Fornamn, Efternamn, Adress, Postnr, Ort, Land, Telefon, Fax, Epost, Orgnr

Foretag = Request.Form("Foretag")
Fornamn = Request.Form("Fornamn")
Efternamn = Request.Form("Efternamn")
Adress = Request.Form("Adress")
Postnr = Request.Form("Postnr")
Ort = Request.Form("Ort")
Land = Request.Form("Land")
Telefon = Request.Form("Telefon")
Fax = Request.Form("Fax")
Epost = Request.Form("Epost")
Orgnr = Request.Form("Orgnr")

' Om någon är fel bygg upp ett formulär.
' Kollar sedan vilken som är fel och markerar den med stjärna och feltext
' Texten man skrivit in som är rätt blir kvar men de felaktiga försvinner

If not InStr(Epost,"@")>0 Or not isNumeric(Telefon) Or not Isnumeric(Fax) Or Foretag = ""_
Or Fornamn = "" Or Efternamn = "" Or Adress = "" Or Postnr = "" Or Ort = ""_
Or Land ="" Or Telefon = "" Or Fax = "" Or Epost = "" Or Orgnr ="" Then

Response.Write "<form method=post action=swe_bekr_register.asp><center><table border=0>"

If Foretag ="" Then

Response.Write "<tr><td width=120>Företag:</td><td><input type=text name=Foretag></td><td>*</td>"

Else

Response.Write "<tr><td width=120>Företag:</td><td>" &_
"<input type=text name=Foretag value= """ & Foretag & """></td><td> </td>"

End If

If Fornamn ="" Then

Response.Write "<tr><td width=120>Förnamn:</td><td><input type=text name=Fornamn></td><td>*</td>"

Else

Response.Write "<tr><td width=120>Förnamn:</td><td>" &_
"<input type=text name=Fornamn value= """ & Fornamn & """></td><td> </td>"

End If

If Efternamn ="" Then

Response.Write "<tr><td width=120>Efternamn:</td><td>" &_
"<input type=text name=Efternamn></td><td>*</td>"

Else

Response.Write "<tr><td width=120>Efternamn:</td><td>" &_
"<input type=text name=Efternamn value= """ & Efternamn & """></td><td> </td>"

End If

If Adress ="" Then

Response.Write "<tr><td width=120>Adress:</td><td><input type=text name=Adress></td><td>*</td>"

Else

Response.Write "<tr><td width=120>Adress:</td><td>" &_
"<input type=text name=Adress value= """ & Adress & """></td><td> </td>"

End If

If Postnr ="" Then

Response.Write "<tr><td width=120>Postnr:</td><td><input type=text name=Postnr size=10></td><td>*</td>"

Else

Response.Write "<tr><td width=120>Postnr:</td><td>" &_
"<input type=text name=Postnr size=10 value= """ & Postnr & """></td><td> </td>"

End If

If Ort ="" Then

Response.Write "<tr><td width=120>Ort:</td><td><input type=text name=Ort></td><td>*</td>"

Else

Response.Write "<tr><td width=120>Ort:</td><td>" &_
"<input type=text name=Ort value= """ & Ort & """></td><td> </td>"

End If

If Land ="" Then

Response.Write "<tr><td width=120>Land:</td><td><input type=text name=Land></td><td>*</td>"

Else

Response.Write "<tr><td width=120>Land:</td><td>" &_
"<input type=text name=Land value= """ & Land & """></td><td> </td>"

End If

If Telefon ="" Or not isNumeric(Telefon) Then

Response.Write "<tr><td width=120>Telefon:</td><td>" &_
"<input type=text name=Telefon></td><td>* Ange endast numeriska tecken</td>"

Else

Response.Write "<tr><td width=120>Telefon:</td><td>" &_
"<input type=text name=Telefon value= """ & Telefon & """></td><td> </td>"

End If

If Fax ="" Or not isNumeric(Fax) Then

Response.Write "<tr><td width=120>Fax:</td><td>" &_
"<input type=text name=Fax></td><td>* Ange endast numeriska tecken</td>"

Else

Response.Write "<tr><td width=120>Fax:</td><td>" &_
"<input type=text name=Fax value= """ & Fax & """></td><td> </td>"

End If

If Epost ="" Or not InStr(Epost,"@")>0 Then

Response.Write "<tr><td width=120>E-post:</td><td>" &_
"<input type=text name=Epost></td><td>* Felaktig e-postadress</td>"

Else

Response.Write "<tr><td width=120>E-post:</td><td>" &_
"<input type=text name=Epost value= """ & Epost & """></td><td> </td>"

End If

If Orgnr ="" Then

Response.Write "<tr><td width=120>Organisationsnr:</td><td><input type=text name=Orgnr>" &_
"</td><td>*</td><tr><td> </td><td align=center>" &_
"<input type=submit value=Skicka registrering!>" &_
"<input type=reset value=Rensa></td><td> </td></form></table>"

Else

Response.Write "<tr><td width=120>Organisationsnr:</td><td>" &_
"<input type=text name=Orgnr value= """ & Orgnr & """></td><td> </td>" &_
"<tr><td> </td><td align=center>" &_
"<input type=submit value=Skicka registrering!>" &_
"<input type=reset value=Rensa></td><td> </td></form></table>"

End If

Else

Dim strBody
strBody = "Foretag: " & Foretag & Chr(10)
strBody = strBody + "Fornamn: " & Fornamn & Chr(10)
strBody = strBody + "Efternamn: " & Efternamn & Chr(10)
strBody = strBody + "Adress: " & Adress & Chr(10)
strBody = strBody + "Postnr: " & Postnr & Chr(10)
strBody = strBody + "Ort: " & Ort & Chr(10)
strBody = strBody + "Land: " & Land & Chr(10)
strBody = strBody + "Telefon: " & Telefon & Chr(10)
strBody = strBody + "Fax: " & Fax & Chr(10)
strBody = strBody + "Epost: " & Epost & Chr(10)
strBody = strBody + "Organisationsnr: " & Orgnr

Dim send_Mail
SET send_Mail = Server.CreateObject("CDONTS.NewMail")
send_Mail.From = "info@doman.se"
send_Mail.To = "mail@doman.se"
send_Mail.Subject = "Registrering Internetkund"
send_Mail.Body = strBody
send_Mail.Send
SET send_Mail = Nothing

%>
<center>
<b>Tack <%=Foretag%> för er ansökan att bli Internetkund hos CHS Controls AB!</b> <br><br>Ni har skickat iväg följande information:<br><br>
<table border=0>
<%
Response.Write "<tr><td width=120>Företag: </td><td>" & (Foretag) & "</td>"
Response.Write "<tr><td>Namn: </td><td>" & (Fornamn) & " "
Response.Write (Efternamn) & "</td>"
Response.Write "<tr><td>Adress: </td><td>" & (Adress) & "</td>"
Response.Write "<tr><td>Postnr/Ort: </td><td>" & (Postnr) & "  "
Response.Write (Ort) & "</td>"
Response.Write "<tr><td>Land: </td><td>" & (Land) & "</td>"
Response.Write "<tr><td>Telefon: </td><td>" & (Telefon) & "</td>"
Response.Write "<tr><td>Fax: </td><td>" & (Fax) & "</td>"
Response.Write "<tr><td>E-post: </td><td>" & (Epost) & "</td>"
Response.Write "<tr><td>Organisationsnr: </td><td>" & (Orgnr) & "</td></table>"
Response.Write "<br><br><b>E-post med inloggningsuppgifter kommer att skickas till er så fort som " &_
"möjligt! </b><br>Tillbaka till Startsidan"

End If
%>

</body>
</html>
</code>

Svara

Sv: Inget mail

Postades av 2002-03-30 00:29:26 - Daniel Norberg

jag vet inte om det blir någon skilnad om du ändrar det här men du kan ju prova.

Byt "+" tecknet till ett "&".

Dim strBody
strBody = "Foretag: " & Foretag & Chr(10)
strBody = strBody & "Fornamn: " & Fornamn & Chr(10)
strBody = strBody & "Efternamn: " & Efternamn & Chr(10)
strBody = strBody & "Adress: " & Adress & Chr(10)
strBody = strBody & "Postnr: " & Postnr & Chr(10)
strBody = strBody & "Ort: " & Ort & Chr(10)
strBody = strBody & "Land: " & Land & Chr(10)
strBody = strBody & "Telefon: " & Telefon & Chr(10)
strBody = strBody & "Fax: " & Fax & Chr(10)
strBody = strBody & "Epost: " & Epost & Chr(10)
strBody = strBody & "Organisationsnr: " & Orgnr

Svara

Sv: Inget mail

Postades av 2002-04-02 08:26:26 - Jimmy Nilsson

Det måste ha varit trögt som fan här i torsdags för nu idag tisdag när jag kom hit hade jag 20 mail i brevlådan, men tackar så hjärtligt för att du tog dig tid att titta på det.

Svara

Sv: Inget mail

Postades av 2002-04-02 14:50:59 - Andreas Hillqvist

P.S.
Använd konstanten vbLf istället för Chr(10). Snyggare och bättre. Du slipper då en massa funktionsanrop.
D.S.

Svara

Inget mail

Sv: Inget mail

Sv: Inget mail

Sv: Inget mail

Nyligen

Sidor

Statistik

Kontakta oss