%@ LANGUAGE="VBSCRIPT" %>
| |||||||||
|
Thanks to all who continue to make their tool, sporting goods, clothing and other purchases through our Amazon affiliate link... Visit Shop Hoagies' Page to click on our affiliate links before you shop. Thanks for your support! Simple solution: Click and drag
Shop Hoagies'
Page link to your browser toolbar... (IE users should "turn on"
your Links toolbar before you drag the link) 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... |
|