ASP CCC problema de validacion Hola soy nueva en este lenguaje y tengo problemillas para realizar el algoritmo de validacion de una cuenta bancaria o lo que e slo mismo CCC alguien rpodria ayudarme, gracias de antemano:
el error que me da es este:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0005)
Argumento o llamada a procedimiento no válidos: 'mid'
/McoDesa/CCC/CCC.asp, línea 85
lo estoy realizando con asp clasico
y el codigo usado el siguiente_:
<%
dim entidad :entidad ="2077"
dim oficina :oficina ="0338"
dim dc :dc ="79"
dim numCuenta:numCuenta ="3100254321"
valcuenta_bancaria entidad,oficina,dc,numCuenta
function valcuenta_bancaria(cuenta1,cuenta2,cuenta3,cuenta4 )
if len(cuenta1)<>4 then return false end if
if len(cuenta2)<>4 then return false end if
if len(cuenta3)<>2 then return false end if
if len(cuenta4)<>10 then return false end if
if mod11_cuenta_bancaria("00"&cuenta1&cuenta2)<>cuent a3(0)then return false end if
if mod11_cuenta_bancaria(cuenta4)<>cuenta3(1)then return false end if
return true
end function
function mod11_cuenta_bancaria(numero)
if len(numero)<>10 then return Response.Wirite("El número de cuenta no esta compuesto de 10 digitos") end if
dim cifras(9)
cifras(0)=1
cifras(1)=2
cifras(2)=4
cifras(3)=8
cifras(4)=5
cifras(5)=10
cifras(6)=9
cifras(7)=7
cifras(8)=3
cifras(9)=6
dim chequeo: chequeo=0
dim cal
'Response.write numero
'Response.End
for i=0 to 100 step 1
cal=mid(numero,i,1)
int(cal)
chequeo = chequeo + (cal * cifras(i))
next
chequeo = 11 - (chequeo / 11)
if chequeo = 11 then chequeo = "El numero de cunta es erronea" end if
if chequeo = 10 then chequeo = "El numero de cuenta es valida" end if
return Response.Write(chequeo)
end function
%>
