1 reply to this topic

[Touche]

Alguem pode me passar um link de tutorial/apostila/script de paginacao que preste ja fui em todos os sites conhecidos e nenhum presta... eles quando chega no ultimo registro aparece um erro na tela =/

quem puder me ajudar eu ficarei grato... pois sou iniciante na linguagem:

quero paginar isso oh -> são fotos divididas em 2 colunas...

ASP

<table width="720" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="210" background="nucleo/imgs/SELIGA_VERFOTO_r2_c1.gif"><img src="nucleo/imgs/SELIGA_VERFOTO_r1_c1.gif" width="201" height="86"><br>
<% Set Conn_flash = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../databases/fotos.mdb")
Conn_flash.Open ConStr
%>
<table width=170 border=0 align="center" cellpadding=0 cellspacing=0>
<tr>
<%
Set fotos = Conn_flash.Execute("SELECT * FROM fotos WHERE cod_evento =" & Request.QueryString("cod_evento") & " ORDER BY cod_foto")
cont = 0
pg = 0
While not fotos.EOF
cont = cont + 1
pg = pg + 1
%>
<td><div align="center"><a href="hits.asp?cod_foto=<%=fotos("cod_foto")%>" target="fotos"><img src="http://www2.seliga.n...fotos("foto_pq")%>" hspace="0" vspace="0" border="0" class="drag" style="filter:gray;" onMouseOver="this.style.filter=''" onMouseOut="this.style.filter='gray'"></a></div></td>
<%
fotos.MoveNext

if cont <= 1 then
response.Write("<td width=12></td>")
else
response.Write("</tr><tr><td colspan=6 height=12></td></tr><tr>")
cont = 0
End If

Wend
%>
</table>
<br>

[Luis Otávio]

qual o problema com o seu código?

vc não gostaria de participar do mais novo programa de afiliação do fórum? ele se chama.

"Você ja usou a busca hoje?"

Por favor, faça parte deste programa, e faça um moderador feliz.
Clique aqui para particiar:
http://forum.wmonlin...