codice:
'apro recordset
sub oRs(Nome,sql,op1,op2)
	
	dim rsTemporaneo
	set rsTemporaneo=server.CreateObject("adodb.recordset")
	rsTemporaneo.open sql,conn,op1,op2
	
	ExecuteGlobal "Dim " & Nome
	Execute "Set " & Nome & "=rsTemporaneo"
	Set rsTemporaneo = Nothing

end sub


'chiudo il recordset
sub cRs(ByRef nome)
	nome.close : set nome=nothing
end sub


esempio

oRs "pippo","select * from pippoTb",1,3

while not pippo.eof
....
pippo.movenext
wend

cRs pippo
in oRs considero che la connessione (con variabile "globale" conn) sia già aperta