default.asp
<html>
<head>
<title>New Page 2</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<blockquote>
<p align="left"><font face="Arial" size="2">Anbefal siden til en ven eller bekendt</p>
<form ACTION="anbefalsc.asp" METHOD="post">
<input type="hidden" name="redirect_to" value="anbefalet.asp"><p><font face="Arial"
size="2"> Din ven's E-mail:<br>
</font><font face="Verdana"><input TYPE="text" NAME="send_til" CLASS="input" size="20"
style="font-family: Arial; font-size: 10 pt; border-style: solid; border-width: 1px"><br>
<br>
</font><font face="Arial" size="2">Dit navn:<br>
</font><font face="Verdana"><input TYPE="text" NAME="from" CLASS="input" size="20"
style="font-family: Arial; font-size: 10 pt; border-style: solid; border-width: 1px"> </font></p>
<p><input TYPE="submit" VALUE="Anbefal" CLASS="button" </form> </font></p>
</form>
</blockquote>
</body>
</html>
anbefalsc.asp
<% Response.Buffer = True
redirect_to = Request.Form("redirect_to")
send_til = Request.Form("send_til")
from = Request.Form("from")
emne = Request.Form("emne")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "balder.web-sale.dk"
Mail.From = "postmaster@zequenze.dk"
Mail.FromName = from
Mail.AddAddress send_til
Mail.AddReplyTo send_til
Mail.Subject = "Besøg
www.zequenze.dk"Mail.Body = from & " syntes du skal besøge
www.zequenze.dk."Mail.Send
Set Mail = Nothing
Response.Redirect redirect_to
%>
anbefalet.asp
Din side med besked om at personen har anbefalet sin ven siden