<%
Dim Conn        'Connection to Database
Dim RS            'RecordSet
Dim SQL            'String for SQL Statements

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.recordset")
Conn.Open strConn
cMaxTopLevel = 8

i_pagenum = 1

SQL = "SELECT * FROM PROMO_CORNETTO_ROYALE"
RS.open SQL,Conn,3,3

i_pagenum=1
if request("page")>1 then i_pagenum=request("page")
RS.pageSize=cMaxTopLevel
for indx = 1 to RS.Pagecount
    if indx <> Cint(i_pagenum) then
        response.write "<a href=view1.asp?page=" & indx & ">" & indx & "</a>&nbsp;"                                    
    else
        current_page = indx
        Response.write "<b><font face=""Arial"" size=""2"">" & indx & "</font></b>&nbsp;"
    end if
next
if i_pagenum>1 then
    RS.AbsolutePage=i_pagenum
else
    'dont set RS.AbsolutePage
end if

%>

<span class="text">Page
<%
for indx = 1 to RS.Pagecount
    if indx <> Cint(i_pagenum) then
        response.write "<a href=view1.asp?page=" & indx & ">" & indx & "</a>&nbsp;"                                    
    else
        current_page = indx
        Response.write "<b><font face=""Arial"" size=""2"">" & indx & "</font></b>&nbsp;"
    end if
next
if i_pagenum>1 then
    RS.AbsolutePage=i_pagenum
else
    'dont set RS.AbsolutePage
end if

%>
</span>