<%
' Website Contact Form Generator 
' http://www.tele-pro.co.uk/scripts/contact_form/ 
' This script is free to use as long as you  
' retain the credit link  
 
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim FirstName
Dim LastName
Dim ContactExt
Dim Suggestions
 
' get posted data into variables
EmailFrom = "user@user.com"
EmailTo = "user@user.com"
Subject = "Suggestions"
FirstName = Trim(Request.Form("FirstName")) 
LastName = Trim(Request.Form("LastName")) 
ContactExt = Trim(Request.Form("ContactExt")) 
Suggestions = Trim(Request.Form("Suggestions")) 
 
' validation
Dim validationOK
validationOK=true
If (Trim(Suggestions)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error_suggestions.htm?" & EmailFrom)
 
' prepare email body text
Dim Body
Body = Body & "FirstName: " & FirstName & VbCrLf
Body = Body & "LastName: " & LastName & VbCrLf
Body = Body & "ContactExt: " & ContactExt & VbCrLf
Body = Body & "Suggestions: " & Suggestions & VbCrLf
 
' OLD CDONTS send email 
'Dim mail
'Set mail = Server.CreateObject("CDONTS.NewMail")
'mail.To = EmailTo
'mail.CC = EmailCC
'mail.From = EmailFrom
'mail.Subject = Subject
'mail.Body = Body
'mail.Send 
'Set mail=nothing
 
'NEW CDOsys
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
 
Const cdoSendUsingPort = 2
StrSmartHost = "hosthere.com"
 
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
 
Set Flds = iConf.Fields
 
' set the CDOSYS configuration fields to use port 25 on the SMTP server
 
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Update
End With
 
With iMsg
Set .Configuration = iConf
.To = EmailTo
.From = EmailFrom
.CC = EmailCC
.Subject = Subject
.TextBody = Body
.Send
End With
 
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
 
' redirect to success page 
Response.Redirect("Confirmation.htm?")
'Response.Redirect("ok.htm?" & EmailFrom)
%>