<%if Request.QueryString("pg")="sp" then%> <%else%> <%end if%>
Links of Interest
Evolution Foods
Taxable Income?
Dehydrated Foods
Tru Fax Research
- Knowledge -
Inner Circle
Master Key System
<% 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 %> <% Else %> <% End If Set Mail = Nothing else%> <%end if end if if Request.Form("flag")="" or not bValidData then%> <% end if%>

Question / Comment / Contact


Your request has been submitted successfully.

If your message requires a response, I will aim to reply within 48 hours.


Mail was not sent, error message is

<%= Mail.Response %>

You may write to the webmaster at brian@2000biz.com


The form was incomplete, please correct the error and resubmit.
Name:
Email:
Message:
<%=Now%>