problemas na tabela vertical

[salmeida 0]

Olá pessoal

eu estou dessendo registro do banco de dados, no caso estou desendo registros

na vertical... ao inves ser assim

 

PHP | ASP

XML | JPS

 

estou fazendo assim

 

ASP | PHP | XML | JPS | VBS |

e mais 5 registros em baixo... e ai vai indo...

 

entenderão...

mais é o seguinte, ele não esta listando o banco de dados, esta apenas amostrando o

primeiro registro....

 

mais só que esta aqui a baixo a linha de conexão e select

 

<%id_data = Request.QueryString("id_data")If IsEmpty(Request.QueryString("id_data")) then	Response.redirect "index.asp"	else	Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dados/db_fotos.mdb")	Set Conn=Server.CreateObject("ADODB.Connection")	Conn.open Conn_String	    sql = "SELECT * from fotos where id_data ='" & id_data & "'"    sql2 = "select * from fotos order by id_fotos"    set rs = Conn.Execute (sql)    set rs = conn.execute (sql2)    fotos = rs("foto")        sql3 = "select * from data order by t_fotos"     set rs = conn.execute (sql3)total = rs("t_fotos")  %>

e abaixo a linha onde esta fazendo a listagem, só que aqui estou trabalhando com imagens..

 

<%      inicio = 1 : fim = totalResponse.Write "<table>" & vbCrLfFor i = inicio To fima = a + 1If a = 7 Or i = 1 Then Response.Write " <tr>" & vbCrLf : a = 1Response.Write " <td><a href=""javascript:;"" onClick=""fotopopup('fotos/"& fotos & ".jpg','409','302',':: Clique na imagem para fechar ::','#000000','hug image','0')""><img border=0 src=fotos/small_"& fotos &".jpg></a></td>" & vbCrLfIf a = 6 Or i = fim Then Response.Write " </tr>" & vbCrLfNextResponse.Write "</table>"%><tr>      <td width="100%"> </body></html><% end if%>

Abraços

[Salgado 4]

Faltou o RS.MoveNext (dentro do For) por isso repete sempre o mesmo.

[salmeida 0]

Faltou o RS.MoveNext (dentro do For) por isso repete sempre o mesmo.

assim

<%      inicio = 1 : fim = totalResponse.Write "<table>" & vbCrLfFor i = inicio To fima = a + 1If a = 7 Or i = 1 Then Response.Write " <tr>" & vbCrLf : a = 1Response.Write " <td><a href=""javascript:;"" onClick=""fotopopup('fotos/"& fotos & ".jpg','409','302',':: Clique na imagem para fechar ::','#000000','hug image','0')""><img border=0 src=fotos/small_"& fotos &".jpg></a></td>" & vbCrLfIf a = 6 Or i = fim Then Response.Write " </tr>" & vbCrLfNextResponse.Write "</table>"%><tr>      <td width="100%"> </body></html><%RS.MoveNext end if%>

abraços

[Salgado 4]

Dá uma olhada nesse Link, talvez lhe ajude!

<%

inicio = 1 : fim = total

 

Response.Write "<table>" & vb script:;"" onClick=""fotopopup('fotos/"& fotos & ".jpg','409','302',':: Clique na imagem para fechar ::','#000000','hug image','0')""><img border=0 src=fotos/small_"& fotos &".jpg></a></td>" & vbCrLf

If a = 6 Or i = fim Then Response.Write " </tr>" & vbCrLf

RS.MoveNext

Next

Response.Write "</table>"

%>

<tr>

    <td width="100%"> </body></html><%

end if%>