Questo è il codice della pagina realizzata:
========================================================
<html>
<head>
<script>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<title>La Sala dell'Araldo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../ceridwen.css" type="text/css">
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="body">
<%
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("foto.mdb"))
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM foto"
objRS.Open strSQL, objConn
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="51"><img src="../immagini/per_1.jpg" width="51" height="19"></td>
<td background="../immagini/per_2.jpg"> </td>
<td width="51"><img src="../immagini/per_3.jpg" width="51" height="19"></td>
</tr>
<tr>
<td background="../immagini/per_4.jpg"> </td>
<td background="../immagini/per.jpg">
<table border="1" cellpadding="2" cellspacing="2" width="100%" bordercolor="#000000">
<tr>
<td align="center" bgcolor="#A00000"><b><font size="2" color="#FFFFFF">Cliccare
sulle foto per vederle ingrandite</font></b></td>
</tr>
<tr>
<td align="center">
<%
If objRS.Eof=True or objRS.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else
For i=1 to RecordsPerPagina
if Not objRS.EOF then
%>
<img align="absmiddle" border="0" src="<%=objRS("image")%>" onClick="MM_openBrWindow('<%=objRS("pagina")%>?id=<%=objRS("idtel")%>','foto','fullscreen=yes')" class="immaginecliccabile" alt="<%=objRS("didascalia")%>">
<%
objRS.MoveNext
end if
Next
End if
%>
</td>
</tr>
</table>
</td>
<td background="../immagini/per_5.jpg"> </td>
</tr>
<tr>
<td><img src="../immagini/per_6.jpg" width="51" height="19"></td>
<td background="../immagini/per_8.jpg"> </td>
<td><img src="../immagini/per_9.jpg" width="51" height="19"></td>
</tr>
</table>
<%
Response.Write "<P><B>Pagine:</B> "
For pag=1 to objRS.PageCount
Response.Write "<A href='insiemefoto2.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
%>
</body>
</html>
==========================================================
Questo l'errore che mi restituisce il browser:
==========================================================
ADODB.Recordset error '800a0cb3'
Object or provider is not capable of performing requested operation.
/ceridwen/araldo/insiemefoto2.asp, line 31
==========================================================
Ci sto sbattendo la testa da un'ora ma non ho capito il problema...
Ovviamente ciò che voglio fare è la paginazione delle immagini visualizzate, visto che è un db di oltre 200 immagini...
Grazie!
