<%@LANGUAGE="VBSCRIPT"%> <% set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_connprd_STRING rs.Source = "SELECT * FROM tblCats" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 3 rs.Open() rs_numRows = 0 %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 rs_numRows = rs_numRows + Repeat3__numRows %>

Select... <% While ((Repeat3__numRows <> 0) AND (NOT rs.EOF)) %> "><%=(rs.Fields.Item("category").Value)%> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rs.MoveNext() Wend %> Please select a product category from the options below...

<% rs.Close() %>