Her der SP Fynboes "Anbefal-side"
anbf.asp - Indeholder formen til at udfylde med modtagerens email og afsenderens navn med:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<title>Anbefaling</title>
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<%
'~~~~~~~~~~~~~~~~~~~~~ Lavet af (C)Søren Peter Fynboe 2000 ~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~ Support på spf@mail1.stofanet.dk/ ICQ UIN #33029955 ~~~~~~~~~~~~~~~~~~~~~
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' Konfigurér med smtp-server, afsender og tekst
' Brug vbCrLf til linjeskift i indholdet (body)
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'_______________________________________________________________________________________________
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_smtp.server.dk"
JMail.Sender = "Din_afsender_e-mail.dk"
JMail.Subject = "Anbefaling"
JMail.Body = "Hej!" & vbCrLf & "Det er " & navn & vbCrLf & vbCrLf
JMail.Body= JMail.Body + "Besøg Min hjemmeside!" & vbCrLf & vbCrLf
JMail.Body= JMail.Body + "www.smin side.dk." & vbCrLf & "En hjemmeside hvor du kan læse nyheder og deltag i debat m.m." & 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 %>
<form action="anbef.asp" METHOD="POST">
<table cellpadding="2" cellspacing="2" border="1">
<tr>
<td><div align="center"><center><h2>Anbefal Minside</h2>
</center></div></td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.ad.select()" value="Modtagerens e-mail?"
NAME="ad" SIZE="17"> </td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.navn.select()" value="Afsenderens navn?"
NAME="navn" SIZE="17"> </td>
</tr>
<tr>
<td><input type="submit" value="Send"> </td>
</tr>
</table>
</form>
<% end if%>
<p><small>© Søren Peter Fynboe 2000 </small></p>
</body>
</html>
****************************************************
Kræver serveren understøtter JMail!
Indsæt formen på den side du ønsker.
Skriv din smtp-server i email-scriptet (linje 29) samt afsender email(linje 30), besked (linje 32- (valgfrit)) og evt. subject (linje 31).
Tegnsættet er sat til ISO-8859-1 (Europærisk) (linje 26), ContentTransferEncoding er sat til 8 bit (linje 25) og prioritet er sat til 1 (linje 28).
Ny bruger
Nybegynder
Opret
Preview
