<%
Dim oConn
Dim oRS
Dim sSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\javier1287\db\datos1.mdb"))
%>
<%
Dim pp
pp = Request.QueryString("ID")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Pagina nueva 1</title>
<LINK REL="stylesheet" MEDIA="screen" HREF="pantalla.css"
TYPE="text/css">
</head>
<body class="normal">
<h1><%=pp%></h1>
<hr>
<ul>
<%
sSQL = "SELECT * FROM " & pp & " ORDER BY IDent"
Set oRS = oConn.Execute(sSQL)
Do Until oRS.EOF
%>
<li><a href="contenido.asp?ID=<%=pp%>&&Reg=<%=oRS("IDent" )%>"><%=oRS("Titulo")%></a></li>
<%oRS.MoveNext
Loop
%>
</ul>
</body>
</html>
<%
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>