<%
'har man skickat formuläret?
If Request.Form("sent") = "1" Then
'kolla att obligatoriska fält är ifyllda
If not Request.Form("Name") = "" AND not Request.Form("EpostAdress")= "" Then
Dim objMail
' Set objMail = Server.CreateObject("Jmail.Message")
' objMail.From = "anmalan@sostockholm.com"
' objMail.Subject = "TRENDPRISET - RÖST"
' objMail.Addrecipient "trendgalan@sostockholm.com"
'objMail.To = "ulrika@lindebergdesign.se"
' objMail.Body = "JAG TYCKER ATT FÖLJANDE KANDIDAT SKA VINNA:" & vbcrlf&_
' "" & Request.Form("kandidat") & vbcrlf&_
' vbcrlf&_
' "Jag heter: " & Request.Form("Name") & "" & vbcrlf&_
' "Min epost-adress: " & Request.Form("EpostAdress") & ""
' objmail.send "mailcluster.loopia.se:587"
set objMail = nothing
set Jmail = nothing
%>
<%
else
%>
<%
End If
else
%>
<%
End If
%>