<%@LANGUAGE="VBSCRIPT"%> <% Dim rsDept Dim rsDept_cmd Dim rsDept_numRows Set rsDept_cmd = Server.CreateObject ("ADODB.Command") rsDept_cmd.ActiveConnection = MM_conn_STRING rsDept_cmd.CommandText = "SELECT * FROM sections where section_parent = 0 order by section_order ASC" rsDept_cmd.Prepared = true Set rsDept = rsDept_cmd.Execute rsDept_numRows = 0 %> <% Dim rsSpecials Dim rsSpecials_cmd Dim rsSpecials_numRows Set rsSpecials_cmd = Server.CreateObject ("ADODB.Command") rsSpecials_cmd.ActiveConnection = MM_conn_STRING rsSpecials_cmd.CommandText = "SELECT * FROM specials" rsSpecials_cmd.Prepared = true Set rsSpecials = rsSpecials_cmd.Execute rsSpecials_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsSpecials_numRows = rsSpecials_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsDept_numRows = rsDept_numRows + Repeat2__numRows %> Office paper and stationery catalogue | Highland Paper

Stationery and paper

<% While ((Repeat2__numRows <> 0) AND (NOT rsDept.EOF)) %> &name=<%=(rsDept.Fields.Item("section_name").Value)%>">

<%=(rsDept.Fields.Item("section_name").Value)%>



<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsDept.MoveNext() Wend %>