<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim fotogaleria Dim fotogaleria_numRows Set fotogaleria = Server.CreateObject("ADODB.Recordset") fotogaleria.ActiveConnection = MM_cenaberta_STRING fotogaleria.Source = "SELECT First(imagens.id_noticia) AS [id_noticia Campo], Count(imagens.id_noticia) AS NúmeroDeDups, First(imagens.loc_imagem) AS PrimeiroDeloc_imagem, First(imagens.tamanho) AS PrimeiroDetamanho, First(noticias.fotogaleria) AS PrimeiroDefotogaleria, First(noticias.titulo) AS PrimeiroDetitulo FROM noticias INNER JOIN imagens ON noticias.id_noticia = imagens.id_noticia GROUP BY imagens.id_noticia HAVING (((Count(imagens.id_noticia))>1) AND ((First(noticias.fotogaleria))<>0))" fotogaleria.CursorType = 0 fotogaleria.CursorLocation = 2 fotogaleria.LockType = 1 fotogaleria.Open() fotogaleria_numRows = 0 %> cenaberta
   
 
<% Dim HLooper1__numRows HLooper1__numRows = 30 Dim HLooper1__index HLooper1__index = 0 fotogaleria_numRows = fotogaleria_numRows + HLooper1__numRows %>
 

 

 <% startrw = 0 endrw = HLooper1__index numberColumns = 3 numrows = 10 while((numrows <> 0) AND (Not fotogaleria.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not fotogaleria.EOF)) %> <% startrw = startrw + 1 fotogaleria.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

 

apresentação memória agenda documentação destaque edições conexões <% fotogaleria.Close() Set fotogaleria = Nothing %>