<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_atleti__MMColParam rs_atleti__MMColParam = "1" If (Request.QueryString("IdAtleta") <> "") Then rs_atleti__MMColParam = Request.QueryString("IdAtleta") End If %> <% Dim rs_atleti Dim rs_atleti_numRows Set rs_atleti = Server.CreateObject("ADODB.Recordset") rs_atleti.ActiveConnection = MM_max_STRING rs_atleti.Source = "SELECT IdAtleta, Atleta FROM Atleta_Risultato WHERE IdAtleta = " + Replace(rs_atleti__MMColParam, "'", "''") + "" rs_atleti.CursorType = 0 rs_atleti.CursorLocation = 2 rs_atleti.LockType = 1 rs_atleti.Open() rs_atleti_numRows = 0 %> <% Dim rs_discipline__MMColParam rs_discipline__MMColParam = "1" If (Request.QueryString("IdAtleta") <> "") Then rs_discipline__MMColParam = Request.QueryString("IdAtleta") End If %> <% Dim rs_discipline Dim rs_discipline_numRows Set rs_discipline = Server.CreateObject("ADODB.Recordset") rs_discipline.ActiveConnection = MM_max_STRING rs_discipline.Source = "SELECT DISTINCT IdDisciplina, DescDisciplina, IdAtleta&IdDisciplina FROM Atleta_Risultato WHERE IdAtleta = " + Replace(rs_discipline__MMColParam, "'", "''") + "" rs_discipline.CursorType = 0 rs_discipline.CursorLocation = 2 rs_discipline.LockType = 1 rs_discipline.Open() rs_discipline_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_discipline_numRows = rs_discipline_numRows + Repeat1__numRows %>

Home Risultati Foto Settore Giovanile Settore Master Maratonina
	<%=(rs_atleti.Fields.Item("Atleta").Value)%>	<% While ((Repeat1__numRows <> 0) AND (NOT rs_discipline.EOF)) %> " class="Stile6"><%=(rs_discipline.Fields.Item("DescDisciplina").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_discipline.MoveNext() Wend %>

<% rs_atleti.Close() Set rs_atleti = Nothing %> <% rs_discipline.Close() Set rs_discipline = Nothing %>