|
|
|
|
| Contact Us
Your comments, inquiries and
suggestions are welcome! |
|
<%
if trim(request.querystring("fromform")) = "" then
subject = ""
email = ""
body = ""
name = ""
address = ""
tel = ""
else
error=""
if trim(Request.QueryString("subject")) = "" then
error= error & "You must type in a SUBJECT for your message.
"
end if
if trim(Request.QueryString("email")) = "" then
error=error & "You must specify your E-MAIL ADDRESS.
"
end if
if trim(Request.QueryString("name")) = "" then
error=error & "You must type in your NAME.
"
end if
if trim(Request.QueryString("body")) = "" then
error=error & "The BODY of your message cannot be left blank.
"
end if
if trim(error) = "" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.ClearAllRecipients
Mailer.FromName = "Contact Us Form"
Mailer.FromAddress = "webmaster@wvexplorer.com"
Mailer.AddRecipient "editorial", "editorial@wvexplorer.com"
Mailer.AddCC "webmaster", "webmaster@wvexplorer.com"
Mailer.ReplyTo = Request.QueryString("email")
Mailer.Subject = Request.QueryString("subject")
MsgText = MsgText & "PLEASE NOTE: This e-mail was sent from the CONTACT FORM at http://www.WVExplorer.com/Contact_Us/" & VbCrLf & VbCrLf
MsgText = MsgText & "IMPORTANT: If you use your REPLY key to respond to this message -- make sure the TO address of the (reply) message matches the sender's e-mail address, shown below:" & VbCrLf & VbCrLf
MsgText = MsgText & "E-mail address of sender: " & Request.QueryString("email") & VbCrLf & VbCrLf
MsgText = MsgText & "Name of sender: " & Request.QueryString("name") & VbCrLf & VbCrLf
MsgText = MsgText & "Company/Site URL: " & Request.QueryString("URL") & VbCrLf
MsgText = MsgText & "Company/Site Email Address: " & Request.QueryString("companyemail") & VbCrLf
MsgText = MsgText & "Company/Site name: " & Request.QueryString("companyname") & VbCrLf
MsgText = MsgText & "Company address: " & Request.QueryString("address") & VbCrLf
MsgText = MsgText & "Company telephone number (#1) of sender: " & Request.QueryString("tel1") & VbCrLf
MsgText = MsgText & "Company telephone number (#2) of sender: " & Request.QueryString("tel2") & VbCrLf & VbCrLf
MsgText = MsgText & "The message follows: " & VbCrLf & VbCrLf
MsgText = MsgText & Request.QueryString("body") & VbCrLf
Mailer.BodyText = MsgText
Mailer.RemoteHost = "mail.wvexplorer.com"
if Mailer.SendMail then
Response.Write "
THANK YOU for your comments. Your message has been sent.
"
else
Response.Write "An error has occurried. The message was not sent! Error was " & Mailer.Response
end if
Set Mailer=nothing
else
subject = trim(Request.QueryString("subject"))
email = trim(Request.QueryString("email"))
URL = trim(Request.QueryString("URL"))
companyemail = trim(Request.QueryString("companyemail"))
companyname = trim(Request.QueryString("companyname"))
body = trim(Request.QueryString("body"))
name = trim(Request.QueryString("name"))
address = trim(Request.QueryString("address"))
tel1 = trim(Request.QueryString("tel1"))
tel2 = trim(Request.QueryString("tel2"))
response.write "
IMPORTANT: You have left at least one required fields blank.
"
response.write "Please correct the following items:
"
response.write error
end if
end if
%>
|
|
|
|
|
