Jeg bruger en sådanne.
filen skal hedde tip.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<% LANGUAGE = VBScripts %>
<html>
<head>
<title>titel..</title>
</head>
<%
navn = request("navn")
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentTransferEncoding = "8bit"
JMail.Charset = "ISO-8859-1"
JMail.Priority = 1
JMail.ServerAddress = "din.mailserver.dk"
JMail.Sender = "afsender@adresse.dk"
JMail.Subject = "Prøv at se her"
JMail.Body = "Hej." & vbCrLf & navn & " syntes at du kigge forbi denne side. " & vbCrLf & vbCrLf
JMail.Body= JMail.Body + "Besøg
www.blabla.dk" & vbCrLf & vbCrLf
JMail.Body= JMail.Body + "
www.blabla.dk." & vbCrLf & "Her kan du se alt." & vbCrLf & vbCrLf
JMail.AddRecipient request("ad")
' Send it...
JMail.Execute
set JMail = nothing
response.write " Tak.<br><br>Din anbefaling er sendt til " & request("ad")
else %>
Send et tip til en af dine venner om siden.<br><br>
<form action="tip.asp" METHOD="POST">
Modtagerens E-mail:<br><input TYPE="TEXT" onFocus="this.form.ad.select()" value="" NAME="ad" SIZE="20"><br>
Dit navn:<br><input TYPE="TEXT" onFocus="this.form.navn.select()" value="" NAME="navn" SIZE="20"><br><br>
<input type="submit" value="Send tip !">
</form>
<% end if%>
</body>
</html>