<%@LANGUAGE="VBSCRIPT"%> <% set rslocations = Server.CreateObject("ADODB.Recordset") rslocations.ActiveConnection = MM_CoffeeWorld_STRING rslocations.Source = "SELECT LocationID, LocationName, PhoneNumber FROM jmurray.LOCATION ORDER BY LocationName ASC" rslocations.CursorType = 0 rslocations.CursorLocation = 2 rslocations.LockType = 3 rslocations.Open() rslocations_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rslocations_numRows = rslocations_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count rslocations_total = rslocations.RecordCount ' set the number of rows displayed on this page If (rslocations_numRows < 0) Then rslocations_numRows = rslocations_total Elseif (rslocations_numRows = 0) Then rslocations_numRows = 1 End If ' set the first and last displayed record rslocations_first = 1 rslocations_last = rslocations_first + rslocations_numRows - 1 ' if we have the correct record count, check the other stats If (rslocations_total <> -1) Then If (rslocations_first > rslocations_total) Then rslocations_first = rslocations_total If (rslocations_last > rslocations_total) Then rslocations_last = rslocations_total If (rslocations_numRows > rslocations_total) Then rslocations_numRows = rslocations_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rslocations_total = -1) Then ' count the total records by iterating through the recordset rslocations_total=0 While (Not rslocations.EOF) rslocations_total = rslocations_total + 1 rslocations.MoveNext Wend ' reset the cursor to the beginning If (rslocations.CursorType > 0) Then rslocations.MoveFirst Else rslocations.Requery End If ' set the number of rows displayed on this page If (rslocations_numRows < 0 Or rslocations_numRows > rslocations_total) Then rslocations_numRows = rslocations_total End If ' set the first and last displayed record rslocations_first = 1 rslocations_last = rslocations_first + rslocations_numRows - 1 If (rslocations_first > rslocations_total) Then rslocations_first = rslocations_total If (rslocations_last > rslocations_total) Then rslocations_last = rslocations_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 %> Coffee World Locations

Please note, this is not a live site. You must be connected to the Internet for some menus to work.

Java Jody’s Locations

Please visit one of our locations for a terrific cup of coffee, to purchase that special gift, or simply to relax and enjoy the day.

There are <%=(rslocations_total)%> locations in your area:

<% While ((Repeat1__numRows <> 0) AND (NOT rslocations.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rslocations.MoveNext() Wend %>

Location:	Phone:
<%=(rslocations.Fields.Item("LocationName").Value)%>	<%=(rslocations.Fields.Item("PhoneNumber").Value)%>	">more

<% rslocations.Close() %>