'hay esta el codigo
' a ver si le encuentran algo raro
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<META HTTP-EQUIV="pragma" content="no-cache">
<TITLE></TITLE>
</HEAD name="compras">
<BODY bgcolor="#9aaaaa">
<%
d1002 = Request.Form("text1")
d502 = Request.Form("text2")
d202=Request.Form("text3")
d102=Request.Form("text4")
d52=Request.Form("text5")
dm2=Request.Form("text6")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "casa2", "", ""
if IsNumeric (d1002)=True and IsNumeric (d502)=true and IsNumeric (d202)=true and IsNumeric (d102)=true and IsNumeric (d52)=true and IsNumeric (dm2)=true then
d100=ccur(d1002)
d50=ccur(d502)
d20=ccur(d202)
d10=ccur(d102)
d5=ccur(d52)
dm=ccur(dm2)
if (d100>=0)and (d50>=0)and (d20>=0)and (d10>=0)and (d5>=0)and (dm>=0) then
total=(d100*100)+(d50*50)+(d20*20)+(d10*10)+(d5*5) +(dm*1)
set rs=nothing
sql="SELECT * FROM caja1"
set rs=conn.Execute (sql)
do while not rs.EOF
id2=rs("id")
a1=rs("numdoc")
a2=rs("candoc")
a3=rs("cambill")
a4=rs("venta")
a5=rs("tipo")
a6=rs("dotdll")
a7=rs("dotmn")
a8=rs("saldodll")
a9=rs("saldomn")
a10=rs("dolar100")
a11=rs("dolar50")
a12=rs("dolar20")
a12b=rs("dolar10")
a13=rs("dolar5")
a142=rs("dolarmoraya")
a14b=rs("dolardoc")
a15=rs("pesos500")
a16=rs("pesos200")
a17=rs("pesos100")
a18=rs("pesos50")
a19=rs("pesos20")
a202=rs("pesosmoraya")
a212=rs("alacompra")
a22=rs("alaventa")
i = i + 1
rs.MoveNext
Loop
a21=ccur(a212)
canpagar=a21*total
resto=canpagar
can500=resto\500
resto=(resto)-(can500*500)
'resto=resto mod 500
flag="0"
do while flag="0"
if can500 <= a15 then
flag="1"
else
can500=can500-1
resto=resto+500
end if
loop
can200=resto\200
resto=(resto)-(can200*200)
'resto=resto mod 200
flag="0"
do while flag="0"
if can200 <= a16 then
flag="1"
else
can200=can200-1
resto=resto+200
end if
loop
can100=resto\100
resto=(resto)-(can100*100)
'resto=resto mod 100
flag="0"
do while flag="0"
if can100 <= a17 then
flag="1"
else
can100=can100-1
resto=resto+100
end if
loop
can50=resto\50
resto=(resto)-(can50*50)
'resto=resto mod 50
flag="0"
do while flag="0"
if can50 <= a18 then
flag="1"
else
can50=can50-1
resto=resto+50
end if
loop
can20=resto\20
resto=(resto)-(can20*20)
'resto=resto mod 20
flag="0"
do while flag="0"
if can20 <= a19 then
flag="1"
else
can20=can20-1
resto=resto+20
end if
loop
canm=resto
a14=ccur(a142)
a10=a10+d100
a11=a11+d50
a12=a12+d20
a12b=a12b+d10
a13=a13+d5
a14=a14+dm
a82=ccur(a8)
a82=a82+total
a20=ccur(a202)
if ( a15>=can500 )and ( a16>=can200 )and ( a17>=can100 )and ( a18>=can50 )and ( a19>=can20 )and ( a20>=canm )then
a15=a15-can500
a16=a16-can200
a17=a17-can100
a18=a18-can50
a19=a19-can20
a20=a20-canm
a92=ccur(a9)
a92=a92-canpagar
'requiere campo en ceros, numdoc
c=0
set rs=nothing
sql="SELECT * FROM caja1"
set rs=conn.Execute (sql)
sql ="INSERT INTO caja1 (numdoc,cambill,tipo,saldodll,saldomn,dolar100,dol ar50,dolar20,dolar10,dolar5,dolarmoraya,dolardoc,p esos500,pesos200,pesos100,pesos50,pesos20,pesosmor aya,alacompra,alaventa) VALUES ("&Rtrim(c)&","&Rtrim(total)&","&Rtrim(a21)&","&Rt rim(a82)&","&Rtrim(a92)&","&Rtrim(a10)&","&Rtrim(a 11)&","&Rtrim(a12)&","&Rtrim(a12b)&","&Rtrim(a13)& ","&Rtrim(a14)&","&Rtrim(a14b)&","&Rtrim(a15)&","& Rtrim(a16)&","&Rtrim(a17)&","&Rtrim(a18)&","&Rtrim (a19)&","&Rtrim(a20)&","&Rtrim(a21)&","&Rtrim(a22) &")"
Set rs = conn.Execute (sql)
Response.Write "<font face=verdana size=2>"
Response.Write "<b><font color=firebrick>"
Response.Write "CALIFORNIA <br>"
Response.Write "Cambio De Dolares <br>"
Response.Write "</font></b>"
Response.Write total & " Dolares <br>"
Response.Write "Su cambio <br>"
Response.Write "<b><font color=firebrick>"
Response.Write canpagar & " Pesos <br>"
Response.Write "</font></b>"
Response.Write can500 & " De 500 <br>"
Response.Write can200 & " De 200 <br>"
Response.Write can100 & " De 100 <br>"
Response.Write can50 & " De 50 <br>"
Response.Write can20 & " De 20 <br>"
Response.Write canm & " En Fraccionaria <br>"
Response.Write "<b><font color=firebrick>"
'Response.Write "Califonia <br>"
'Response.Write "Cambio de Dolares <br>"
'Response.Write "Agradece su Preferencia <br>"
Response.Write "</font></b>"
Response.Write "</font>"
'%%%%%%%%%%%%%%%%%%%%%%%%%%
Response.Write "<Form name=imprimir>"
Response.Write "<input type=button value=Imprimir onClick=print(); name=btnPrint class=display>"
Response.Write "<font face=verdana size=10>"
Response.Write "<b><font color=#9aaaaa>"
Response.Write "CALIFORNIA <br>"
Response.Write "Cambio De Dolares <br>"
Response.Write total & " Dolares <br>"
Response.Write "Su cambio <br>"
Response.Write canpagar & " Pesos <br>"
Response.Write can500 & " De 500 <br>"
Response.Write can200 & " De 200 <br>"
Response.Write can100 & " De 100 <br>"
Response.Write can50 & " De 50 <br>"
Response.Write can20 & " De 20 <br>"
Response.Write canm & " En Fraccionaria <br>"
Response.Write "</font></b>"
Response.Write "</font>"
Response.Write "</form>"
else
Response.Write "<b><font color=firebrick size=4>"
Response.Write " No hay suficiente dinero de alguna denominacion pruebe cambiando dinero o solicite una dotacion <br>"
Response.Write "</font></b>"
Response.Write can500 & " De 500 <br>"
Response.Write can200 & " De 200 <br>"
Response.Write can100 & " De 100 <br>"
Response.Write can50 & " De 50 <br>"
Response.Write can20 & " De 20 <br>"
Response.Write canm & " En Fraccionaria <br>"
end if
else
Response.Write "<b><font color=firebrick size=4>"
Response.Write " Usted introdujo valores negativos intente volver a realizar la operacion <br>"
Response.Write "</font></b>"
end if
else
Response.Write "<center>"
Response.Write "<font face=verdana color=firebrick>"
Response.Write "Error"
Response.Write "<br>"
Response.Write "Faltan Datos en el Formulario o son Incorrectos"
Response.Write "</font>"
Response.Write "</center>"
end if
conn.close
%>
<P> </P>
</BODY>
</HTML>