<% mailserver="195.26.11.113:25" %>

Tipsa en kompis om Spelis! <% Flag = request.form("Flag") If IsEmpty(Flag) or Flag = "" or Flag = 1 then %> Om du har en kompis som gillar att spela och ha kul i datorn kan du skicka en hälsning här. Det är helt gratis. Jag vill tipsa: Kompisen heter:   Kompisens e-post:   Jag som skickar en hälsning heter:    <% end if %> <% dim DSNtemp If Flag = 2 then Randomize apass = int(rnd*99999)+1 adags = now() till_namn = request.form("till_namn") till_epost = request.form("till_epost") fran_namn = request.form("fran_namn") rubrik = request.form("Rubrik") set conn = server.createobject("adodb.connection") conn.Open "Driver={MySQL ODBC 3.51 Driver};server=195.26.11.135;Port=3306;uid=barnsemester_se;pwd=dJbgzAAM;database=barnsemester_se" dim mailbody scriptname = Request.servervariables("script_name") scriptname = "http://" & request.servervariables("server_name") & scriptname mailbody = "Hej " & till_namn & "!" & Vbcrlf mailbody = mailbody & "Din kompis " & fran_namn & " vill tipsa dig om en hemsida med roliga spel och andra kul grejer för barn. " & vbcrlf & vbcrlf mailbody = mailbody & "Vill du se? Gå in på: http://www.barnsemester.se/spelis/" & vbcrlf & vbcrlf blabla = "Tips på rolig sida!" 'Response.Write mailbody set SMTP=Server.CreateObject("Jmail.SMTPMail") SMTP.ServerAddress= mailserver SMTP.Sender="Barnsemester.se" SMTP.AddRecipient till_epost SMTP.Subject=blabla SMTP.Body=mailbody SMTP.Execute %> Nu har vi skickat hälsningen till din vän! Vill du tipsa fler kompisar? <% end if %>