Sip, sería algo así:
Dim strConection
'Tipos de Cursores de ADO
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'ADO. Estados de Objetos
Const adStateClosed = &H00000000
Const adStateOpen = &H00000001
Const adStateConnecting = &H00000002
Const adStateExecuting = &H00000004
'ADO. Tipos de Cursores
Const adUseServer = 2
Const adUseClient = 3
'ADO. Tipos de Bloqueos
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
'Constantes de la App, en este caso la cadena de conecciona a la bd
strConection = "Provider=Microsoft.Jet.OleDB.4.0;Data Sourcer=RUTA_BD;Persist Security Info=False"
'Variables
Dim oCnn, oRec
Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open strConection
Set oRec = Server.CreateObject("ADODB.Recordset")
oRec.CursorLocation = adUseClient
oRec.Open SENTENCIA_SQL, strConection, adOpenForwardOnly,adLockReadOnly
If oRec.State = adStateOpen Then
If Not oRec.EOF Then
Result = oRec.GetRows 'AQUI POR SI QUIERES EL RESULTADO EN UNA MATRIZ (EL QUE YO PREFIERO, ES MAS RAPIDO), Sino Recorres tu Recorset como siempre se hace (aunq es mas lento, yo en particular lo odio)
oRec.Close
end If
End If
set oRec = Nothing
Espero sirva de ayuda mi comentario, o si gustas me mandas tu correo personal y te envio todo un archivo de coneccion hecho en ASP, super configurable yo mismo tengo funciones de optimizacion en procesos para las consultas, paginación de registros y super facil de entender...
Saludos,
Cita:
Iniciado por alamarcheta 
Hola alex_vb. Me podrias decir como se quedaria el código con la modificación que tu me comentas. Es que soy de PHP y es la primare vez que hago una conexión de bd en ASP.
