Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 No entiendo este error
 Foro Bloqueado  Tema Bloqueado


Autor Temas
vitovi
Starting Member

España
6 Posts
Mensajes - 27 Mar 2008 :  11:03:06  Ver Perfil  Enviar Email  Visit vitovi's Homepage
Hola a todos, estoy teniendo este error en una aplicacion asp:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'cbyte'

/sinergius/prueba.asp, line 77

El codigo es el siguiente

Function xorArrayBytes(operador1, operador2)

'Declaración de variables
Dim arrSalida
Dim intElementos
Dim intIndice

'Validar tamaño de los arrays sobre los que se va a hacer el xor
if ubound(operador1) > ubound(operador2) then
on error goto 0
err.Raise 111, "xorArrayBytes", "El operador1 es de longitud mayor que el operador2"
End if

'Realizar el xor (a nivel de bytes) sobre los arrays argumento
intElementos = ubound(operador1)
redim arrSalida (intElementos)

For intIndice = 0 to intElementos
Response.Write ("<br>")
Response.Write ("operador 1 " & cbyte(operador1(intIndice)))
Response.Write (" operador 2 " & cbyte(operador2(intIndice)))
arrSalida(intIndice) = cbyte(operador1(intIndice)) xor cbyte(operador2(intIndice))
Response.Write ("<br>")
Response.Write ("operador 1 " & cbyte(operador1(intIndice)) & " operador 2 " & cbyte(operador2(intIndice)))
Next

'Devolver como resultado de la función el nuevo array (de bytes) en el que se
'ha efectuado el xor de los argumentos
xorArrayBytes = arrSalida

End Function
Los parametros son:
p a d d e l 0 1
52 35 34 84 82 41 3 115 6 9 121 3 0 1 3 1 7 105 111 27

Gracias por la ayuda

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar