%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsDistributors__MMColParam rsDistributors__MMColParam = "1" If (Request.QueryString("State") <> "") Then rsDistributors__MMColParam = Request.QueryString("State") End If %> <% Dim rsDistributors Dim rsDistributors_cmd Dim rsDistributors_numRows Set rsDistributors_cmd = Server.CreateObject ("ADODB.Command") rsDistributors_cmd.ActiveConnection = MM_freealldist_STRING rsDistributors_cmd.CommandText = "SELECT Customer, Address, City, [State], Zip, PhoneF FROM distributors WHERE [State] = ? ORDER BY Customer ASC" rsDistributors_cmd.Prepared = true rsDistributors_cmd.Parameters.Append rsDistributors_cmd.CreateParameter("param1", 200, 1, 255, rsDistributors__MMColParam) ' adVarChar Set rsDistributors = rsDistributors_cmd.Execute rsDistributors_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsDistributors_numRows = rsDistributors_numRows + Repeat1__numRows %>
![]() Dealer LocatorLooking for a distributor?
<% If Not rsDistributors.EOF Or Not rsDistributors.BOF Then %>
<% If rsDistributors.EOF And rsDistributors.BOF Then %>
|
||||||||||
Copyright © 2006 |
|
![]() Toll-free: 1.800.660.6140 fainfo@freealloil.com |
|