Como Capturo desde un script SQL

[Mulato]

Saludos colegas...

Si tengo esta sentencia:

sqlcon = "SELECT descrip_tipo, descrip_ubicacion, cod_empresa FROM tipodocumento, ubicacion, empresa WHERE descrip_tipo='"&tipo&"' OR descrip_ubicacion = '"&ubicacion&"' OR cod_empresa = '"&empresa&"' "

Como hago para capturar el resultado sin usar Response Write pero que me de el resultado de lo que encontro para usarlo internamente es decir

tipo = función.fields ("descrip_tipo")
donde el resultado sea así

tipo = Documento
Ubicacion = Caracas
Empresa = 12

[Ysdragil]

No se si te este entendiendo bien, pero segun yo necesitas utilizar un RecordSet con los resultados de la consulta, y despues el RecordSet lo puedes recorrer e ir obteniendo los valores de los registros que coincidieron con tu consulta

[Mulato]

Donde consigo un ejemplo...?

[Ysdragil]

Aqui mismo:

'Primero realizar una conexion a la base de datos
Set Ob_Conn=Server.CreateObject("ADODB.Connection")
'Crea una DSN de Sistema a tu base de datos
Ob_Conn.Open "DSN=tu_dsn;UID=tser;PWD=tu_password"

'Creamos un objeto RecordSet
Set Ob_RsCons=Server.CreateObject("ADODB.RecordSet")

'Tu Consulta
sqlcon = "SELECT descrip_tipo, descrip_ubicacion, cod_empresa FROM tipodocumento, ubicacion, empresa WHERE descrip_tipo='"&tipo&"' OR descrip_ubicacion = '"&ubicacion&"' OR cod_empresa = '"&empresa&"' "

'Ejecutamos la consulta
Ob_RsCons.Open sqlcon,Ob_Conn,adOpenStatic,adLockOptimistic,adCmd Text

'Al ejecutar la consulta se utilizan algunos parametros como la cadena con la sentencia de SQL (sqlcon), la conexion activa (Ob_Conn), el cursor que indica como vas a abrir el RecordSet (adOpenStatic), el tipo de bloqueo a la base de datos (adLockOptimistic) y la forma en la que se realiza la consulta (adCmdText)
'Para hacer uso de estos parametros deberas de incluir un archivo que se llama ADOVBS.inc, si lo buscas en tu computadora seguramente esta. Este archivo lo debes de incluir en la parte superior de tu pagina con esta sentencia: <!--#INCLUDE FILE="ADOVBS.inc"-->, siempre y cuando este en el mismo directorio de tu ASP, sino deberas de poner el path

'Recorro los registros del RecordSet mientras no se encuentre un EOF (Final de Archivo)
Do While Not Ob_RsCons.EOF
'Obtengo el tipo
tipo=Ob_RsCons("descrip_tipo")
'Obtengo la ubicacion
ubicacion=Ob_RsCons("descrip_ubicacion")
'Obtengo la empresa
empresa=Ob_RsCons("empresa")
'Me muevo al siguiente registro
Ob_RsCons.MoveNext
'Cierro el ciclo
Loop

'El problema de este codigo es que cada vez que entres a un nuevo registro te va a sobre escribir el valor de tus variables. Si necesitas conservar el valor, puedes hacer un arreglo e irlas guardando. Si nada mas deseas imprimir en pantalla el resultado. Directamente de los recordset lo puedes hacer sin la necesidad de mandarlos a variables

Espero te sirva