Ä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>