purtroppo mi sono fatto prendere dall'euforia c'è ancora qualche errore
_________________ <%
rs.MoveNext
end if
Next
end if
end if



' liberiamo le risorse
rs.Close
Set rs = Nothing
cn.Close
set cn = Nothing
%>


<% Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("mdb-database/database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")



strSQL="select * from elenco where categoria =" & id
rs.Open strSQL,cn,1

if page="" then page=1


' ## in questo cxaso bisogna inserire i dati in tutti e due i campi di ricerca
'If sottocategoria="" or trim(sottocategoria)="%" Then
If categoria="id" Then
REsponse.Write("Nessun record.... prova a selezionare una categoria")

Else
TotalRecords = rs.RecordCount
If TotalRecords=0 then
Response.Write "<P align=center>Nessun record presente</P>"
Else
Response.Write "Attualmente sono presenti <font color=ff0000>" & TotalRecords & "</font> pubblicazioni "
%>


__________________________________________________ _________


<%
' paginazione
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
For i=1 to RecordsPerPagina
if Not rs.EOF then
%>

____________________________________________
___________________________________________

</td>
</tr>
</table>
</td>
<td width="270" valign="top" class="testo9bianco"><font color="#999999"><%=rs.fields("data")%> <font color="#FF0000">- <%=rs.fields("categoria")%> - <%=rs.fields("sottocategoria")%></font></font></td>
</tr>
<tr>
<td height="25" valign="top" class="testo11bianco">
<div align="justify"><font color="#FF0000">')" class="testo10biancolink"><%=LEFT(rs("nome"), 50)%></font></div></td>
</tr>
<tr>
<td height="5" colspan="3" align="center" valign="top" class="testo10bianco">[img]immagini/trat_bianco5-4.gif[/img]</td>
</tr>

__________________________________________________ ______



<%
rs.MoveNext
end if
Next
end if
end if



' liberiamo le risorse
rs.Close
Set rs = Nothing
cn.Close
set cn = Nothing
%>



questo e il codice che utilizzo che cavolo sto combinando... un aiuto per favore