<%
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
public Function Fix(strA)
if trim(strA) <> "" then
Fix = replace(strA,"'","''")
end if
End Function
if request("submit")="Submit" then
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
Company=request.form("company")
Contact=request.form("contact")
Title=request.form("title")
Address1=request.form("address1")
Address2=request.form("address2")
City=request.form("city")
UState=UCase(request.form("state"))
State=request.form("state")
Zip=request.form("zip")
Email=request.form("email")
Phone=request.form("phone")
Fax=request.form("fax")
Chkadvertisement=request.form("chkadvertisement")
Chkreferral=request.form("chkreferral")
Chktradeshow=request.form("chktradeshow")
Chkwebsearch=request.form("chkwebsearch")
Chkother=request.form("chkother")
Chkpresentation=request.form("chkpresentation")
Chkschedule=request.form("chkschedule")
Comments=request.form("comments")
vMsg1 = "CONTACT FORM SUBMITTAL" & "
"
vMsg1 = vMsg1 & "This is the information submitted to the contact form." & "
