<%@LANGUAGE = VBSCRIPT%>
<%
TheMessage = Request.ServerVariables("REMOTE_HOST")
set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.silent = true
msg.AddRecipient "henrik@dokinf.com", "Henrik"
sFrom = "dalkarl@dalkarlskarret.se"
msg.From = sFrom
msg.FromName = Dalkweb
msg.Subject = "Pling från Dalkarlswebben"
msg.Body = TheMessage
' msg.MailServerUserName = "info@dokinf.com"
' msg.MailServerPassword = "lösenord"
If not msg.Send("smtp.dokinf.com:587") Then
Response.write "" & msg.log & "
"
Else
Response.write " "
End If
%>
