1 reply to this topic

[Touche]

Quero que na hora de exibir os 10 registros aparece a numeracao ao lado tipo:

1º

registro 1

2º

registro 2

3º

registro 3



Eis o codigo que to usando pra exibir os 10 registros...

           <%
ConnString ="DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("bd/fotos.mdb") & ";"

Dim XY, q

XY = 10

Set Conn = Server.CreateObject("adodb.connection")
Conn.Open ConnString
Sql = "SELECT * FROM fotos ORDER BY cliques desc"
Set Rs=Conn.Execute(Sql)

For q=1 to XY

%>
            <img src="fotos/<%=rs("foto_pq")%>" border="0">
                                                <%

Rs.MoveNext
If Rs.Eof Then Exit For
Next


Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>

por favor me ajudem sou ini e nao sei como fazer isso

[pchardnet]

For q=1 to XY
response.write (q)%>º <img src="fotos/<%=rs("foto_pq")%>" border="0">
<%
Rs.MoveNext
If Rs.Eof Then Exit For
Next


OLha se é isso aí...