Al momento faccio questo: 
	codice:
	 id = request.querystring("id")
 mese = request.querystring("mese")
 anno = request.querystring("anno")
 strSQL = "Select * from Message where id_uoat = "&id&" and mese = "&mese&" and anno = "&anno&" order by DataArrivo"
 Set strRec = Server.CreateObject("ADODB.Recordset")
 strRec.Open strSQL, cn, 3, 3
Do While NOT strREC.EOF
 
 response.write ("&strRec("id_settimana")&")
  strREC.MoveNext
Loop   
strREC.close
cn.close
set strREC = nothing
set cn = nothing
 
 Ma ottengo gli IDSettimana in questo modo:
  :master: