Hacer un Select Limitado

[u_goldman]

Código:

Function ObtenerTop(cantidad)
  Dim ObjConn
  Dim rs
  Dim cmd
  Dim param
  Dim qry

  Set ObjConn = Server.CreateObject("ADODB.Connection")
  Set rs = Server.CreateObject("ADODB.Recordset")
  
  qry = "SELECT TOP " & cantidad & " campos FROM tabla WHERE condiciones"

  ObjConn.Open strConnect
  rs.Open qry, ObjConn, 3, 3

  if not rs.EOF then
    ds = rs.GetRows()
    rs.Close()
  else
    ds = null
  end if 

  Set rs = Nothing
  ObjConn.Close()
  Set ObjConn = Nothing
 
  ObtenerTop = ds
End Function

ds = ObtenerTop(100)

if isArray(ds) then
  'Aqui iteras este arreglo
else
  'No existe esta lista
end if

Salud