% lingua = "it" nomecategoria_titolo = "" set adoDataConn = Server.CreateObject("ADODB.Connection") adoDataConn.Open strConnection_MDB sql_for_file = "SELECT * from _categorie_prodotto" Set ObjRs = Server.CreateObject("ADODB.Recordset") ObjRs.Open sql_for_file, adoDataConn, adOpenStatic if not ObjRs.eof then do while not ObjRs.eof nomecategoria_titolo = nomecategoria_titolo & ObjRs("titolo_it") & ", " ObjRs.MoveNext loop end if ObjRs.close Set ObjRs = nothing adoDataConn.close Set adoDataConn = nothing nomecategoria_titolo = left(nomecategoria_titolo, len(nomecategoria_titolo)-2) %>