Startsida
Barn & föräldrar
Bil & motor
Bloggar
Dejting
Ekonomi
E-vykort
Hus & Hem
Hälsa
Internet & Dator
Jobb
Köp & Sälj
Mat & dryck
Mobil
Mp3 & Musik
Nyhetsportaler
Nöje
Onlinespel
Organisationer
Poker
Resa & Turism
Shopping
Sport & spel
Student
Väder

Bildgalleri
Tipsa en vän!
Gästbok
Nyhetsbrev


Tipsa en vän
Ditt namn:
Din email:
Din väns email:
 

<%If Request.QueryString("do") = "tipsa" Then Webb = "http://www.internetlankar.se" Namn = Request.Form("namn") DEmail = Request.Form("demail") Email = Request.Form("email") Set jmail = Server.CreateObject("JMail.Message") jmail.AddRecipient Email jmail.From = "" & Demail jmail.Subject = "Tips om hemsida" jmail.Body = "Meddelande via hemsidan skickades " & Now & "" jmail.appendHTML "" jmail.appendHTML "Någon som du känner vill tipsa om en sida
" jmail.appendHTML "-------------------------------------------------
" jmail.appendHTML Namn & " vill att du besöker denna hemsida:
" jmail.appendHTML "-------------------------------------------------
" jmail.appendHTML "" & Webb & "
" jmail.appendHTML "
" jmail.Send ("smtp.cliche.se") If Err.Number<>0 then Response.Write "
Nåt blev fel! Försök om en stund igen!" Else Response.Write "
Tack för att du använt denna tjänst!" End if End If%>