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 %>

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

Officers President Vice President Treasurer Secretary	R. Gene Schreckhise -------- 509-585-7558 Ed McLaughlin -------- 509-586-8652 Ruth Beckmann -------- 509-585-6156 Jodi Landefeld -------- 509-582-4345
Board of Directors Christa Sasser -------- 509-586-1080 Manfred Beckmann - CCR Chair -------- 509-585-6156 Nick Wiltz - ARC Chair -------- 509-586-9325 Jason Goffard -------- 509-582-3576 Brent Mickelson -------- 509-586-8043 Todd Sprong- Landscape Chair -------- 509-586-7874 R. Gene Schreckhise -------- 509-585-7558 Brent Mickelsen -------- 509-586-8043 Troy Bacon -------- 509-582-9325
Manager Jodi Landefeld -------- 509-582-4345

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