<% Dim DataConn, cmdDC, rsDC, qsDC Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = 15 DataConn.CommandTimeout = 30 DataConn.Open "DBQ=" & Server.MapPath("tummytub.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "", "" Set cmdDC = Server.CreateObject("ADODB.Command") cmdDC.ActiveConnection = DataConn cmdDC.CommandType = 1 %>
<% Dim CountyID Dim counter Dim i i = 1 CountyID = Request.Querystring("CountyID") IF CountyID <= 0 THEN Set rsDC = Server.CreateObject("ADODB.Recordset") rsDC.Open "SELECT * FROM counties ORDER BY CountyName;",dataConn,3,3 %> Buy direct from us   |   Web-based Retailers

Locate a Retailer: County Selection
<% END IF rsDC.MoveNext i = i + 1 loop rsDC.Close Set rsDC = Nothing %>
<% Do While NOT rsDC.EOF IF i = 11 or i = 21 or i = 31 or i = 41 or i = 51 THEN %> <% END IF %> <% IF rsDC.Fields("CountyID") <> 60 THEN %> "><% = rsDC.Fields("CountyName") %>
<% END IF IF i = 60 THEN %>
<% ELSEIF CountyID > 0 THEN Set rsDC = Server.CreateObject("ADODB.Recordset") rsDC.Open "SELECT * FROM counties ORDER BY CountyName;",dataConn,3,3 %> Buy direct from us   |   Web-based Retailers

Locate a Retailer: County Selection
<% END IF rsDC.MoveNext i = i + 1 loop rsDC.Close Set rsDC = Nothing i = 1 %>
<% Do While NOT rsDC.EOF IF i = 11 or i = 21 or i = 31 or i = 41 or i = 51 THEN %> <% END IF %> <% IF rsDC.Fields("CountyID") <> 60 THEN %> "><% = rsDC.Fields("CountyName") %>
<% END IF IF i = 60 THEN %>
<% Set rsDC = Server.CreateObject("ADODB.Recordset") rsDC.Open "SELECT * FROM counties WHERE CountyID=" & CountyID & ";",dataConn,3,3 rsDC.MoveFirst %>
<% = rsDC.Fields("CountyName") %>
<% rsDC.Close Set rsDC = Nothing %>
<% Set rsDC = Server.CreateObject("ADODB.Recordset") rsDC.Open "SELECT * FROM Companies WHERE CountyID=" & CountyID & ";",dataConn,3,3 Do While Not rsDC.EOF IF i = 5 or i = 9 THEN %> <% END IF %> <% IF rsDC.Fields("CompanyName") > "" THEN %>
<% = rsDC.Fields("CompanyName") %>
<% END IF %> <% IF rsDC.Fields("CompanyAddr1") > "" THEN %> <% = rsDC.Fields("Companyaddr1") %>, <% END IF %> <% IF rsDC.Fields("CompanyAddr2") > "" THEN %> <% = rsDC.Fields("CompanyAddr2") %>
<% END IF %> <% IF rsDC.Fields("CompanyAddr3") > "" THEN %> <% = rsDC.Fields("CompanyAddr3") %>
<% END IF %> <% IF rsDC.Fields("CompanyTown") > "" THEN %> <% = rsDC.Fields("CompanyTown") %>, <% END IF %> <% IF rsDC.Fields("CompanyPCode") > "" THEN %> <% = rsDC.Fields("CompanyPCode") %>
<% END IF %> <% IF rsDC.Fields("CompanyTelNo") > "" THEN %>
Tel. No.: <% = rsDC.Fields("CompanyTelNo") %>
<% END IF %> <% IF rsDC.Fields("CompanyFaxNo") > "" THEN %>
Fax No.: <% = rsDC.Fields("CompanyFaxNo") %>
<% END IF %> <% IF rsDC.Fields("CompanyWebAddr") > "" THEN %>
Website: " TARGET="_new" ID="pagelink"><% = rsDC.Fields("CompanyWebAddr") %>
<% END IF %> <% IF rsDC.Fields("CompanyNotes") > "" THEN %>
Notes: <% = rsDC.Fields("CompanyNotes") %> <% END IF %>
<% i = i + 1 rsDC.MoveNext loop rsDC.Close Set rsDC = Nothing %>
<% ELSE END IF %>
Website Designed by Anykey-Solutions
<% Set cmdDC = Nothing DataConn.Close Set DataConn = Nothing %>