<%@LANGUAGE="VBSCRIPT"%> <% Dim rsDistributors__MMColParam rsDistributors__MMColParam = "1" If (Request.Form("Zip") <> "") Then rsDistributors__MMColParam = Request.Form("Zip") End If %> <% Dim rsDistributors Dim rsDistributors_numRows Set rsDistributors = Server.CreateObject("ADODB.Recordset") rsDistributors.ActiveConnection = MM_Distributors_STRING rsDistributors.Source = "SELECT * FROM Table_Distr_Query WHERE Zip_From <= '" + Replace(rsDistributors__MMColParam, "'", "''") + "' AND Zip_To >= '" + Replace(rsDistributors__MMColParam, "'", "''") + "' ORDER BY Company ASC" rsDistributors.CursorType = 0 rsDistributors.CursorLocation = 2 rsDistributors.LockType = 1 rsDistributors.Open() rsDistributors_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsDistributors_numRows = rsDistributors_numRows + Repeat1__numRows %> Abex Custom Trade Show Display Exhibit and Booth
productfamilies

Find_Tabletops
Find_Banners
Find_Popups
Find_Panels


Find_Tabletops
Find_10x10
Find_10x20
Find_20x20
Find_20x30
Find_30x30
Find_Greater

Find_Backwalls
Find_Island
Find_Peninsula
Find_Other
Find_Counters
Find_Banners

Find_Under5000
Find_5000to10000
Find_10000to20000
Find_20000to40000
Find_Over40000

Find_Truss
Find_Flooring
Find_Computers
Find_Showcases
Find_Lightboxes
Find_Graphics

Rental_Atlanta
Rental_Chicago
Rental_Dallas
Rental_LasVegas
Rental_London
Rental_LosAngeles
Rental_NewOrleans
Rental_Orlando


    Exhibiting Tips

    Upcoming Shows


    search results, by zip code...

<% While ((Repeat1__numRows <> 0) AND (NOT rsDistributors.EOF)) %>
   
 
   <%=(rsDistributors.Fields.Item("Company").Value)%>
ADDRESS   
   <%=(rsDistributors.Fields.Item("Address1").Value)%>   <%=(rsDistributors.Fields.Item("Address2").Value)%>
CITY, STATE, ZIP  
   <%=(rsDistributors.Fields.Item("City").Value)%>, <%=(rsDistributors.Fields.Item("State").Value)%>, <%=(rsDistributors.Fields.Item("Zip").Value)%>
COUNTRY  
   <%=(rsDistributors.Fields.Item("Country").Value)%>
PHONE  
   <%=(rsDistributors.Fields.Item("Phone").Value)%>
FAX  
   <%=(rsDistributors.Fields.Item("Fax").Value)%>
EMAIL  
   "><%=(rsDistributors.Fields.Item("Email").Value)%>
WEB SITE   
  ','','toolbar=yes,location=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes,width=680,height=500')"> <%=(rsDistributors.Fields.Item("Web").Value)%>
 

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsDistributors.MoveNext() Wend %>

searchagain

 

©2005 Abex Display Systems • All Rights Reserved • webmaster@abex.com

 
<% rsDistributors.Close() Set rsDistributors = Nothing %>