<%
Dim Cn1, Rs1, sql1, Rs2, Sql2, rs3, sql3, rs4, sql4, rs5, sql5
Dim Empresa, Proveedor, Moneda, Saldo
Dim msa, msb

Empresa = Request("Empresa")
Proveedor = request("Proveedor")
Moneda = Request("Moneda")
Saldo = request("Saldo")

If Moneda = 0 Then
msa = " "
Else 
msa = " And  moncxpg =  "& Moneda &" "
End If
 
If Saldo = 0 Then 
msb = " "
Else If Saldo = 1 then
msb = " and Salcxpg >= 1 "
Else if Saldo = 2 then
msb = " and Salcxpg <= -1 "
End If
End If
End If

Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMIMSIS;PWD=ST2108GP;Database=" & Empresa &""
	
set rs1 = server.CreateObject("ADODB.Recordset")
SQL1="SELECT * FROM EMPRESA"
rs1.open sql1,cn1,1,2

set rs2 = server.CreateObject("ADODB.Recordset")
SQL2="Select Cveprv, Nomprv, Dirprv, Colprv, Pobprv, Edoprv, Cpprv, Rfcprv, Staprv " &_
"From Proveedores where Cveprv = '"& Proveedor &"';"
rs2.open sql2,cn1,1,2


set rs3 = server.CreateObject("ADODB.Recordset")
SQL3="select * from EDOXPRV where numcxpc = movcxpg and Cveprv='"& Proveedor &"' " &  msa & msb & " order by Movcxpg,Nrecxpg asc;"
rs3.open sql3,cn1,1,2
%>