<% paginas=(Request.QueryString("paginas")) evento=(Request.QueryString("evento")) fotos=(Request.QueryString("fotos")) descr=(Request.QueryString("descr")) foto=(Request.QueryString("foto")) Set conex=Server.CreateObject("ADODB.Connection") Set recgalerias=Server.CreateObject("ADODB.Recordset") Set recgalerias2=Server.CreateObject("ADODB.Recordset") Set RS_Galeria_Click = Server.CreateObject("ADODB.Recordset") cnpath=server.mappath("/") cnpath=left(cnpath, len(cnpath)-4) & "\Dados\joaosite.mdb" Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cnpath RS_Galeria_Click.Open "INSERT INTO TB_GALERIAS_CLICK VALUES(" & evento & ", 1 , '" & NOW() & "', '" & Request.ServerVariables("REMOTE_ADDR") & "')",conex recgalerias.Open "SELECT * FROM galerias where nmro=" & evento,conex recgalerias2.Open "SELECT * FROM galerias where nmro<>" & evento & "and tipo=" & Recgalerias.fields("tipo"),conex if fotos="" then fotos= recgalerias.fields("fotos") end if if descr="" then descr= recgalerias.fields("descr") end if if foto="" then foto=1 end if paginas=1 if RecGalerias.FIelds("fotos")>20 then paginas=RecGalerias.FIelds("fotos")/20 end if paginas=Cint(paginas) if RecGalerias.FIelds("fotos")/20>Cint(RecGalerias.FIelds("fotos")/20) then paginas=paginas+1 end if %> galeria
  Veja outras fotos nesta categoria
<% contb=0 do while not Recgalerias2.Eof contb=contb+1 Recgalerias2.movenext loop if contb>0 then Recgalerias2.movefirst do while not Recgalerias2.Eof conta=conta+1 if conta<10 then %>
  <% paginas=1 if RecGalerias2.FIelds("fotos")>20 then paginas=RecGalerias2.FIelds("fotos")/20 end if paginas=Cint(paginas) if RecGalerias2.FIelds("fotos")/20>Cint(RecGalerias2.FIelds("fotos")/20) then paginas=paginas+1 end if %> &fotos=<% Response.write RecGalerias2.FIelds("fotos")%>&paginas=<% Response.write paginas %>&descr=<% Response.write RecGalerias2.fields("descr")%>&foto=1> <% Response.write Recgalerias2.FIelds("titulo") %>  
<% else exit do end if Recgalerias2.MoveNext Loop end if %>
<% Recgalerias.close Recgalerias2.close %>