WN - Tell-A-Friend Script

Här har du ett ASP-script som gör det du vill. Glöm inte att ange en SMTP-server, det gör du längst ner i tipsavan_skicka.asp.

Formulär

Kod:

<form method="post" action="tipsavan_skicka.asp"> 

        <div>

 *<p>Ditt namn:</p><input type="text" size="35" name="halsn">

        </div>

        <div>

 *<p>Din e-postadress:</p><input type="text" size="35" name="fran">

        </div>

        <div>

 *<p>Till: (e-postadress)</p><input type="text" size="35" name="till">

        </div> 

        <div>

 *<input type="submit" name="submit" value="Skicka iväg">

        </div>

</form>

Koden som skickar (tipsavan_skicka.asp)

Kod:

<%fran = Request.Form("fran")

till = Request.Form("till")

tipset = "http://www.dinsida.se"

halsn = Request.Form("halsn")

sida = "http://www.dinsida.se/sidan-som-tipsaren-ska-skickas-till-nar-meddelandet-ar-skickat.asp"



Set jmail = Server.CreateObject("JMail.Message")

 

jmail.AddRecipient "" & till & ""

jmail.From = "" & fran & ""

Jmail.Priority = 1

jmail.Subject = "Hej, här är en bra sida jag vill tipsa dig om!"

jmail.appendHTML "<font face=verdana size=1>"

jmail.appendHTML "Hej!<br>"

jmail.appendHTML "Jag tycker du skall besöka den här sidan.<br>"

jmail.appendHTML "<b><a href=" & tipset & ">" & tipset & "</a></b><br><br><br>" 

jmail.appendHTML "MVH<br>"

jmail.appendHTML "" & halsn & "<br>"

jmail.appendHTML "</font>"

jmail.Send( "smtp.dindoman.se" )



Response.Redirect sida%>