<% Dim strDB strDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db.mdb") Dim objConn SET objConn=Server.CreateObject("ADODB.Connection") objConn.Open strDB Dim strRS SET strRS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM tabLink WHERE tabLink.Ordine<>0 ORDER BY tabLink.Ordine;" strRS.Open SQL, objConn %> G A T T I D E L T O R R I N O . i t

g a t t i d e l t o r r i n o . i t


<% 'response.write " | " While Not strRS.EOF response.write ""& strRS.Fields.Item("Link").Value & "
" strRS.MoveNext() Wend strRS.Close Set strRS = Nothing objConn.Close Set objConn = Nothing %>