Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
aê ASPER's...
estou posta esse cógido para avaliação, mesclei um código de paginação postado aqui no forum com outro código que fiz que retorna o dados em três colunas, achei que ficou meio confuso e estou postando para avaliação. (Tá funcionando sem erros)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Registros = 3Pagina = Request.QueryString("pagina")If Pagina = "" ThenPagina = 1End If%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table width="330" border="0" cellspacing="0" cellpadding="5"> <% vcont = 0 vcod_eve_fot = Request.QueryString("vcod_eve_fot") SQL2 = "SELECT * FROM foto_treinamento WHERE cod_eve_fot = " & vcod_eve_fot & " " Set bdfot = Server.CreateObject("ADODB.Recordset") bdfot.PageSize = Registros bdfot.Open SQL2,bd,3,3 If bdfot.EOF Then Response.Write "Nenhum registro encontrado" Else bdfot.AbsolutePage = Pagina While Not bdfot.EOF AND x < bdfot.PageSize x = x + 1 if vcont = 0 then%> <tr> <%end if%> <td><div align="left"><a href="#" onClick="MM_openBrWindow('foto_popup.asp?cod_fot=<%=bdfot("cod_fot")%>','','scrollbars=yes,width=640,height=600')"><img src="../foto/<%=bdfot("arquivo_p")%>" border="0"></a> </div></td> <% bdfot.movenext vcont = vcont + 1 if vcont = 3 then if not bdfot.eof then vcont = 0%> </tr> <%end ifend ifwendanterior = pagina - 1proxima = pagina + 1ultima = bdfot.PageCountprimeira = 1ultm2 = FormatNumber(bdfot.PageCount - 1,0)If pagina > 1 AND pagina <> 2 ThenResponse.Write "<font color=#666666>"&"["&"</font>"&"<a href=tcompany_r2.asp?codfot="&vcod_eve_fot&"&pagina="&anterior - 1&">"&"<fon face=verdana>"&anterior - 1 &"</font>"&"</a>"&"<font color=#666666>"&"]"&"</font>"End IfIf pagina > 1 ThenResponse.Write "<font color=#666666>"&"["&"</font>"&"<a href=tcompany_r2.asp?codfot="&vcod_eve_fot&"&pagina="&anterior&">"&"<fon face=verdana>"&anterior&"</font>"&"</a>"&"<font color=#666666>"&"]"&"</font>"End IfResponse.Write "<font color=#666666>"&"["&"</font>"&pagina&"<font color=#666666>"&"]"&"</font>"If Not bdfot.EOF ThenResponse.Write "<font color=#666666>"&"["&"</font>"&"<a href=tcompany_r2.asp?codfot="&vcod_eve_fot&"&pagina="&proxima&">"&proxima&"</a>"&"<font color=#666666>"&"]"&"</font>"End IfEnd Ifbdfot.CloseSet bdfot = Nothing%> </tr></table></body></html>flwz B)
isso aeda mais detalhes do bd pra gente poder testar
opa,
a estrutura da tabela é a seguinte
cod_fot - código da foto
arquivo_p - foto pequena
arquivo_g - Foto grande
cod_eve_fot - Código do evento
é algo do tipo...
cod_fot | arquivo_p | arquivo_g | cod_eve_fot
37 | p37.jpg | g37.jpg | 7
38 | p38.jpg | g38.jpg | 7
Ajudou?
B)
agora já da pra tentar...
então tudo certo, ou cometi alguma cagada :wacko: dá uma verificada ai B)
Onde você está abrindo e fechando a conexão?
na verdade cortei essa parte do código...foi mal :blink:
como ficou a estrutura do DB pra alguem poder fazer os testes??