<%
if request.form("sendskjema") = "true" then
'Set JMail = Server.CreateObject("JMail.SMTPMail")
'JMail.ServerAddress = "smtp.ssc.no"
'JMail.Sender = request.form("epost")
'JMail.Subject = request.form("emne")
'JMail.AddRecipient "solfaktx@online.no"
'JMail.Body = request.form("beskjed")
'if request.form("Prioritering") = "Y" then
'JMail.Priority = 1
'end if
'JMail.Execute
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Dim objConfig
Dim objMessage
Dim Fields
Const cdoSendUsingPickup = 1
Const strPickup = "c:\inetpub\mailroot\pickup"
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
With Fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strPickup
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "prinsmild@gmail.com"
'.bcc = ""
'If FromAddress <> "" Then
.From = request.form("epost")
'Else
'.From = "prinsmild@gmail.com"
'End If
.Subject = request.form("emne")
.TextBody = request.form("beskjed")
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
telluser = true
end if
%>
<% if telluser then %>
<%
'Response.Redirect("velkommen.html")
end if
%>