<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Declare Local Variables
Dim ErrorMessage, Wname, email, comments
'Initialize Local Variables
ErrorMessage = ""
Wname = Request("Wname")
email = Request("email")
comments = Request("comments")
If Request("Submit") = "Submit" Then
If Valid_CustInfoData() = True Then
Dim Mail, CommaPos, LastCommaPos, TestTransMessage
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.hhbcz.com"
Mail.Port = 25
Mail.From = "dakid@hhbcz.com"
Mail.FromName = "HHBCZ Dispatcher"
Mail.AddAddress "dakid@hhbcz.com"
Mail.AddCC ""
Mail.AddBcc "leo@hhbcz.com"
'Mail.AddReplyTo Request("Email")
Mail.Subject = "Information Request"
Mail.Body = "The following person is submitting:" & vbCRLF & vbCRLF &_
"Sender's Name: " & Request("Wname") & vbCRLF & _
"Sender's Email: " & Request("email") & vbCRLF & vbCRLF & _
"Sender's Comments: " & Request("comments")
Mail.Queue = True
Mail.Send
If Err <> 0 Then
'Append Error to Error Log
End If
Set Mail = Nothing
Wname = ""
email = ""
Comments = ""
ThankYou = "Your Email message has been sent. Thank you."
End If
End If
Function Valid_CustInfoData()
Valid_CustInfoData = True
'Tests for all required fields
If Trim(Request("Wname")) = "" OR _
Trim(Request("email")) = "" OR _
Trim(Request("comments")) = "" Then
ErrorMessage = "Cannot Deliver Message: All Fields Are Required"
Valid_CustInfoData = False
Exit Function
End If
End Function
%>
HHBCZ.com
