<%
Option Explicit
'####################################################
'#
'# written by PUT YOUR NAME HERE
'#
'# Very basic ASP email script
'####################################################
'####################################################
'#
'# Send Email Client
'#
'####################################################
sub send_email_client()
Dim iMsg
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Const strSmartHost = "PLACE THE IPADDRESS OF YOUR MAIL SERVER IN HERE"
'####################################################
'#
'# NOW YOU CAN BUILD THE BODY OF YOUR EMAIL
'#
'####################################################
body = "First Name = " & request("Firstname") & "
"
body = body & "Last Name = " & request("Lastname") & "
"
body = body & "City = " & request("City") & "
"
body = body & "State = " & request("State") & "
"
body = body & "Phone = " & request("Phone") & "
"
body = body & "Comments = " & request("Comments") & "
"
'Create the message object
Set iMsg = CreateObject("CDO.Message")
'Create the configuration object
Set iConf = iMsg.Configuration
'Set the fields of the configuration object to send using SMTP via port 25.
With iConf.Fields
.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/BodyFormat") =0
.item("http://schemas.microsoft.com/cdo/configuration/MailFormat") =0
.Update
End With
'Set the message to,from,subject,body properties.
With iMsg
.To = "ENTER WHO YOU ARE SENDING THE EMAIL TO"
.From = "ENTER WHO THE EMAIL IS COMMING FROM"
.Subject = "ENTER YOUR SUBJECT"
.HTMLBody = body
.Send
End With
set iMsg = Nothing
end sub
%>