tipsa en kompis

Är det någon som vet var jag kan få tag på ett "tipsa en komis" asp script at sätta up på min sida. Har du ett sånt eller vet var jag kna få tag på det maila mig. webmaster@brasajt.com

------------------
/webmaster of brasajt.com
asp, php, cgi, photshop, web forum mm

Ändra bara det som är skrivet med versaler.

<FORM METHOD="post" ACTION="tipsa_kompis.asp">
<input type="text" name="to_name"><BR>
<input type="text" value="@" name="to_email"><BR>
<input type="text" name="from_name"><BR>
<input type="text" value="@" name="from_email"><input type="submit" value="skicka">
</form>

<%
'On Error Resume Next
Dim oMail, strFrom, strTo, strSubject, strTxt1, strTxt2, strTxt3

strFrom = "DIN_MAIL@SERVER.COM"
strTo = Request.Form("to_email")
strSubject = "--- TIPS PÅ EN BRA SIDA ---"
strTxt1 = Request.Form("to_name")
strTxt2 = Request.Form("from_name")

Set oMail = Server.CreateObject("CDONTS.NewMail")
oMail.Send strFrom, strTo , strSubject, + chr(10) + "Hej " + strTxt1 + "!" + chr(10) + strTxt2 + " vill tipsa dig om denna sida:" + chr(10) + "HTTP://WWW.DIN.WEBADRESS.COM/" + chr(10) + chr(10) + "Med vänliga hälsningar," + chr(10) + strTxt2 + " DITT SIDNAMN" + chr(10)
%>

<p align="center"><font face="Verdana" color="#FF0000"><b><font size="4">Tack!</font><br>
Ditt tips är nu skickat!</b></font>

Hur blir det med Jmail?