ok grazie mille, da asp:


<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "accessDSN"
'voci1 = Con.Execute ("SELECT listino.id, listino.base, listino.light, listino.azienda, listino.avanzato FROM listino WHERE listino.id=2")
'voci = Con.Execute ( "SELECT * FROM listino")
'stampa = voci("base")
'var = stampa
sql = "SELECT * FROM listino ORDER BY listino.id"

Set rs.ActiveConnection = Con
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Source = "listino"
rs.Open sql, Con

x=0
Do until(x=23)
x = x+1

Response.Write ("base" & x & "=" & rs("base") & "&")
Response.Write ("basecosto" & x & "=" & rs("basecosto") & "&")
Response.Write ("light" & x & "=" & rs("light") & "&")
Response.Write ("lightcosto" & x & "=" & rs("lightcosto") & "&")
Response.Write ("azienda" & x & "=" & rs("azienda") & "&")
Response.Write ("aziendacosto" & x & "=" & rs("aziendacosto") & "&")
Response.Write ("avanzato" & x & "=" & rs("avanzato") & "&")
Response.Write ("avanzatocosto" & x & "=" & rs("avanzatocosto") & "&")
Response.Write ("servizi" & x & "=" & rs("servizi") & "&")

rs.MoveNext

Loop
rs.close
Set rs= Nothing

'voci = Con.Execute ("SELECT listino.id, listino.prova FROM listino WHERE listino.id=1")
'stampa = voci("prova")
'totbase = stampa
'Response.Write ("totbase=" & totbase)
%>




in flash recupero le variabili così:

dati = new LoadVars();
dati.load ("listino.asp")
dati.onLoad = function()
{
basecosto15 = dati.basecosto15;

totbase = basecosto15
};