<% Response.ExpiresAbsolute = #January 1, 2000 00:00:01# license_key = "FnjJqcvJsVIC" ipaddress = Request.ServerVariables("REMOTE_ADDR") 'ipaddress = "66.146.193.250" 'ipaddress = "124.115.0.164" '***** Redirects by troublesome robots and spiders '10/18/2010 Being hammered by a Chinese spider. Need to redirect it. if left(ipaddress,7)="124.115" then response.redirect("http://help.soso.com/webspider.htm") Dim objHttp, strQuery strQuery = "http://geoip3.maxmind.com/f?l=" & license_key & _ "&i=" & ipaddress set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objHttp.open "GET", strQuery, false objHttp.send mIPResponse = objHttp.ResponseText Set objHttp = Nothing mResults = split(mIPResponse,",") 'response.write mIPResponse mUserCountry = mResults(0) mUserRegion = mResults(1) mUserCity = mResults(2) mUserZipcode = mResults(3) mUserLatitude = mResults(4) mUserLongitude = mResults(5) mUserMetroCode = mResults(6) mUserAreaCode = mResults(7) mUserISP = mResults(8) mUserOrganization = mResults(9) 'Adds entry into userlog.mdb database for tracking Set BrowserCapabilities = Server.CreateObject("MSWC.BrowserType") Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionTimeout = 300 Conn.CommandTimeout = 300 Conn.Mode = 2 Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\cgi-bin\userlog.mdb" dim mSQL mSQL = "INSERT INTO UserLog1 (ThisDate,ThisTime,Page,SessionID,UserAgent,Browser,Version,Referer,RemoteAddr,UserURL,LogonUser,UserCountry,UserState,UserCity,UserZipcode,UserLatitude,UserLongitude,UserMetrocode,UserAreaCode,UserISP,UserOrganization ) VALUES (#" & Date & "#,#" mSQL = mSQL & Time & "#,'" mSQL = mSQL & "KKC Website" & "','" mSQL = mSQL & Session.SessionID & "','" mSQL = mSQL & Request.ServerVariables("HTTP_USER_AGENT") & "','" mSQL = mSQL & BrowserCapabilities.browser & "','" mSQL = mSQL & BrowserCapabilities.version & "','" mSQL = mSQL & Request.ServerVariables("HTTP_REFERER") & "','" mSQL = mSQL & Request.ServerVariables("REMOTE_ADDR") & "','" mSQL = mSQL & Request.ServerVariables("URL") & "','" mSQL = mSQL & Request.ServerVariables("LOGON_USER") & "','" mSQL = mSQL & mUserCountry & "','" mSQL = mSQL & mUserRegion & "','" mSQL = mSQL & mUserCity & "','" mSQL = mSQL & mUserZipcode & "'," mSQL = mSQL & mUserLatitude & "," mSQL = mSQL & mUserLongitude & ",'" mSQL = mSQL & mUserMetroCode & "','" mSQL = mSQL & mUserAreaCode & "','" mSQL = mSQL & mUserISP & "','" mSQL = mSQL & mUserOrganization & "')" 'response.Write mSQL 'response.end if Request.ServerVariables("REMOTE_ADDR") <> "XXX66.146.193.250" then ' exclude Chicago Office hits' conn.Execute(mSQL) sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" ' Set the mail server configuration Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="p3smtpout.secureserver.net" objConfig.Fields.Update ' Create and send the mail Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From="mac@kendigkeast.com" objMail.ReplyTo="mac@kendigkeast.com" objMail.To="mac@kendigkeast.com" objMail.TextBody="The RapidRegs sales page was viewed by: " & replace(mIPResponse,",",vbCrLf) objMail.Subject="ZoningPlus hit from " & mUserOrganization objMail.Send set objMail = nothing set objConfig = nothing ' Send text message ' set mail=server.CreateObject("CDONTS.NewMail") ' mail.From = "mac@kendigkeast.com" ' like my.email.addr@comsoltech.com ' mail.To = "7085581132@mobile.mycingular.com" ' like john.doe@comsoltech.com ' mail.Subject = "RapidRegs/Google AdWords Inquiry" ' mail.Body = "The RapidRegs sales page was viewed by " & Request.ServerVariables("REMOTE_ADDR") ' mail.BodyFormat = 0 ' 0 = HTML, 1 = Plain ' mail.MailFormat = 1 ' 0 = MIME, 1 = Text ' mail.Importance = 2 ' 0 =High, 1 = Medium, 2 = Low ' 'mail.attachFile ("c:\images\mypicture.gif") ' you can also attach files ' mail.Send ' set mail=nothing end if conn.Close set conn = nothing %> KendigKeast Collaborative, City and Regional Planning Consultants

In the News . . .

 

What we do

PLANNING  |  IMPLEMENTATION & REGULATION  |  DESIGN & VISUALIZATION
PHOTOGRAPHY & MAPPING  |  SOFTWARE  |  CODE PUBLISHING  |  EXPERT TESTIMONY

Who we are

Kendig Keast Collaborative represents the collaboration of Lane Kendig, Bret Keast, AICP, and a select group of talented principals and associates. The firm's highly qualified, multi-disciplinary staff provide a variety of planning and plan implementation services to public and private sector clients. We listen carefully to our clients to ensure that our plans and codes reflect their shared values, and we apply our broad and deep experience to ensure that our clients understand the difficult choices they must make and to build consensus around decisions based on full information and strengthening of shared values. Our diverse group of professionals with experience in land planning, development, analysis, and information technology deliver broad perspectives and thoughtful solutions to our clients.

2011 APA National Conference

Better Planning Using Community Character

Session Powerpoint

APA Presentation

Community Character, Principles for Design and Planning

Lane H. Kendig with Bret C. Keast
Island Press, 2010

Community Character, Principles for Design and PlanningCommunity Character provides a design-oriented system for planning and zoning communities but accounts for how people who participate in a community live, work, and shop there. The relationships that Lane Kendig defines here reflect the complexity of the interaction of the built environment with its social and economic uses, taking into account the diverse desires of municipalities and citizens. Among the many classifications for a community’s “character” are its relationship to other communities, its size and the resulting social and economic characteristics.

According to Kendig, most comprehensive plans and zoning regulations are based entirely on density and land use, neither of which effectively or consistently measures character or quality of development. As this book shows, there is a wide range of measures that define character and these vary with the type of character a community desires to create. Taking a much more comprehensive view, this book offers “community character” as a real-world framework for planning for communities of all kinds and sizes.

A companion book, A Practical Guide to Planning with Community Character, provides a detailed explanation of applying community character in a comprehensive plan, with chapters on designing urban, sub-urban, and rural character types, using character in comprehensive plans, and strategies for addressing characteristic challenges of planning and zoning in the 21st century.

Sugar Land, TX   |   Baton Rouge, LA   |   Chicago, IL   |   Centennial, CO   |   Elk Grove, CA   |  Sturgeon Bay, WI 
Copyright © 2006-2011 by Kendig Keast Collaborative, Inc.  |  All rights reserved.  | info@kendigkeast.com