<%@LANGUAGE="VBSCRIPT"%> <% Dim view_Cities__MMColParam view_Cities__MMColParam = "1" If (Request.Form("State") <> "") Then view_Cities__MMColParam = Request.Form("State") End If %> <% Dim view_Cities Dim view_Cities_numRows Set view_Cities = Server.CreateObject("ADODB.Recordset") view_Cities.ActiveConnection = MM_Arochm_STRING view_Cities.Source = "SELECT City_Name FROM StateCities WHERE City_State = '" + Replace(view_Cities__MMColParam, "'", "''") + "' ORDER BY City_Name ASC" view_Cities.CursorType = 0 view_Cities.CursorLocation = 2 view_Cities.LockType = 1 view_Cities.Open() view_Cities_numRows = 0 %> <% Dim view_Stores__MMColParam view_Stores__MMColParam = "1" If (Request.Form("State") <> "") Then view_Stores__MMColParam = Request.Form("State") End If %> <% Dim view_Stores__MMColParam1 'view_Stores__MMColParam1 = "1" If (Request.Form("City") <> "") Then view_Stores__MMColParam1 = Request.Form("City") End If %> <% Dim view_Stores Dim view_Stores_numRows Set view_Stores = Server.CreateObject("ADODB.Recordset") view_Stores.ActiveConnection = MM_Arochm_STRING view_Stores.Source = "SELECT * FROM Arochem_Store_Locator WHERE SL_State = '" + Replace(view_Stores__MMColParam, "'", "''") + "' AND SL_City='" + Replace(view_Stores__MMColParam1, "'", "''") + "' ORDER BY SL_Name ASC" view_Stores.CursorType = 0 view_Stores.CursorLocation = 2 view_Stores.LockType = 1 view_Stores.Open() view_Stores_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 view_Cities_numRows = view_Cities_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 view_Stores_numRows = view_Stores_numRows + Repeat2__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim view_Stores_total Dim view_Stores_first Dim view_Stores_last ' set the record count view_Stores_total = view_Stores.RecordCount ' set the number of rows displayed on this page If (view_Stores_numRows < 0) Then view_Stores_numRows = view_Stores_total Elseif (view_Stores_numRows = 0) Then view_Stores_numRows = 1 End If ' set the first and last displayed record view_Stores_first = 1 view_Stores_last = view_Stores_first + view_Stores_numRows - 1 ' if we have the correct record count, check the other stats If (view_Stores_total <> -1) Then If (view_Stores_first > view_Stores_total) Then view_Stores_first = view_Stores_total End If If (view_Stores_last > view_Stores_total) Then view_Stores_last = view_Stores_total End If If (view_Stores_numRows > view_Stores_total) Then view_Stores_numRows = view_Stores_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (view_Stores_total = -1) Then ' count the total records by iterating through the recordset view_Stores_total=0 While (Not view_Stores.EOF) view_Stores_total = view_Stores_total + 1 view_Stores.MoveNext Wend ' reset the cursor to the beginning If (view_Stores.CursorType > 0) Then view_Stores.MoveFirst Else view_Stores.Requery End If ' set the number of rows displayed on this page If (view_Stores_numRows < 0 Or view_Stores_numRows > view_Stores_total) Then view_Stores_numRows = view_Stores_total End If ' set the first and last displayed record view_Stores_first = 1 view_Stores_last = view_Stores_first + view_Stores_numRows - 1 If (view_Stores_first > view_Stores_total) Then view_Stores_first = view_Stores_total End If If (view_Stores_last > view_Stores_total) Then view_Stores_last = view_Stores_total End If End If %> AROCHEM INTERNATIONAL - Manufacturer of Non-Alcoholic Roll on Perfumes - Ratlam (M.P.) INDIA
HOME     ABOUT US    FLOOD OF FRAGRANCE  
  WORK WITH US
  FRAGRANCE CARNIVAL
  
   
  NEW ARRIVALS
  WHERE TO BUY
  DO’S & DONT’S
  ENQUIRY FORM
  REACH US
  SITE MAP
 
 
   
WHERE TO BUY - Store Locator

State:  City:
<% If Not view_Stores.EOF Or Not view_Stores.BOF Then %> Found <%=(view_Stores_total)%> Stores in <%=request.form("City")%> (<%=request.form("State")%>) <%else%> <%if request.form("State")<>"" AND request.form("City")<>"" AND request.form("City")<>"none" then %> Found <%=(view_Stores_total)%> Stores <% End If End If' end Not view_Stores.EOF Or NOT view_Stores.BOF %>
<% While ((Repeat2__numRows <> 0) AND (NOT view_Stores.EOF)) %> <% If Not view_Stores.EOF Or Not view_Stores.BOF Then %>

<%=(view_Stores.Fields.Item("SL_Name").Value)%>
<%=(view_Stores.Fields.Item("SL_Address").Value)%>
<%=(view_Stores.Fields.Item("SL_City").Value)%> - <%=(view_Stores.Fields.Item("SL_State").Value)%>

Contact no.:
<%=(view_Stores.Fields.Item("SL_Phone").Value)%>
<%=(view_Stores.Fields.Item("SL_Mobile").Value)%>

Email: <%=(view_Stores.Fields.Item("SL_Email").Value)%>
__________________________________________________________________________ <% End If ' end Not view_Stores.EOF Or NOT view_Stores.BOF %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 view_Stores.MoveNext() Wend %>

 
  Best viewed with 1024X768 resolution Powered by MEDIAKROFT  
No part of this website may be copied, reproduced, republished, uploaded, posted, transmitted or distributed in any way for commercial purposes.
This prohibition also includes framing any content from this site on another site, as well as unauthorized linking.
<% view_Cities.Close() Set view_Cities = Nothing %> <% view_Stores.Close() Set view_Stores = Nothing %>