%@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
%>
 |
|
 |
       |












































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
%>

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