7 è il NUmero
XXXXX il Motivo
12 Maglia

Si infatti l'ho tolto dal ciclo e messo sopra
sql = "SELECT * FROM T_Convocazioni"&session("StagioneAttuale")&" WHERE DataConvocazione = #" & DataAmerica & "# and Categoria = '" & session("Categoria") & "'"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open sql,strConn,1,3

ciclo for
......
next