<%@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"
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
