<%


if Request.ServerVariables("HTTP_REFERER")="http://www.bradleyfloors.com/contact.asp" or Request.ServerVariables("HTTP_REFERER")="http://bradleyfloors.com/contact.asp" then
else
Response.redirect "http://www.bradleyfloors.com"
end if


spamdetect=instr(1,Request("message"),"http://")
spamdetect2=instr(1,Request("city"),"Tokyo")
spamdetect3=instr(1,Request("address"),"http://")
spamdetect4=instr(1,Request("address"),"href")
spamdetect5=instr(1,Request("email"),"[email protected]")
spamdetect6=instr(1,Request("message"),"href")
spamdetect7=instr(1,Request("message"),"||")


'what to do if spam is detected.
if spamdetect>0 or spamdetect2>0 or spamdetect3>0 or spamdetect4>0 or spamdetect5>0 or spamdetect6>0 or spamdetect7>0 then
Response.write "Spam attempt, IP Address recorded"
Response.End
end if

if Request.Form("fname")="name" or Request.Form("lname")= "name" then
Response.write "Spam attempt, IP Address recorded"
Response.End
end if


   for n = 1 to Request.Form.Count
    vname = Request.Form.Key(n)
    vvalue = Replace(replace(Request.Form.Item(n),vbCRLF, chr(13)), "'", "''")
'if vvalue="" or vvalue="$" then 'removed when asked to see all info
'else 'removed when asked to see all info
bodycopy = bodycopy & vname & ":  <font color='#B00000'>" & vvalue & "</font><br> "
'end if 'removed when asked to see all info
next


Set mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.ContentType = "text/html"
mailer.FromName   = Request("contact_name")
mailer.FromAddress= Request("email")
mailer.RemoteHost = "smtp2.bee.net" 'Request.Form("txtRemoteHost")

mailer.AddRecipient "M.J. Bradley Co. Inc.", "[email protected]"
mailer.AddRecipient "M.J. Bradley Co. Inc.", "[email protected]"
mailer.AddRecipient "Scott Haslip", "[email protected]"

mailer.Subject    = "M.J. Bradley Co. Inc. Website Contact Us Submission"
mailer.BodyText   = bodycopy

If mailer.SendMail Then
Else
  Response.Write "<b><font color=""red"">Mail send failure. Error was " & Mailer.Response & "</font></b><br /><br />"
End If

Set Mailer = Nothing

response.redirect "thank_you.asp"




%>