%@ LANGUAGE="VBSCRIPT" %>
| |||||||||
|
Like Hoagies' Gifted Education Page? Like to see it grow? Click on
Shop Hoagies' Page before you shop at your
favorite on-line stores, including
Amazon and
Barnes & Noble,
ThinkGeek For easy shopping: Drag this link Shop Hoagies' Page right from here to your browser toolbar (you may need to turn on the Bookmarks Toolbar in Firefox or Favorites Bar in IE). Click on Shop Hoagies' Page and then your favorite store before you shop. Voila!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... |
|