Conta 1 di x

[Gio&Ste]

Estraggo i primi 8 articoli inseriti nel db, glieli faccio contare in modo da fare notizia 1 di 8, 1 di 2 e così via.
Il problema sorge quando ci sono meno di 8 articoli, così come ho fatto mi stamperà a video sempre x di 8.

Come posso correggere in modo da avere x di y?

<%  Dim Visa, conta
						Set objConn = Server.CreateObject("ADODB.Connection")
						objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mdb-database/db.mdb")
						Set RecSet = Server.CreateObject("ADODB.Recordset")
						Visa = "SELECT TOP 8 * FROM comunica where Tipo='rassegna' ORDER BY ID DESC"
						RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic %>
				

<%	conta = 1
						Do Until RecSet.EOF %>
						[img]images/aaanews.gif[/img] di 8" />
				&amp;tipo=<%=RecSet("Tipo")%>"><% =RecSet("Titolo") %>

					<%	RecSet.MoveNext
						conta = conta + 1
						Loop
						RecSet.Close
						Set RecSet = Nothing
						objConn.Close
						set objConn = Nothing
					%>

[ZeroCool981]

basta che prima di estrarre gli articoli fai una select count(*) e conti quanti effettivamente sono presenti.

[diegocoz]

Puoi anche usare la prorietà RecSet.recordcount del tuo recordset, che però viene gestita solo in alcuni casi (dipende dai parametri di apertura del recordset, quelli che tu hai impostato a adOpenDynamic e adLockOptimistic, ora non ricordo se così la gestisce)

ciao