<%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%>