<%
if request.querystring("borrado")<> "" then%>
El link seleccionado ha sido borrado
<%end if
Dim ntexto, ntipobusqueda, Conn, rs, strSQL, cCod, cSecc
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("db/base.mdb")
SQL="Select * FROM links order by fecha"
set rs=Conn.Execute(SQL)
%>
<%
if rs.eof then
Response.Write "No hay registros que cumplan la condición de búsqueda. Gracias"
else
%>
