<%@ Language=VBScript %>
 |
<%
if cnsito.state=0 then
cnsito.open
end if
set rsP=server.CreateObject("ADODB.Recordset")
rsp.Open "SELECT * FROM Links",cnSito,3,3
if rsP.RecordCount>0 then
do
%>
 |
"><%=rsP("URL")%> |
<%=rsP("Commento")%> |
|
<%
rsP.MoveNext
loop until rsP.EOF
end if
%>