 |
|
||
 |
|||
| Home | Company | Products | Services | Government | |||
 |
|
||||||||||||||||||||||||
|
|
||||||||||||||||||||||||
"
Dim m_strSenderEmail, m_strSenderName, m_strSubject, m_strBody
Dim m_objCDO
m_strSenderEmail = Trim(Request("txtEmail"))
If Len(m_strSenderEmail) Then
On Error Resume Next
m_strSubject = "WEBSITE_INQUIRY_FROM: " & m_strSenderEmail
m_strSenderName = Trim(Request("txtName"))
m_strBody = "FROM: " & m_strSenderName & vbNewLine & vbNewLine & _
"MESSAGE:" & vbNewLine & Trim(Request("txtMessage"))
Set m_objCDO= Server.CreateObject("CDONTS.NewMail")
With m_objCDO
.From = m_strSenderEmail
.To = m_RECIPIENT_EMAIL
.Subject = m_strSubject
.Body = m_strBody
.Send()
End With
If Err Then
m_strAttemptStatusMsg = "We're sorry. The messaging services are temporarily unavailable. Please try again later or contact us by phone or email." '"Error: " & Err.Description
Else
m_strAttemptStatusMsg = "Thank you for your inquiry or comment.
| ||||||||||||||||||||||||||||||||||||
