<%@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 %>     Coldspring Mill,   Haworth Road,   Cullingworth,   Bradford,   BD13 5EE       Telephone   +44 (0)1535 275 646   Fax   +44 (0)15355 271 541   Email   sales@coldspringmill.co.uk

<% rs.Close() %>