<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim RecProgettista__v_idpers
RecProgettista__v_idpers = "null"
If (Request.QueryString("idpers") <> "") Then
RecProgettista__v_idpers = Request.QueryString("idpers")
End If
%>
<%
Dim RecProgettista
Dim RecProgettista_numRows
Set RecProgettista = Server.CreateObject("ADODB.Recordset")
RecProgettista.ActiveConnection = MM_connects_STRING
RecProgettista.Source = "SELECT * FROM personale WHERE idpersona = " + Replace(RecProgettista__v_idpers, "'", "''") + ""
RecProgettista.CursorType = 0
RecProgettista.CursorLocation = 2
RecProgettista.LockType = 1
RecProgettista.Open()
RecProgettista_numRows = 0
%>
<%
Dim RecPeriodo
Dim RecPeriodo_cmd
Dim RecPeriodo_numRows
Set RecPeriodo_cmd = Server.CreateObject ("ADODB.Command")
RecPeriodo_cmd.ActiveConnection = MM_connects_STRING
RecPeriodo_cmd.CommandText = "SELECT distinct(anno) FROM progetti ORDER BY anno desc;"
RecPeriodo_cmd.Prepared = true
Set RecPeriodo = RecPeriodo_cmd.Execute
RecPeriodo_numRows = 0
%>
<%
Dim RecClassi
Dim RecClassi_cmd
Dim RecClassi_numRows
Set RecClassi_cmd = Server.CreateObject ("ADODB.Command")
RecClassi_cmd.ActiveConnection = MM_connects_STRING
RecClassi_cmd.CommandText = "SELECT * FROM classi ORDER BY CLASSE ASC"
RecClassi_cmd.Prepared = true
Set RecClassi = RecClassi_cmd.Execute
RecClassi_numRows = 0
%>
inarco