%@LANGUAGE="VBSCRIPT"%> <% Dim appunti__MMColParam appunti__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then appunti__MMColParam = Request("MM_EmptyValue") End If %> <% Dim appunti Dim appunti_numRows Set appunti = Server.CreateObject("ADODB.Recordset") appunti.ActiveConnection = MM_conntopo_STRING appunti.Source = "SELECT * FROM Appunti WHERE Cod_Corso = " + Replace(appunti__MMColParam, "'", "''") + " ORDER BY Data DESC" appunti.CursorType = 0 appunti.CursorLocation = 2 appunti.LockType = 1 appunti.Open() appunti_numRows = 0 %>