|
<% Dim myMail
Set myMail = Server.CreateObject("Persits.MailSender") %>
<%
strMessage = "The following feedback was received via the Internet at " & FormatDateTime(Now(), vbShortTime) & " on " & FormatDateTime(Now(), vbShortdate) & vbCrLf
strMessage = strMessage & "==================================" & vbCrLf & vbCrLf
strMessage = strMessage & "Name:" & Request.Form("username") & vbCrLf
strMessage = strMessage & "Company:" & Request.Form("Company") & vbCrLf & vbCrLf
strMessage = strMessage & "Category: " & Request.Form("Category") & vbCrLf
strMessage = strMessage & "OtherCategory: " & Request.Form("OtherCategory") & vbCrLf & vbCrLf
strMessage = strMessage & "Address 1: " & Request.Form("Add1") & vbCrLf
strMessage = strMessage & "Address 2: " & Request.Form("Add2") & vbCrLf
strMessage = strMessage & "City: " & Request.Form("City") & vbCrLf
strMessage = strMessage & "State: " & Request.Form("State") & vbCrLf
strMessage = strMessage & "Zip Code: " & Request.Form("Zip") & vbCrLf
strMessage = strMessage & "Phone: " & Request.Form("usertel") & vbCrLf
strMessage = strMessage & "Fax: " & Request.Form("userFax") & vbCrLf
strMessage = strMessage & "E-Mail Address: " & Request.Form("EMail") & vbCrLf & vbCrLf
strMessage = strMessage & "Comments: " & Request.Form("Comments") & vbCrLf & vbCrLf
strMessage = strMessage & "Contact Me Now!: " & Request.Form("contactrequested") & vbCrLf & vbCrLf
strMessage = strMessage & "==================================" & vbCrLf & vbCrLf
strMessage = strMessage & "Remote Address: " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf
strMessage = strMessage & "Browser Type: " & Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf
%>
<%
myMail.Host = "mail.enteract.com"
myMail.From = Request.Form("Email")
myMail.FromName = Request.Form("username")
' Test Address Below
myMail.AddAddress "richw@westrick.org"
' myMail.AddAddress "expert@accountingco.com"
myMail.AddReplyTo Request.Form("Email")
myMail.Subject = "On-Line Information Request"
myMail.Body = strMessage
On Error Resume Next
myMail.Send
%>
<% If Err = 0 Then %>
Thank You For Your Feedback! |
|