<%@ 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 %> Bli inte nästa offer! Tipsa ditt nätverk om Bankrättsföreningen <%If bMailSent = false then%>
[Hemsida] [Brf-direkt] [Skicka vykort] [Tipsa ditt nätverk]

Bli inte nästa offer!
Bankrättsföreningen är en ideell förening, som bedriver sin verksamhet utan varken stöd eller reklammedel. Vår uppgift är att uppmärksamma bank- och finansvärldens agerande mot enskilda, företaget och samhället för att gagna egna kortsiktiga intressen.

Vår hemsida har blivit både uppskattad och uppmärksammad för dess raka kommunikation och löpande uppdatering och vi finner ett ständigt ökat intresse för vad som egentligen hände under bankkrisen och hur vi kan skydda oss mot en upprepning.
   Spridningen av vår hemsida sker genom "djungeltelegrafen". Vi vill öka tempot genom att våra besökare tipsar arbetskamrater, vänner och bekanta via e-mail.
   Din medverkan till ökad spridning tjänar också uppgiften att minnas alla "likviderade" företagare och förlorade arbetsplatser. Läs vidare förklaring.

Styrelsen
Bankrättsföreningen
   

    Dina vänners e-mail.
1.
2.
3.

4.
5.
6.

Dina personliga hälsningar.

Din egen e-mail.

Du måste ange din egen e-mail adress, detta för att skydda att detta formulär inte används på ett felaktigt sätt. Alla e-mail adresser är fullständigt konfidentiella och kommer inte att lämnas ut till någon andra part!

Du kan testa "Tipsa Ditt nätverk" - funktionen genom att skicka ett e-mail till Dig själv.

Specifikt tips:
Vill du tipsa om en eller flera specifika rubriker gör du följande:
I texrutan kopierar du in adressen:
http://www.bankrattsforeningen.org.se/ och fyller på med den specifika rubrikens adress, som Du kan avläsa i webläsarens adressfönster längst ned när du markerar länken till rubriken och avslutar med .html.

Tack för besöket välkommen tillbaka!
 Hemsida

<%else%>
[Hemsida] [Brf-direkt] [Skicka vykort] [Tipsa ditt nätverk]

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!

Tack besöket och välkommen åter!
Hemsida
<%end if%>