" 'change this as desired; if using HTML, make sure to double attribute quotes
m_strEmailRecipient = "info@cxpe.com"
m_strEmailSubject = "A request for information from the CrossPoint Energy website" 'change this if you want the subject to be something else; useful for setting up an email filter
m_intBodyFormat = HTML 'sets format of email recipient will receive; use HTML or PLAINTEXT (constants defined below)
ProcessForm
%>
Contact Us
<% If m_blnSentEmail Then Response.Write m_strEmailNotification %>
<%
Dim m_strEmailNotification
Dim m_strEmailResponse
Dim m_strEmailRecipient
Dim m_strEmailSender
Dim m_strEmailSubject
Dim m_intBodyFormat
Dim m_blnSentEmail
Const HTML = 0
Const PLAINTEXT = 1
Const LOCALSERVER = 1
Const REMOTESERVER = 2
Sub ProcessForm()
If Request.Form.Count > 0 Then
m_strEmailSender = Request.Form("Email")
If Len(m_strEmailSender) = 0 Then m_strEmailSender = Request.ServerVariables("HTTP_HOST") & "@" & Request.ServerVariables("SERVER_NAME")
If m_intBodyFormat = 0 Then
ComposeHtmlEmail
Else
ComposePlainTextEmail
End If
m_blnSentEmail = True
End If
End Sub
Sub ComposePlainTextEmail()
Dim strMessageType
Dim intBodyFormat
Dim strBody
Dim strTo
Dim strSubject
Dim strFrom
strFrom = m_strEmailSender
strTo = m_strEmailRecipient
strSubject = m_strEmailSubject
intBodyFormat = m_intBodyFormat
strBody = "Subject: " & strSubject & vbCrLf & vbCrLf
For intIndex = 1 to Request.Form.Count
strBody = strBody & Request.Form.Key(intIndex) & vbCrLf & Request.Form.Item(intIndex) & vbCrLf & vbCrLf
Next
SendEmail strFrom, strTo, "", strSubject, strBody, intBodyFormat
End Sub
Sub ComposeHtmlEmail()
Dim strMessageType
Dim intBodyFormat
Dim strBody
Dim strTo
Dim strSubject
Dim strFrom
If Len(m_strHtmlStylesheet) = 0 Then m_strHtmlStylesheet = "http://" & Request.ServerVariables("SERVER_NAME") & "/style/email.css"
strFrom = m_strEmailSender
strTo = m_strEmailRecipient
strBcc = m_strEmailBcc
strSubject = m_strEmailSubject
intBodyFormat = m_intBodyFormat
strBody = "
Subject: " & strSubject & "
"
For intIndex = 1 to Request.Form.Count
strBody = strBody & "
" & Request.Form.Key(intIndex) & ":
" & Request.Form.Item(intIndex) & "
"
Next
strBody = strBody & "
IP Address:
" & Request.ServerVariables("REMOTE_ADDR") & "
"
SendEmail strFrom, strTo, "", strSubject, strBody, intBodyFormat
End Sub
Sub SendEmail(strFrom, strTo, strBcc, strSubject, strBody, intBodyFormat)
'Called by auto-compose subroutines, or can be called directly
Dim cdoMsg
Dim cdoConfig
Set cdoMsg = Server.CreateObject("CDO.Message")
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = LOCALSERVER
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
cdoConfig.Fields.Update
Set cdoMsg.Configuration = cdoConfig
cdoMsg.To = IsValidEmail(strTo)
If Len(strBcc) > 0 Then cdoMsg.Bcc = IsValidEmail(strBcc)
cdoMsg.From = IsValidEmail(strFrom)
cdoMsg.Subject = strSubject
If intBodyFormat = c_intHtml Then
cdoMsg.HTMLBody = strBody
Else
cdoMsg.TextBody = strBody
End If
cdoMsg.Fields("urn:schemas:httpmail:importance").Value = 1
cdoMsg.Fields.Update
cdoMsg.Send
Set cdoMsg = Nothing
Set cdoConfig = Nothing
End Sub
Function IsValidEmail(strEmail)
Dim regEx
Dim intRetVal
Set regEx = New RegExp
regEx.Pattern = ".*@.*\..*" 'This is just a basic test of the email format, does not guarantee it is a valid email address
intRetVal = regEx.Test(strEmail)
Set regEx = Nothing
If Not intRetVal Then
IsValidEmail = strEmail & " "
Else
IsValidEmail = strEmail
End If
End Function
%>
