logo2.gif (4628 bytes)Confirmation

Home

<% 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!
<% Else %> Mail was not sent, error message is <%=Err.Description%> <%= result %> <% End If %>

 

Home ] Up ]


 For more information e-mail us at: expert@accountingco.com or call 847-945-2142
Copyright © 1999 Accountingco, L.L.C.