<%
if (request.QueryString("pagina")<>0) then
valor= request.QueryString("pagina")
strSQL = "SELECT * from imagenes where id=" & valor
else
valor=1
strSQL = "SELECT * from imagenes where id=" & valor
end if
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/bd_imagenes.mdb"))
'num_registros = 10
'if (request.queryString("pag") <> "") then
' pagina_actual = request.queryString("pag")
'else
' pagina_actual = 1
'end if
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL,oConn,3,1
if not(rs.eof) then
%>
| |
| |
|
| ___ |
|
| |
 " border="0"> |
|
| |
|
|
|
| |
|
| |
|
| |
|
| |
|
<%
else
response.Write(" No existen más páginas que mostrar en la Revista... Gracias!
")
response.Write("")
end if
%>
