questo e' vb, adattalo ad asp

codice:
Public Sub ReGenRs(objRS As ADODB.Recordset)

   If objRS.State = adStateOpen Then
      objRS.Close
   End If
   
   Set objRS = Nothing
   Set objRS = New ADODB.Recordset
   
End Sub