Hola a todos:
Gracias por cooperar y ayudar a solucionar este problema... para los que apenas empezamos en este mundo, voy a postear el código final... esperando que sirva como referencia para problemas posteriores...
Código HTML:
<!-- #include file="conexion.asp" -->
<%
set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
set rs3=server.CreateObject("adodb.recordset")
set rs4=server.CreateObject("adodb.recordset")
sql="SELECT distinct(idcliente) FROM ventas"
rs.open sql,conexion
do while not rs.eof
sql="SELECT id,nombre,direccion,rfc FROM clientes WHERE id="&rs("idcliente")&""
rs2.open sql,conexion
response.write("<br>")
do while not rs2.eof
response.write("Cliente: "&rs2("nombre")&" "&"Direccion: "&rs2("direccion")&" "&"RFC: "&rs2("rfc")&"<br>")
sql="SELECT numfact,idcliente FROM factura WHERE idcliente="&rs2("id")&""
rs3.open sql,conexion
do while not rs3.eof
response.write("Factura: "&"<br>")
response.write(rs3("numfact")&"<br>")
sql="SELECT * FROM facturadetalle WHERE numfact like '%"&rs3("numfact")&"%'"
rs4.open sql,conexion
response.Write("Productos: "&"<br>")
do while not rs4.eof
response.write("Tipo: "&rs4("tipo")&" "&"Clave Producto: "&rs4("claveprod")&"<br>")
rs4.movenext
loop
rs4.close
rs3.movenext
loop
rs3.close
rs2.movenext
loop
rs2.close
rs.movenext
loop
Infinitamente agradecido con todos los que se tomaron tiempo en facilitarme una solución...
Gracias..!!!
Saludos a todos...
