Hola no manches hace siglos que no veia codigo asp 3 , que cosa tan horripilante
la verdad si me dio hasta ñañaras , te dejo aqui algo de pseudocodigo que podria funcionarte , es cosa de debugearlo , te dejo tambien el manual en español de adodb, basicamente ahi viene todo
http://www.lacorona.com.mx/fortiz/ad...htm#fieldcount
aunque es una buena practica en php no es necesario inicializar variables , por que se pueden inicializar al vuelo , ni tampoco destruirlas por que al terminar de interpretar desaparecen , ojo el codigo no esta probado es pa darte una idea del uso de adodb y de algunas cosillas que hace php , pero debugearlo y saber mas de php se te queda de tarea
Código PHP:
<?php
include ("conn.php"); * # INCLUIR CLASE DE CONEXION
*
@header('Content-type: text/xml');
echo("<?xml version='1.0' encoding='iso-8859-1'?>");
*
# DEFINICION DE VARIABLES , valdria la pena nomas el post pero checando seguridad
*
$i* * * * * * * = "";
$RS * * * * * * = "";
$fld* * * * * * = "";
$num_columns* * = "";
$NroSuministro *= $_POST['suministro'];
#$consul= * * * ="";
$SysEmpresa * * = 1; *
*
*
*
$SQL ="SELECT cor_documento correlativo,
nro_documento nro_documento,
tip_documento tipo_documento,
TO_CHAR (fec_documento, 'dd/mm/yyyy') fecha_emision,
TO_CHAR (fec_vencimiento, 'dd/mm/yyyy') fecha_vencimiento,
tot_documento total,
usuario_aprobador aprobador,
fec_documento fec
FROM nucssb0030 nuc30
WHERE cod_empresa = $SysEmpresa
AND nro_suministro = $NroSuministro
AND tip_documento = 'ON'
UNION
SELECT * cor_documento correlativo,
nro_documento nro_documento,
tip_documento tipo_documento,
TO_CHAR (fec_documento, 'dd/mm/yyyy') fecha_emision,
TO_CHAR (fec_vencimiento, 'dd/mm/yyyy') fecha_vencimiento,
tot_documento total,
usuario_aprobador aprobador,
fec_documento fec
FROM hisssb0004
WHERE cod_empresa = $SysEmpresa.
AND nro_suministro = $NroSuministro
AND tip_documento = 'ON'
ORDER BY fec DESC ";
*
# EJECUTA LA CONSULTA
*
$RS = $DB->Execute($SQL);
*
*
#CUENTA CUANTOS REGISTROS TE TRAJO LA CONSULTA Y LOS GUARDA EN UNA VARIABLE
*
$num_rows = $RS->RecordCount(); /* contamos el total de registros de resultado */
$num_cols = $RS->FieldCount();/*numero de columnas */
*
echo ("SE OBTUVIERON ".$num_rows. "CAMPOS<br>"); *#MUESTRA LA CANTIDAD DE REGISTROS EN UN MENSAJE
*
# ESCRIBE EN EL DOCUMENTO XML
*
echo "<registro>";
*
while (!$RS->EOF) {
echo "<tr>";
for ($i=0; $i < $num_cols; $i++) {
echo "<td>" . $RS-> fields[$i]. "</td>";
}
echo "</tr>";
$RS->MoveNext();
}
*
#SE CIERRA LA CONEXION
*
$conn->close();
*
*
?>