<html>
<head>
<title>GReEn Mo0n ~ Grafica</title>
<link rel="stylesheet" type="text/css" href="http://www.nichiweb.com/pagina.css">
<Meta HTTP-EQUIV=keywords CONTENT="Template, splinder, iobloggo, layout, pagine personali, blinkie, fanlisting, fanlist, orologio, calendario, avatar, blinkie, banner, wallpaper, jukebox, dollz, tutorial, guide, adesivi">
</head>
<body>
<%
on error resume next
Set cn=Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\inetpub\webs\nichiwebcom\mdb-database\grafica-immagine.mdb"
cn.Open sc
quanti = 10
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
contatore = 0
rs.Open "SELECT * FROM GraficaImmagine WHERE categoria = '"& Request("CATEGORIA") &"' ", cn, 1
if rs.EOF Then
Response.Redirect"../../NOlavoro.asp?Messaggio=Non ci sono record inseriti"
End IF
rs.PageSize = quanti
rs.AbsolutePage = pag
While rs.EOF = False And contatore < quanti
%>
<table class="table" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%">
<img border="0" src="<%=Rs("immagine")%>">
<br>
<i><%=Rs("dataora")%></i>
</td>
</tr>
</table>
<%
rs.MoveNext
contatore = contatore + 1
Wend
%>
<%If pag > 1 Then%>
<a href="PAGgrafica-immagine.asp?Categoria=<%=Request("categoria")%>&pag=<%=pag-1%>">Indietro</a>
<%End If%>
<%
Dim x
x = 1
'categoria = Categoria
For x = 1 To rs.PageCount
If CInt(pag) <> x Then
%>
[<a href="PAGgrafica-immagine.asp?Categoria=<%=Request("categoria")%>&pag=<%=x%>"><%=x%></a>]
<%Else%>
[<a href="PAGgrafica-immagine.asp?Categoria=<%=Request("categoria")%>&pag=<%=x%>"><b><%=x%></b></a>]
<%
End If
Next
%>
<%If rs.EOF = False Then%>
<a href="PAGgrafica-immagine.asp?Categoria=<%=Rs("categoria")%>&pag=<%=pag+1%>">Avanti</a>
<%End If%>
</body>
</html>
<%
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
