<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_risultati__MMColParam rs_risultati__MMColParam = "118" If (Request.QueryString("Expr1002") <> "") Then rs_risultati__MMColParam = Request.QueryString("Expr1002") End If %> <% Dim rs_risultati Dim rs_risultati_numRows Set rs_risultati = Server.CreateObject("ADODB.Recordset") rs_risultati.ActiveConnection = MM_max_STRING rs_risultati.Source = "SELECT * FROM Atleta_Risultato WHERE IdAtleta&IdDisciplina = " + Replace(rs_risultati__MMColParam, "'", "''") + " ORDER BY DataGara Desc" rs_risultati.CursorType = 0 rs_risultati.CursorLocation = 2 rs_risultati.LockType = 1 rs_risultati.Open() rs_risultati_numRows = 0 %> <% Dim rs_descdisci__MMColParam rs_descdisci__MMColParam = "13" If (Request.QueryString("Expr1002") <> "") Then rs_descdisci__MMColParam = Request.QueryString("Expr1002") End If %> <% Dim rs_descdisci Dim rs_descdisci_numRows Set rs_descdisci = Server.CreateObject("ADODB.Recordset") rs_descdisci.ActiveConnection = MM_max_STRING rs_descdisci.Source = "SELECT DISTINCT DescDisciplina FROM Atleta_Risultato Where IdAtleta&IdDisciplina = " + Replace(rs_descdisci__MMColParam, "'", "''") + "" rs_descdisci.CursorType = 0 rs_descdisci.CursorLocation = 2 rs_descdisci.LockType = 1 rs_descdisci.Open() rs_descdisci_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_risultati_numRows = rs_risultati_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs_risultati_numRows = rs_risultati_numRows + Repeat2__numRows %> Documento senza titolo
Risultati
Foto
Settore Giovanile
Settore Master
Maratonina
       
Disciplina
      
<%=(rs_descdisci.Fields.Item("DescDisciplina").Value)%>
      
       
Data
Risultato
Categoria
Manifestazione
Note
<% While ((Repeat1__numRows <> 0) AND (NOT rs_risultati.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_risultati.MoveNext() Wend %>
<%=(rs_risultati.Fields.Item("DataGara").Value)%>
<%=(rs_risultati.Fields.Item("Risultato").Value)%>
<%=(rs_risultati.Fields.Item("Categoria").Value)%>
 <%=(rs_risultati.Fields.Item("descri").Value)%>
<%=(rs_risultati.Fields.Item("Nota").Value)%>
       
<% rs_risultati.Close() Set rs_risultati = Nothing %> <% rs_descdisci.Close() Set rs_descdisci = Nothing %>