<%
'har man skickat formuläret?
If Request.Form("sent") = "1" Then
'kolla att obligatoriska fält är ifyllda
If not Request.Form("namn1") = "" AND not Request.Form("TelMobil") = "" AND not Request.Form("EpostAdress")= "" AND not Request.Form("msg") = "" Then
Dim ObjMail
' Set objMail = Server.CreateObject("CDO.Message")
set ObjMail = Server.CreateOBject("JMail.Message")
' objMail.From = "anmalan@sostockholm.com"
' ObjMail.From = "anmalan@sostockholm.com"
' Objmail.AddRecipient "trendgalan@sostockholm.com"
' ObjMail.Subject = "ANMÄLAN TILL TRENDGALAN"
' 'objMail.To = "ulrika.lindeberg@gmail.com"
' ObjMail.Body = "ANMÄLAN TILL TRENDGALAN:" & vbcrlf&_
' vbcrlf&_
' "Namn person 1 (kontaktperson): " & Request.Form("namn1") & "" & vbcrlf&_
' "Namn person 2: " & Request.Form("namn2") & "" & vbcrlf&_
' "Namn person 3: " & Request.Form("namn3") & "" & vbcrlf&_
' "Namn person 4: " & Request.Form("namn4") & "" & vbcrlf&_
' "Namn person 5: " & Request.Form("namn5") & "" & vbcrlf&_
' "Namn person 6: " & Request.Form("namn6") & "" & vbcrlf&_
' "Namn person 7: " & Request.Form("namn7") & "" & vbcrlf&_
' "Mobilnr kontaktperson: " & Request.Form("TelMobil") & "" & vbcrlf&_
' "e-post kontaktperson: " & Request.Form("EpostAdress") & "" & vbcrlf&_
' "Fakturaadress: " & Request.Form("msg") & ""
' If not msg.Send("mailcluster.loopia.se:587") Then
' Response.write "
" & msg.log & "
"
' objmail.send "mailcluster.loopia.se:587"
'jmail.Send "localhost"
set objMail = nothing
Set JMail = Nothing
%>
<%
else
%>
<%
End If
else
%>
<%
End If
%>