<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsDistributors__MMColParam
rsDistributors__MMColParam = "1"
If (Request.QueryString("State") <> "") Then
rsDistributors__MMColParam = Request.QueryString("State")
End If
%>
<%
Dim rsDistributors
Dim rsDistributors_numRows
Set rsDistributors = Server.CreateObject("ADODB.Recordset")
rsDistributors.ActiveConnection = MM_distributors_STRING
rsDistributors.Source = "SELECT * FROM Table_Distr WHERE State = '" + Replace(rsDistributors__MMColParam, "'", "''") + "' ORDER BY Company ASC"
rsDistributors.CursorType = 0
rsDistributors.CursorLocation = 2
rsDistributors.LockType = 1
rsDistributors.Open()
rsDistributors_numRows = 0
%>
Abex Custom Trade Show Display Exhibit and Booth
