%@ LANGUAGE="VBSCRIPT" %>
| |||||||||
|
Hoagies' Page needs YOU!
You are our only source of income. Visit Shop Hoagies' Page to click on our affiliate links before you shop. If our visitors will continue to support Hoagies' Page through our affiliate programs, we can leave the links off permanently - this will make Hoagies' pages load faster. Thanks for your support! Better solution: Click and drag
Shop Hoagies'
Page link to your browser toolbar... Donations
|
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "64.202.165.28"
Mail.Port = 25
Mail.From = request.form("Email")
Mail.FromName = request.form("Name")
Mail.AddAddress "webmaster@hoagiesgifted.org" 'this is a method - no = used
'Mail.AddCC 'this is a method - no = used
'Mail.AddBCC 'this is a method - no = used
'Mail.AddReplyTo 'this is a method - no = used
Mail.Subject = request.form("Subject")
strBody = "Comment Type - " & request.form("CommentType") & chr(13) & chr(10)
strBody = strBody & "Found Out - " & request.form("FoundOut") & chr(13) & chr(10)
strBody = strBody & "Subject - " & request.form("Subject") & chr(13) & chr(10)
strBody = strBody & "Comment - " & request.form("Comment") & chr(13) & chr(10)
strBody = strBody & "Name - " & request.form("Name") & chr(13) & chr(10)
strBody = strBody & "Location - " & request.form("CityStateCountry") & chr(13) & chr(10)
strBody = strBody & "E-mail address - " & request.form("Email") & chr(13) & chr(10)
strBody = strBody & "Connection Speed - " & request.form("Speed") & chr(13) & chr(10)
strBody = strBody & "IP Address - " & Request.ServerVariables("REMOTE_ADDR") & chr(13) & chr(10)
strBody = strBody & "Remote Host - " & Request.ServerVariables("REMOTE_HOST") & chr(13) & chr(10)
Mail.IsHTML = False
Mail.Body = strBody
On Error Resume Next
Mail.Send
if Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
end if
%>
Thanks for your feedback. You will receive a response shortly.Click to return to Hoagies' Gifted Education Page... |
|