%@ Language=VBScript %> <% Response.Expires = 0 Dim URL, SenderEmail, Message Dim bMailSent, sMailList URL = Request.QueryString("URL") If Len(URL) = 0 Then URL = "http://www.bankrattsforeningen.org.se/index.html" SenderEmail = Request.Form("SendersEmail") If Len(SenderEmail) > 0 Then bMailSent = true Dim JMail, FriendEmail sBody = vbcrlf & "Hej!" & vbcrlf & "Bankrättsföreningens hemsida " & URL & " har rekomenderats till dig av " & SenderEmail & vbCrLf & vbCrLf sBody = sBody & "Bli inte nästa offer! " & vbcrlf sBody = sBody & "Ta del av hemsidans innehåll. Bryt inte kedjan, utan fortsätt spridningen genom att Du också tipsar ditt nätverk, vänner och bekanta med egna e-mail via - http://www.bankrattsforeningen.org.se/tellafriend.asp" & vbcrlf & vbcrlf sBody = sBody & "Tack på förhand" & vbcrlf sBody = sBody & "Bankrättsföreningen" & vbcrlf & vbcrlf sBody = sBody & " -- Meddelande -- " & vbcrlf & Request.Form("Message") I=0 Do While True FriendEmail = Request.Form("FriendEmail" & I) If Len(FriendEmail) = 0 Then Exit Do Else Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail-relay.uni2.dk" JMail.Sender = SenderEmail JMail.Subject = "Bli inte nästa offer!" JMail.AddRecipient FriendEmail JMail.Body = sBody JMail.Priority = 1 JMail.AddHeader "Originating-IP",Request.ServerVariables("REMOTE_ADDR") JMail.Execute End If If I = 0 then sMailList = FriendEmail else sMailList = sMailList & vbcrlf & FriendEmail end if I=I+1 Loop Set objMail = Nothing else bMailSent = false End If %>
Tack för att du sprider
ordet! |
| Ditt/Dina mail är på väg till:
<%=sMailList%> Brf mailsevice |
|
|
PS Här finns ytterligare en funktion för att Tipsa vänner och bekanta om vår hemsida. Skicka ett vykort! |
|
Hemsida |