Tipsa en vän om att besöka www.gamlavykort.nu genom
att fylla i formuläret nedan! "Hej (din väns namn).
<%
If Request.QueryString("action") = "send" Then
Dim sndMail
Dim sendName
Dim sendMail
Dim recieveName
Dim recieveMail
Dim mailSubject
Set sndMail = Server.CreateObject("CDONTS.NewMail")
sendName = TRIM(Request.Form("send_name"))
sendMail = TRIM(Request.Form("send_email"))
recieveName = TRIM(Request.Form("recieve_name"))
recieveMail = TRIM(Request.Form("recieve_email"))
mailSubject = sendName & " vill tipsa dig om en sida!"
sndMail.From = sendMail
sndMail.Subject = mailSubject
sndMail.To = recieveMail
Body = "Hej " & recieveName & "." & vbCrLf & vbCrLf
Body = Body & "Din vän " & sendName & " vill tipsa dig om sidan Gamla Vykort som du hittar på www.gamlavykort.nu" & vbCrLf & vbCrLf
Body = Body & "Gamla Vykort är startsidan för alla vykortssamlare i Sverige och övriga Norden. Där finns massor av information om vykortsamlande med bl a artiklar, nyheter, gratis samlarannonser, forum, efterlysningen och mycket mycket annat!" & vbCrLf & vbCrLf
Body = Body & "Gör ett besök på www.gamlavykort.nu! Den innehåller mycket som är intressant t o m för de som inte samlar gamla vykort!"
sndMail.Body = Body
sndMail.Send
set sndMail = nothing
%>
Nu har ett mail gått iväg till <%=recieveName%> på adressen <%=recieveMail%>. |