<%@LANGUAGE="VBSCRIPT"%> <% Public Rs,Cx %> <%Response.Expires = 0 dim Recmt, rsblitz, connnews, cnpath, vlogin, vsenha, objRS, varSQL, lin, col, rsdata, vmes, vdia, vano dim rscount, vtotal, vpag, resto, vqtd, vinicio, i, pagina, rstiti '----- Conexão com o Banco, Sem ODBC Call OpenDb() '----- Montar clusula SQL para consulta varSQL = "SELECT * from fotosgaleria where galeria="& trim(request("galeria")) &" order by codigo DESC" set rsblitz=Cx.execute(varSQL) set rscount=Cx.execute("SELECT count(codigo) as soma from fotosgaleria where galeria="& trim(request("galeria"))) vqtd=5 vtotal = rscount("soma") vpag = vtotal\vqtd resto = (vtotal/vqtd) - vpag if (resto = 0) then vpag = vpag-1 end if if (trim(request("pagina"))="") then pagina = 0 else pagina=trim(request("pagina")) end if vinicio = (pagina*vqtd) for i=0 to (vinicio-1) rsblitz.movenext next %>

<% if rsblitz.eof then %> <% else lin = 0 do until lin=5 col = 0 %> <% do until col=2 if not (rsblitz.eof) then %> <% rsblitz.movenext else %> <% end if col = col+1 loop %> <% lin = lin +1 loop end if %> " target="foto">" border="1" width="90" height="68">   <% if pagina>0 then %> &pagina=<%=(pagina-1)%>"> <% end if %> <% if ((trim(vpag)>0) and (cint(pagina)<>cint(vpag))) then %> &pagina=<%=(pagina+1)%>"> <% end if %>

<% Call CloseCx() %>