Det saknas ett par citationstecken här och var.
If Request.QueryString("SkickaEpost") = "Ja" Then
samt
If Request.QueryString("Skickat") = "Ja" Then
Notera citationstecknen runt Ja. Ja är ju en sträng, och ingen variabel.
6 svar · 332 visningar · startad av Oputres
Mitt webbhotell https://www.cliche.se har tydligen stöd för JMail. Betyder det att jag i vilken asp.sida som helst kan infoga denna kod och få mina besökare att kunna skicka mail till mig från ett webbformulär?
(Denna kod finns under default.asp?Kat=6)
<% If Request.QueryString("SkickaEpost") = Ja Then
Namn = Request.Form("Namn")
Epost = Request.Form("Epost")
Meddelande = Replace(Request.Form("Meddelande"), vbCrLf, "<BR>" & vbCrLf)
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "info@mindoman.se", "Webbmästare"
jmail.From = "" & Namn & ""
Jmail.Priority = 1
jmail.Subject = "Meddelande från Hemsidan"
jmail.appendHTML "<font face=verdana size=1>"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "<b>Skickades:</b> " & Now & "<br>"
jmail.appendHTML "<b>Namn: </b> " & Namn & "<br>"
jmail.appendHTML "<b>Epost: </b> " & Epost & "<br>"
jmail.appendHTML "------------------------------------------<br>"
jmail.appendHTML "<br>Meddelande:<br>" & Meddelande & "<br>"
jmail.appendHTML "</font>"
jmail.Send( "smtp.cliche.se" )
Response.Redirect "default.asp?Kat=6&Skickat=Ja"
End If
If Request.QueryString("Skickat") = Ja Then [B](STÅR DET ...("Skickat") = Ja VISAR DEN ÄNDÅ TEXTEN NEDAN. STÅR DET ...("Skickat") <> VISAS INTE MEDDELANDET *Skumt*)[/B]
Response.Write "<b>Meddelandet Skickat!</b><br><br>"
End If
Response.Write StartText %>
<br><br>
<form name="kontakt" method="post" action="default.asp?Kat=6&SkickaEpost=Ja">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="7%">Namn:</td>
<td width="93%"><input type="text" name="Namn"></td>
</tr>
<tr>
<td>Epost:</td>
<td><input type="text" name="Epost"></td>
</tr>
<tr>
<td colspan="2"><textarea name="Meddelande" cols="50" rows="20" wrap="VIRTUAL"></textarea></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit" value="Skicka meddelande"></td>
</tr>
</table>
</form>
Bra.
Men varför funkar det inte då :(
När jag kör hela rubbet får jag tydligen en loop. När jag tar bort:
Response.Redirect "default.asp?Kat=6&Skickat=Ja"
blinkar skärmen till men jag har inget mail i lådan.
Det saknas ett par citationstecken här och var.
If Request.QueryString("SkickaEpost") = "Ja" Then
samt
If Request.QueryString("Skickat") = "Ja" Then
Notera citationstecknen runt Ja. Ja är ju en sträng, och ingen variabel.
Aaah, klantigt av mig.
Det är nu åtgärdat och här är nästa problemmeddelande (När jag tryckt på skicka-knappen):
jmail.Message error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/default.asp, line 296
[Line 296: jmail.Send ("smtp.cliche.se")]
Vad kan detta tänkas bero på, tillfälligt fel hos webbhotellet?
Är adressen till smtp-servern rätt? Är avsändaradressen en korrekt epost-adress?
Varför har du "" & samt & "" runt variabeln?
Det är en bra fråga. Scriptet är nedladdat från Gruvsjö och jag har för mig att jag i tidigare diskussioner sett någon skriva att det börjar strula om man tar bort citationstecknen.