08/01/2005, 19:07
|
| | | Fecha de Ingreso: enero-2005
Mensajes: 2
Antigüedad: 20 años, 4 meses Puntos: 0 | |
| error no coinciden los tipos
este es el error que me da,en la base de datos son valores numericos pero supongo que los valores del formulario es tipo texto.¿como puedo hacer para solucionarlo?he probado a meterlo en la variable aux ect pero nada...
aqui os dejo el codigo.
<%option explicit%>
<HTML>
<HEAD>
<TITLE>Ejercicio3a</TITLE>
<!--#INCLUDE FILE="adovbs.inc"-->
</HEAD>
<BODY>
<FORM ACTION="movimientos.asp" METHOD="POST">
cuenta1 <INPUT TYPE="text" NAME="c1">
cuenta2 <INPUT TYPE="text" NAME="c2">
cantidad <INPUT TYPE="number" NAME="can"><br>
<INPUT TYPE="submit"><INPUT TYPE="Reset">
</form>
<%
if request.form <> "" then
Dim ObConexion, ObRecordset, numCampos, Campo, SQL,cant1,cant2,aux
Set obconexion = CreateObject("ADODB.Connection")
obconexion.Open "DSN=proyecto;UID=system;PWD=manager"
sql=" select * from cuenta1 where ncuen= '"&Request.Form("c1")&"' "
obrecordset=obconexion.Execute(SQL)
cant1=ObRecordset("cant")
sql="select * from cuenta1 where ncuen='"&Request.Form("c2")&"' "
obrecordset=obconexion.Execute(SQL)
cant2=ObRecordset("cant")
if cant1< Request.Form("can") then
response.write(" imposible realizar la operacion")
else
obrecordset("cant")=obrecordset("cant")+Request.Fo rm("can")
sql="select * from cuenta1 where ncuen='"&Request.Form("c1")&"' "
obrecordset=obconexion.Execute(SQL)
obrecordset("cant")=obrecordset("cant")-Request.Form("can")
response.write("operacion realizada")
end if
obconexion.Close
end if
%>
</BODY>
</HTML>
gracias de antemano |