<%@LANGUAGE="VBSCRIPT"%> <% Dim rsMembers__varCategory rsMembers__varCategory = "Hotels/Motels/Inns" if (Request.QueryString("Business_Category") <> "") then rsMembers__varCategory = Request.QueryString("Business_Category") %> <% set rsMembers = Server.CreateObject("ADODB.Recordset") rsMembers.ActiveConnection = MM_Chamber2002_STRING rsMembers.Source = "SELECT * FROM MembersList WHERE Business_Category Like '" + Replace(rsMembers__varCategory, "'", "''") + "' ORDER BY Business_Name Asc" rsMembers.CursorType = 0 rsMembers.CursorLocation = 2 rsMembers.LockType = 3 rsMembers.Open() rsMembers_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsMembers_numRows = rsMembers_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count rsMembers_total = rsMembers.RecordCount ' set the number of rows displayed on this page If (rsMembers_numRows < 0) Then rsMembers_numRows = rsMembers_total Elseif (rsMembers_numRows = 0) Then rsMembers_numRows = 1 End If ' set the first and last displayed record rsMembers_first = 1 rsMembers_last = rsMembers_first + rsMembers_numRows - 1 ' if we have the correct record count, check the other stats If (rsMembers_total <> -1) Then If (rsMembers_first > rsMembers_total) Then rsMembers_first = rsMembers_total If (rsMembers_last > rsMembers_total) Then rsMembers_last = rsMembers_total If (rsMembers_numRows > rsMembers_total) Then rsMembers_numRows = rsMembers_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsMembers_total = -1) Then ' count the total records by iterating through the recordset rsMembers_total=0 While (Not rsMembers.EOF) rsMembers_total = rsMembers_total + 1 rsMembers.MoveNext Wend ' reset the cursor to the beginning If (rsMembers.CursorType > 0) Then rsMembers.MoveFirst Else rsMembers.Requery End If ' set the number of rows displayed on this page If (rsMembers_numRows < 0 Or rsMembers_numRows > rsMembers_total) Then rsMembers_numRows = rsMembers_total End If ' set the first and last displayed record rsMembers_first = 1 rsMembers_last = rsMembers_first + rsMembers_numRows - 1 If (rsMembers_first > rsMembers_total) Then rsMembers_first = rsMembers_total If (rsMembers_last > rsMembers_total) Then rsMembers_last = rsMembers_total End If %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Pismo Beach Chamber of Commerce - Pismo Beach, California
      Lodging Guide
      Dining Guide
      Visitor Guide
      Search by Alphabet
      Search by Category
      Why Join?
      Member Benefits
      Member Discounts
      Chamber Application
      Doing Business in PB
      Economic Profile
      Document Resources
      City Vision
      Calendar of Events
      Event Applications
      Newsletter
      New Members
      Board of Directors
      Ambassadors
      Visitor Hosts
      Chamber Staff


City Vision
 

Vision for Pismo Beach

What follows is a working document of a vision for the future of Pismo Beach. This vision primarily focuses on the newly defined downtown, but it is not limited to this area. Many of these proposals can be applied to Shell Beach Rd and other parts of Price St.

We have tried to include many of the options that have been discussed over the years. Our intention is to make this a living document. Areas that still can be addressed is Pier Development, Increased Height Limits, Downtown Density and anything else can be added when appropriate.

Define - Visitor Infrastructure:

Those physical elements, whether City owned or privately owned, that are critical to our Visitor Industry. These elements can have a negative or positive influence on our ability to compete for revenue in the Tourism Market. Their effect on the City's main sources of revenue is dependent on how they are maintained, managed, upgraded and improved.

This Vision has been prepared with the cooperation of the Pismo Beach Chamber of Commerce, the Pismo Beach Business Improvement Group, many of the Business and Property owners of the Downtown and assorted residents, visitors and anybody else that offered an opinion - 2003.
 


PISMO BEACH CHAMBER OF COMMERCE
581 Dolliver St.
Pismo Beach, CA 93449
(805)773-4382    FAX (805)773-6772
Email

Copyright 2006 Pismo Beach Chamber of Commerce.


<% rsMembers.Close() %>