conteggio righe

[forte78]

ho questa query


strSQL = "SELECT * FROM colloqui WHERE " & _
"operatorescadenza Like '%" & Trim(session("operatorescadenza")) & _
"%' AND datascadenza Like '%" & Trim(session("datascadenza")) & _
"%' AND aggiornato Like '%" & Trim(session("aggiornato")) & _
"%' AND tiposcadenza Like '%" & Trim(session("tiposcadenza")) & _
"%' ORDER BY datascadenza ASC, orainizioscadenza ASC"

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cny




<%
While NOT objrs.EOF
If Len(objrs("codiceimmobile")) > 0 Then Trova_Indirizzo(objrs("codiceimmobile"))
%>

<%=objrs("datascadenza")%>


<%objrs.MoveNext : Wend %>
come posso inserire vicino al campo scadenza , iniziando da 1 un conteggio dei record o righe successivi 2,3,4,5


esempio:


1 20/05/10
2 25/05/10
3 30/05/10
4 01/08/10
5 09/08/10
6 10/09/10

............



potete aiutarmi ?

ciao grazie

[optime]

mentre cicli nel loop, incrementi una variabile e la stampi

[forte78]

ci sto provando ma nn riesco ti mostro

ho fatto questo:

<%
Dim nFoto : nFoto = 1

Dim nIndex
While NOT objrs.EOF
If Len(objrs("codiceimmobile")) > 0 Then Trova_Indirizzo(objrs("codiceimmobile"))
nIndex = nFoto

%>

<%=nIndex%>


<%objrs.MoveNext : Wend : nIndex+1%>


cosi mi da errore

Microsoft VBScript runtime error '800a000d'
Type mismatch

line 212




x cortesia datemi una mano

[optime]

ho detto MENTRE, non DOPO! e le addizioni si fanno civilmente

...
Dim nIndex
nIndex=0
While NOT objrs.EOF
...
nIndex=nIndex+1
Response.Write nIndex
...
objrs.MoveNext
Wend
...

[forte78]

funziona grazie

[optime]

optime!