BOT Challenge

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim strThisCode 'As Strings Dim strThisImage 'As String Dim a_strCodes(12) 'As Array of Strings Dim cDomainName 'As String Dim RandNum 'As Integer Dim cImagePath 'As String Randomize RandNum = Int(Rnd * 12) + 1 cDomainName = Request.QueryString("site") a_strCodes(0) = "img_validate1.jpg" a_strCodes(1) = "img_validate2.jpg" a_strCodes(2) = "img_validate3.jpg" a_strCodes(3) = "img_validate4.jpg" a_strCodes(4) = "img_validate5.jpg" a_strCodes(5) = "img_validate6.jpg" a_strCodes(6) = "img_validate7.jpg" a_strCodes(7) = "img_validate8.jpg" a_strCodes(8) = "img_validate9.jpg" a_strCodes(9) = "img_validate10.jpg" a_strCodes(10) = "img_validate11.jpg" a_strCodes(11) = "img_validate12.jpg" strThisCode = "img_validate" & CStr(RandNum ) strThisImage = "img_validate" & CStr(RandNum ) & ".jpg" %> BOT Challenge

To ensure the security of our GuestBook database, I ask that you please type the code (displayed below) in the text box. This code is an image that cannot be read by a machine. It prevents automated programs from requesting access to our information.

<% if Request.QueryString("dir") = "failed" then Response.Write("

That code was incorrect, please try again

") end if %>