<%
Temp="Select * From Clientes"
Tabla.Open Temp, Conexion
arrDBDataClientes=Tabla.GetRows()
Tabla.Close
Temp="Select * From Ventas"
Tabla.Open Temp, Conexion
arrDBDataVentas=Tabla.GetRows()
Tabla.Close
Temp="Select * From Stock"
Tabla.Open Temp, Conexion
arrDBDataStock=Tabla.GetRows()
Tabla.Close
%>
<table>
<tr>
<td>Cliente</td>
<td>Monto Venta</td>
<td>Producto</td>
...etc
</tr>
<%
For J = 0 To UBound(arrDBDClientes, 2)
'buscando que compras realizó el cliente
For K = 0 To UBound(arrDBDataVentas, 2)
If arrDBDataClientes(1,J) = arrDBDataVentas(2,K) Then 'estoy comparando ID o RUC
'buscando el nombre del producto vendido
For M = 0 To UBound(arrDBDStock, 2)
If arrDBDataStock(0,M) = arrDBDataVentas(8,K) Then
%>
<tr>
<td><%= arrDBDataClientes(5,J) %></td> <!-- nombre del cliente -->
<td><%= arrDBDataVentas(9,K) %></td> <!-- monto de la venta -->
<td><%= arrDBDataStock(3,M) %></td> <!-- nombre del producto -->
...etc
</tr>
<%
End If
Next
End If
Next
Next
%>
</table>