<% Response.Buffer = True %> <% If Request.QueryString("what") = "Skicka" Then 'LÄS IN VARIABLERNA FRÅN FORMULÄRET epost=Request.Form("epost") mottagare=Request.Form("mottagare") arende=Request.Form("arende") meddelande=Request.Form("meddelande") Const cdoSendUsingPort = 2 ' ################### SKICKA MAIL ################################### Set iMsg = CreateObject("CDO.Message") iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "websrv10" iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 iMsg.Configuration.Fields.Update iMsg.To = mottagare iMsg.Bcc = "mail@iii.se" iMsg.From = epost iMsg.Subject = arende iMsg.TextBody = meddelande iMsg.Send Set iMsg = Nothing ' ###################################################### ' cleanup of variables Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing %> <%END IF %> Tipsa dina vänner om: - Ta kontroll över din hushållsekonomi och få en bättre privatekonomi

Tipsa dina vänner

<% if Request.QueryString("what") = "Skicka" then %>

Ditt meddelande har skickats

Tipsa gärna fler! <% Else %>

Hjälp mig att sprida kunskapen om denna enkla metod - Tipsa en vän!
<% end if %>

Patrik Nilsson

Vem är jag då?
Jo jag är en drygt 40 årig familjefar med en underbar fru, två oftast mycket snälla barn, en papegoja, en villa med trädgård (som kräver sitt underhåll) och en kombibil.
Med andra ord ganska normal