consigui um e zico otro

[crucifier 0]

consegui fazer akele negocio de registros em colunas..e não sei porq mas ele soh exibe a ultima imagem postada...

olhem aih o codigo:

 

<%DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "		  DSNtemp=dsntemp & "DBQ=" & server.mappath("mital.mdb")		  sqlstmt = "SELECT * FROM mital ORDER BY id DESC"		  Set rs = Server.CreateObject("ADODB.Recordset")		  rs.Open sqlstmt, DSNtemp, 3, 3  rs.Move Request.QueryString("id")TotalRecs = rs.recordcountx = 0For x = 1 to 9999	If rs.eof then		Exit For	Else		miniatura = rs("miniatura")		id = rs("id")		  link = "consulta.asp?id=" & id & ""		description = rs("nome")		  %>

esse aih embaxo eh o codigo pra exibi a tabela para fazer as colunas lah:

 

<%response.write "<table border=0 align=center cellpadding=0 cellspacing=0>"while NOT rs.EOF	  response.write "<tr>"	  for i = 1 to 4 'nº de colunas			if rs.EOF = True then exit for end if			response.write "<td width=30 height=90 align=right valign=top> <div align=center><td><div align=center><a href=""#""><img src=" & miniatura &" border=0 onMouseDown=""abrir_janela_popup('"& link &" ','janela','width=605,height=272,top=150,left=150')""><br>"& description &"</a></div></td>"			rs.MoveNext	  next	  response.write "</tr>"Wendresponse.write "</table>"%><br><%End IfNext%>

e ele soh exibe a ultima imagem postada..me ajudem XD

(eu tentei usar o negocio de colunas q tem nas duvidas frequentes e nao consigui entao usei esse soh q da zica na hora de exibir)

[crucifier 0]

peloamordedeus alguem ajuda eu....preciso desse sistema pronto pra hj gente!!se nao eu tomo fumo do chefe...por favor me ajudem!

[crucifier 0]

ninguem respondeu=(

[Mário Monteiro 179]

como assim só exibe a ultima???

[Salgado 4]

Teste:

<%DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("mital.mdb")
sqlstmt = "SELECT * FROM mital ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
rs.Move Request.QueryString("id")
TotalRecs = rs.recordcount

Colunas = 4

response.write "<table border=0 align=center cellpadding=0 cellspacing=0>"
while NOT rs.EOF
response.write "<tr>"
for i = 1 to Colunas 'nº de colunas
if rs.EOF = True then
 miniatura = "-"
 id = "-"
 link = "-"
 description = "-"
Else
 miniatura = rs("miniatura")
 id = rs("id")
 link = "consulta.asp?id=" & id & ""
 description = rs("nome")
 rs.MoveNext
end if

response.write "<td width=30 height=90 align=right valign=top> <div align=center><td><div align=center><a href=""#""><img src=" & miniatura &" border=0 onMouseDown=""abrir_janela_popup('"& link &" ','janela','width=605,height=272,top=150,left=150')""><br>"& description &"</a></div></td>"
next
response.write "</tr>"
Wend
response.write "</table>"
%>