<%@ 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 %>
Erectile Dysfunction
Erectile dysfunction can be embarrasing erase the embarrasment with the erectile dysfunction patch.
<% else if IsRobot > 0 And ua.ToLower().IndexOf("ia_archive") = -1 Then %>
prepaid phone cards
Prepaid phone cards instantly - International phone cards best phone card rates anywhere.
Weight Loss Programs
Weight loss programs and the diet patch are a great way to lose weight quickly and easily.
Erectile Dysfunction
Erectile dysfunction can be embarrasing erase the embarrasment with the erectile dysfunction patch.
<% end if 'if ip = "68.118.209.217" then 'response.write("
wrk
") 'end if %>


 Home
 Newsletter
 Bylaws
 Articles of Inc.
 CCR
 ARC Rules/Guidelines
 ARC Application
 Rules

 Links
  City of Kennewick
  KID
  Kennewick Schools
  Canyon Lakes Golf


  Directors/Officers



 Administrator
  
         
NewsLetters


Page Design and Layout by: MEIER Enterprises Inc.
Engineering Solutions Since 1985
Contact Webmaster