<%@LANGUAGE="VBSCRIPT"%>
<%
Dim r1
Dim r1_numRows
Set r1 = Server.CreateObject("ADODB.Recordset")
r1.ActiveConnection = MM_conn_STRING
r1.Source = "SELECT * FROM libri WHERE titoloING = 'NO' ORDER BY ID DESC"
r1.CursorType = 0
r1.CursorLocation = 2
r1.LockType = 1
r1.Open()
r1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
r1_numRows = r1_numRows + Repeat1__numRows
%>
Documento senza titolo
<%
While ((Repeat1__numRows <> 0) AND (NOT r1.EOF))
%>