<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Esami__MMColParam
Esami__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
Esami__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Esami
Dim Esami_numRows
Set Esami = Server.CreateObject("ADODB.Recordset")
Esami.ActiveConnection = MM_conntopo_STRING
Esami.Source = "SELECT * FROM esami WHERE Cod_Corso = " + Replace(Esami__MMColParam, "'", "''") + " ORDER BY Data DESC"
Esami.CursorType = 0
Esami.CursorLocation = 2
Esami.LockType = 1
Esami.Open()
Esami_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Esami_numRows = Esami_numRows + Repeat1__numRows
%>
Programmi dei corsi
ESAMI
E TEST
CATTEDRA
DI TOPOGRAFIA
Facoltà
di Ingegneria Civile - Università di Brescia -Italy
