%
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
%>
<%
else
exit do
end if
Recgalerias2.MoveNext
Loop
end if
%>
<% Recgalerias.close
Recgalerias2.close
%>