Paginacao

[Touche 0]

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 [/tr][tr]

<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.net/fotos/<%=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>

[/tr]

[Mário Monteiro 179]

como assim dá erro no final???