<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("section_name") <> "") Then Recordset1__MMColParam = Request.QueryString("section_name") End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_conn_STRING Recordset1_cmd.CommandText = "SELECT * FROM specials" Recordset1_cmd.Prepared = true Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 50, Recordset1__MMColParam) ' adVarChar Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Office paper and stationery supplies | Highland Paper

<% if NOT Recordset1.EOF then %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
SPECIAL OFFERS

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

~
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
<%else%> <% end if %>

Leading supplier of office paper

PaperWhen you need the right paper for the job, Highland Paper is the right company to talk to.

At Highland Paper, we have over 45 years' experience in the paper business.

 

We know about paper

Highland Paper supply a range of stationery products for home and business at competitive prices, backed up with efficient and knowledgeable service.

We are your local paper specialist.

See our range of stationery, or call 01479 870170 to speak to us.


 

 

 






<% Recordset1.Close() Set Recordset1 = Nothing %>