Forse sono riuscito a "smuovere qualcosa"...scritta così la funzione và "solo" che mi restituisce solo un valore... aiut
codice:
SQLyear = "SELECT DISTINCT YEAR(data) FROM news"
Set adoRsyear=Conn.Execute(SQLyear)
totalyear=adoRsyear.GetRows
yearcampmax = Ubound(totalyear,1)
yearrecomax = LBound(totalyear,2)
adoRsyear.Close
set adoRsyear = Nothing
response.write "<table width=""100%"" border=""0"" cellpadding=""00"">" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "<td width=""1"" class=""newstext"">" & vbCrLf
response.write "</td>" & vbCrLf
response.write "<td width=""60%"" class=""newstext"">" & vbCrLf
response.write "Raggruppa per Anno" & vbCrLf
response.write "</td>" & vbCrLf
response.write "<td width=""44%"">" & vbCrLf
response.write "<select name=""yearmenu"" onChange=""MM_jumpMenu('parent',this,0)"">"& vbCrLf
for L = 0 to yearcampmax
for I = 0 to yearrecomax
response.write "<option value=""prova.html"">"& totalyear(L, I) &"</option>" & vbCrLf
Next
Next
response.write "</select>" & vbCrLf
response.write "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf
conn.close
Set conn=Nothing