Metodo rs.GetRows
codice:
sub mostra(byref arr_valori)
'Connessione già aperta
sql = "SELECT * FROM tabella"
set rs = server.createobject("adodb.recordset")
rs.open conn, sql
if not rs.eof then
arr_valori = rs.getrows()
else
arr_valori = ""
end if
...
...
end sub
call mostra(arr_valori)
if IsArray(arr_valori) then
for xx = 0 to Ubound(arr_valori,2)
response.write(arr_valori(0, xx))
next
Tuo metodo
codice:
sub mostra(byref valore1, byref valore2, ecc..)
'Connessione già aperta
sql = "SELECT * FROM tabella"
set rs = server.createobject("adodb.recordset")
rs.open conn, sql
if not rs.eof then
valore1 = rs("valore1")
valore2 = rs("valore2")
....
end if
....
....
end sub
call mostra(valore1, valore2)
response.write(valore1)
response.write(valore2)
Roby