Tell a Friend about this Newsletter!
Tipsa en vän om detta Nyhetsbrev!

<% if Request.QueryString("send") = "true" Then dn = Request.Form("dn") de = Request.Form("de") kn = Request.Form("kn") ke = Request.Form("ke") 'Mail till administratör mail_to = "laila@durantextiles.com" 'Adm. email mail_from = de 'Från (endast 'de' utan situationstecken ger avsändarens email) mail_subject = "Rekommenderar detta nyhetsbrev" 'Ämne mail_body = "Tipsat av " & dn & ", " & de & " till " & kn & ", " & ke 'Text Set cdontsMAIL = Server.CreateObject("CDONTS.NewMail") cdontsMAIL.From = mail_from cdontsMAIL.To = mail_to cdontsMAIL.Subject = mail_subject cdontsMAIL.Body = mail_body cdontsMAIL.MailFormat = 0 cdontsMAIL.Send Set cdontsMAIL = Nothing 'Rekommenadtionsmail mail_to = ke mail_from = de 'Avs. email: Kan ändras till valfri emailadress inom "" mail_subject = "Recommend this Newsletter: " & kn 'Ämne mail_body = "I found this newsletter about fabrics. It is very interesting and I recommend you to read it. Go to: http://www.durantextiles.com/newsletter/news_2a_11.asp" 'Text Set cdontsMAIL = Server.CreateObject("CDONTS.NewMail") cdontsMAIL.From = mail_from cdontsMAIL.To = mail_to cdontsMAIL.Subject = mail_subject cdontsMAIL.Body = mail_body cdontsMAIL.MailFormat = 0 cdontsMAIL.Send Set cdontsMAIL = Nothing %> Thank You! Ditt mail har skickats! <% Else %>

Your name/Ditt namn

Your e-mail/Din e-post


Your friends name/Vännens namn

Your friends e-mail/Vännens e-post

<% End If %>