<%
Dim prodlist
Dim prodlist_numRows
Set prodlist = Server.CreateObject("ADODB.Recordset")
prodlist.ActiveConnection = MM_conn_unite_STRING
prodlist.Source = "SELECT * FROM sub2 ORDER BY ssub ASC"
prodlist.CursorType = 0
prodlist.CursorLocation = 2
prodlist.LockType = 1
prodlist.Open()
prodlist_numRows = 0
%>
Unite Products
<%
Dim Repeat25__numRows
Dim Repeat25__index
Repeat25__numRows = -1
Repeat25__index = 0
prodlist_numRows = prodlist_numRows + Repeat25__numRows
%>
<%
prodlist.Close()
Set prodlist = Nothing
%>
