<% Server.ScriptTimeout = 200 %> Revista Leer <% 'On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("revistaleer.mdb") Set REVISTA = Conn.Execute("SELECT * FROM datosrevista" ) %>
<% response.write "Nro "&REVISTA("numero")&" - "&REVISTA("mesyano") %> Revista Leer - info@revistaleer.com  
Contenido
Página principal
Los más vendidos
Los libros del mes
Historia y Cs. Sociales
Pensamiento
Los libros de
Ramón Tamames
Grandes Bibliotecas
Cómic
Revista Leer
Suscripciones
Publicidad
Contactar
Lista de Novedades
Obtenga en su casilla de
e-mail las novedades de Revista Leer


<% Set RS = Conn.Execute("SELECT * FROM paginaprincipal WHERE mostrar ORDER BY orden" ) Do While Not RS.EOF %>

<% if RS("titulo")&"x" <> "x" then %> <%= RS("titulo") %>
<% end if %> <% if RS("subtitulo1")&"x" <> "x" then %> <%= RS("subtitulo1") %>
<% end if %> <% if RS("subtitulo2")&"x" <> "x" then %> <%= RS("subtitulo2") %>
<% end if %> <% if RS("foto")&"x" <> "x" then %> "> <% if RS("fototexto")&"x" <> "x" then %> <% end if %>
" border="0">
<%= RS("fototexto") %>
<% end if %> <%= RS("texto") %>

<% RS.MoveNext Loop %>


" border=0>
Portada Impresa