ADO, indlæs RS til Array

Ved ikke om du kan bruge det ?

Function db_GetRows(ByVal strConnectionString, ByVal strSQL)
  Dim objConn
  Dim objRs
  Dim OLEDB
  Set objConn = Server.CreateObject(\"ADODB.Connection\")
  objConn.Open strConnectionString
  Set objRs = objConn.Execute(strSQL)
  If Not objRs.EOF Then
    db_GetRows = objRs.GetRows()
  Else
    db_GetRows = Null
  End If
  objRs.Close
  objConn.Close
  Set objRs = Nothing
  Set objConn = Nothing
End Function


Fundet på:
http://www.aspalliance.com/remas/Library/Database/GetRows/

Jens

.GetRows hed den... thanx a zillion.