<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = db Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "" sql = sql & " Select a.ID, a.imgtop, a.titulo, a.data, b.imgpq, b.imggd, b.legenda, b.IDgaleria, b.ID " sql = sql & " FROM galeria AS a, galeriafotos AS b " sql = sql & " WHERE b.IDgaleria = "&validatxt(Request.QueryString("ID"))&" AND b.IDgaleria = a.ID " sql = sql & " ORDER BY b.ID ASC " Rs.Open SQL, Conexao, 3, 3 %> Untitled Document <% numcolunas = 1 numcolunas2 = 0 Rs.MoveFirst While NOT Rs.EOF if numcolunas2 = (numcolunas + 1) Then %> <% end if %> <% if numcolunas2 = numcolunas Then %> <%numcolunas2 = -1 end if numcolunas2 = numcolunas2 + 1 Rs.MoveNext() Wend %>