
<%
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/carpetasamigos.mdb")
sSQL="Select * From url where url"
set RS=conn.execute(sSQL)
'Imprimimos los enlaces
While Not RS.Eof%>
<%Response.redirect "url"%>
<%RS.MoveNext
Wend%>
<%
RS.Close
%>