<%
Dim Con, rs, qposiziona, conteggio, qconta, nome, cognome, citta, stato, tabart, foto, num

Set Con = Server.CreateObject ("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
server.MapPath("prova.mdb")
conteggio=0
num=1
qconta="Select count (inserimento.id)as num From inserimento"
Set rs = server.CreateObject ("ADODB.Recordset")
qposiziona="Select * From inserimento"


rs.Open qconta, con
conteggio= rs("num")-num
rs.Close
rs.Open qposiziona, con
rs.move (conteggio)

nome= rs("nome")
cognome= rs("cognome")
citta= rs("citta")
stato= rs("stato")
%>
<% while (num<5)%>
<table width="75%" border="1">
<tr>
<td height="59"></td>
<td height="59"><% response.write (nome)%></td>
<td height="59"></td>
</tr>
<tr>
<td height="177"></td>
<td height="177"><%response.write (cognome)%></td>
<td height="177"></td>
</tr>
<tr>
<td height="96"></td>
<td height="96"></td>
<td height="96"></td>
</tr>
</table>


<% num=num+1
rs.move(conteggio-num)
wend
rs.Close

%>


Perche mi da errore????


Tipo di errore:
ADODB.Recordset (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.


Sto impazzendo