|



Support Hoagies' Page!
Click on
Shop Hoagies' Page before you visit your favorite on-line stores
including
Amazon,
Highlights,
Chinaberry, Prufrock
Press,
MindWare and many more, year-round and at the holidays. Thanks for your
support!
Donations
Your donations also help keep Hoagies' Gifted Education Page on-line.
| |
<%
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.
|