<%

'Creo oggetto ADO e apro la connessione
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "miodatabase"
 
'Creo l'istanza dei due recordset
Set rsUno=Server.CreateObject("ADODB.Recordset")
Set rsDue=Server.CreateObject("ADODB.Recordset")
 
'Apro un tabella all'interno sul rsUno
rsUno.Open "tabella", Conn
 
'Sposto il puntatore del rsUno avanti di un record
rsUno.MoveNext
 
'Creo una copia del rsUno con il metodo Clone
Set rsDue = rsUno.Clone()
 
'Notare che adesso rsDue è una copia del rsUno
'ed il puntatore di rsDue è posizionato sul primo record

%>