<% OPTION EXPLICIT %>
<%
Dim x
x = Request.ServerVariables("URL") 'NEEDED FOR FIREFOX TO REMEMBER OPEN NAVIGATION
Dim oReg, oUtil, oMail, oMail2, oHack
Dim m_Error
Dim FromAddr, FromName, ToAddr
Dim dBug, dBugMail
Set oUtil = new UTILITY
'VERIFY THE PAGE THAT SUBMITTED THE FORM POST AND THAT IT IS A POST
if (Request.ServerVariables("REQUEST_METHOD") = "POST") AND _
(oUtil.checkCaller("ZipLoop_Contact.html")) then
dBug = false
dBugMail = false
'CHECK IF FORM IS TRYING TO BE HACKED
Set oHack = new HACKER
If (oHack.CheckString(Request("sName"), 50, 0)) OR (oHack.CheckString(Request("sEmail"), 75, 0)) then
oHack.LogTrace
oHack.Message
End If
'CAPTCHA VALIDATION
If (Len(Request.Form(NAME_OF_CAPTCHA_TEXTBOX)) > 0) Then
if (dBug) then
RESPONSE.WRITE "CHECKING CAPTCHA BOX: " & UCASE(Request.Form(NAME_OF_CAPTCHA_TEXTBOX)) & " "
RESPONSE.WRITE "COMPARE TO: " & UCase(Session("CAPTCHA")) & " "
end if
If UCase(Request.Form(NAME_OF_CAPTCHA_TEXTBOX)) = UCase(Session("CAPTCHA")) Then
m_Error = false
m_sUserResult = "You typed " & Request.Form(NAME_OF_CAPTCHA_TEXTBOX) & " which was correct!"
Else
m_Error = true
m_sUserResult = "You typed " & Request.Form(NAME_OF_CAPTCHA_TEXTBOX) & " which was wrong!" & _
" (Support for cookies must be enabled in your web browser.)"
End If
else
m_Error = true
End If
if (dBug) then RESPONSE.WRITE "RESULTS: " & m_sUserResult & " "
if (m_error) then
oUtil.javaMessageWithBack "The answer to the security question was not correct!\n(NOTE: Support for cookies and javaScript must be enabled in your web browser.)"
response.end
end if
if NOT (dBug) then
'SEND MESSAGE
Set oMail = new MAIL
oMail.Init "PERSITS", 0
oMail.isHTML = true
if (dBugMail) then
ToAddr = "aubrey.evans@biomet.com"
else
ToAddr = "aubrey.evans@biomet.com"
end if
FromAddr = "webserver@ziploop.net"
FromName = "ZipLoop Technology Website"
oMail.ReadTemplate "info_request_template.htm"
oMail.Parameter ":NAME:", Request.Form("sName")
oMail.Parameter ":SUFFIX:", Request.Form("sSuffix")
oMail.Parameter ":ADDRESSONE:", Request.Form("sAddress1")
oMail.Parameter ":ADDRESSTWO:", Request.Form("sAddress2")
oMail.Parameter ":CITY:", Request.Form("sCity")
oMail.Parameter ":STATE:", Request.Form("sState")
oMail.Parameter ":ZIP:", Request.Form("sZip")
oMail.Parameter ":EMAIL:", "" & Request.Form("sEmail") & ""
oMail.Parameter ":PROCEDURES:", Request.Form("sProcedures")
oMail.Parameter ":ONGOING:", Request.Form("sOngoing")
ON ERROR RESUME NEXT
oMail.Sendmessage _
FromAddr, _
FromName, _
ToAddr, _
"ZipLoop Technology", _
"Information Request"
response.redirect "ZipLoop_Contact_Thankyou.html"
End If
End If
%>
ZipLoop Technology: Contact
