|
|
Question / Comment / Contact
|
<%
sNL = chr(13) & chr(10) 'New Line characters
sSQL= ""
bValidData = True
if Request.Form("flag")<>"" then
sEmail=Request.Form("Email")
if sEmail="" then
bValidData = False
end if
ipos=instr(sEmail,"@")
if ipos=0 then
bValidData=False
end if
if Request.Form("Name")="" then
bValidData = False
end if
if Request.Form("message")="" then
bValidData = False
end if
if bValidData then
sMessage = "Mesaage sent: " & Now & sNL & sNL & Request.Form("message")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mail.AddRecipient "Testing", "brian@2000biz.com"
Mail.FromName = Request.Form("Name")
Mail.FromAddress= Request.Form("Email")
Mail.RemoteHost = "mail.hostek.com"
Mail.Subject = "2000Biz Home Page Contact - " & Request.Form("Name")
Mail.BodyText = sMessage
Mail.SendMail
if Mail.SendMail Then
Mail.ClearBodyText
Mail.ClearAllRecipients
Response.Write "done"
Response.End
%>
Your request has been submitted successfully.
If your message requires a response, I will aim to reply within 48 hours.
|
<% Else %>
Mail was not sent, error message is
<%= Mail.Response %>
You may write to the webmaster at brian@2000biz.com
|
<% End If
Set Mail = Nothing
else%>
| The form was incomplete, please correct the error and resubmit. |
|
<%end if
end if
if Request.Form("flag")="" or not bValidData then%>
|
|
<% end if%>
| <%=Now%> |
|