<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim link Dim link_numRows Set link = Server.CreateObject("ADODB.Recordset") link.ActiveConnection = MM_amici_STRING link.Source = "SELECT * FROM Link ORDER BY Sito ASC" link.CursorType = 0 link.CursorLocation = 2 link.LockType = 1 link.Open() link_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 link_numRows = link_numRows + Repeat1__numRows %> Disabili mentali: amici senza limiti

Link

<% While ((Repeat1__numRows <> 0) AND (NOT link.EOF)) %>

<%=(link.Fields.Item("Sito").Value)%>

" target="_blank"><%=(link.Fields.Item("Indirizzo").Value)%>

<%=(link.Fields.Item("commento").Value)%>

 

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 link.MoveNext() Wend %>

Hai stampato una pagina del sito www.santegidio.org

<% link.Close() Set link = Nothing %>