<%set sock=server.CreateObject("adodb.connection")
sock.Open "dsn=doval","doval","dvlpsw"
sql="galeria_foto where af=0"
set rs=server.createobject("adodb.recordset")
rs.Open sql,sock,1,2,2
n=request("n")
if not rs.EOF then
if n="" then
actual=1
anterior=1
seguent=2
else
actual=n
for i=1 to actual-1
rs.movenext
next
if cint(n)=cint(rs.RecordCount) then
anterior=rs.recordcount-1
seguent=rs.recordcount
else
anterior=actual-1
seguent=actual+1
end if
end if
%>
Documento sin título
Atletisme / Galeria de fotos
<%=rs("descripcio_cat")%>
<%end if%>
<%end if%>
<%rs.close
sock.Close
set rs=nothing
set sock=nothing%>
Atletisme / Galeria de fotos