webForumDet fria alternativet

Alltså det här med JMail...

ASP

6 svar · 332 visningar · startad av Oputres

Medlem sedan feb. 2004333 inlägg
Frågan#1

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.

Medlem sedan juni 200032 967 inlägg
#2

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.

Medlem sedan feb. 2004333 inlägg
#3

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?

Medlem sedan juni 2004533 inlägg
#4

Är adressen till smtp-servern rätt? Är avsändaradressen en korrekt epost-adress?

Medlem sedan feb. 2004333 inlägg
#5

Hittade felet.

jmail.From = "" & Namn & ""
skulle vara:
jmail.From = "" & Epost & ""

Lycka!

Medlem sedan juni 200032 967 inlägg
#6

Varför har du "" & samt & "" runt variabeln?

Medlem sedan feb. 2004333 inlägg
#7

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.

258 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)