<%@ Language=VBScript %>
<% Option Explicit %>
<%
	'This information is optional
	Dim strFrom, strSubject, strRedirectURL, strFromPath, strTo, JMail
	
	strTo = Request.Form("recipient")
	strFrom = Request.Form("email")	
	strSubject = Request.Form("subject")
	strRedirectURL = Request.Form("redirect")

	Dim strBody
	
	Dim myElement	
	For Each myElement in Request.Form
				strBody = strBody & Replace(myElement,len(myElement),".") & _
						  ": "
				if Len(Request.Form(myElement)) = 0 then
					strBody = strBody & "-"
				else
					strBody = strBody & Request.Form(myElement)
				end if
				
				strBody = strBody & vbCrLf
	Next
	
	'Time to send the email
'	Dim objCDO
'	Set objCDO = Server.CreateObject("CDONTS.NewMail")
'	objCDO.To = strTo
'	objCDO.From = strFrom
	
'	objCDO.Subject = strSubject
'	objCDO.Body = strBody
	
'	objCDO.Send
	
'	Set objCDO = Nothing
	
'	Response.Redirect strRedirectURL

Set JMail = Server.CreateObject("JMail.SMTPMail") 

' Below you should enter your own SMTP-server 
JMail.ServerAddress = "mail.hodive.nl" 

JMail.Sender = strFrom
JMail.Subject = strSubject 

JMail.AddRecipient strTo 

JMail.Body = strBody 

JMail.Priority = 3 

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 

JMail.Execute

Response.Redirect strRedirectURL
%>