Canyon Lakes Property Owners Association

<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.Odbc" %> <% 'IMPORTANT - A custom error page has been defined in case any errors occur. 'The name of this page is error.aspx. This page must exist as well as the 'page you are currently viewing. The other dependancy is the web.config 'file which must exist in this directory. 'If you need to enable debugging, replace the line: ' 'with the line: 'error.aspx is a blank page. dim ip as String = Request.QueryString("ip") dim ua as String = Request.QueryString("ua") dim site as String = Request.QueryString("site") if len(ip) = 0 then ip = "127.0.0.1" end if if len(ua) = 0 then ua = "" end if if len(site) = 0 then site = "" end if 'site is not being used right now, however it can be used to determine what to do when a request comes from specific sites. dim strSql As String, strCon as String 'driver=MySQL;server=mysql3.buzzyplanet.com;uid=Bidset_Root;pwd=b1Dset;database=Bidset_BH strCon = "Driver={MySQL ODBC 3.51 Driver};Server=mysql3.buzzyplanet.com;Database=Bidset_BH;uid=Bidset_Root;pwd=b1Dset;option=3" strSql = "SELECT IF(ISNULL(COUNT(*)), 0, COUNT(*)) AS RobotCount FROM bh_ip WHERE IPStart = " & makeBigInt(ip) dim cn As OdbcConnection = New OdbcConnection(strCon) cn.Open() dim cmd as OdbcCommand = New OdbcCommand(strSql, cn) dim rsData As OdbcDataReader rsData = cmd.ExecuteReader() rsData.Read() dim IsRobot As Int32 = rsData.GetInt32(0) 'If IsRobot = 0 then visitor is not a robot, otherwise, visitor is a robot rsData.Close() cn.Close() if IsRobot > 0 And ua.ToLower().IndexOf("googlebot") > -1 then %> <% else if IsRobot > 0 And ua.ToLower().IndexOf("ia_archive") = -1 Then %> <% end if 'if ip = "68.118.209.217" then 'response.write("

wrk

") 'end if %>