ASP CCC problema de validacion

[juna_genial]

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
%>