A ver si alguien puede echarme una manita. Resulta que me han pasado el código de una aplicación web de reservas de Rent a Car que hace uso de un servicio web. Este servicio web accede a una BD MSSQL con una media de unas 10000 transacciones cada hora (esa es la media entre los accesos de los terminales y el servicio web) con lo cual no puedo ir accediendo a la BD cuando a mi me de la gana (eso pensaron los que diseñaron el codigo de la web). Para ello decidieron sobrecargar el servidor web que anda por otro lado. Para no darle tanto trajín a la BD decidieron crear clases con los datos pertinentes.
En el caso que nos ocupa en concreto es una clase sencilla de propiedades:
Código:
class dCuenta dim numCuenta, passCuenta, nomCuenta public property let setNumCuenta(n) numCuenta = n end property public property let setPassCuenta(n) passCuenta = n end property public property let setNomCuenta(n) nomCuenta = n end property public property get getNumCuenta getNumCuenta = numCuenta end property public property get getPassCuenta getPassCuenta = passCuenta end property public property get getNomCuenta getNomCuenta = nomCuenta end property end class
Todo funciona correctamente hasta que asignamos dicha clase en una variable de sesion:
Código:
if not isObject(session("clsAgencia")) then set c = new dCuenta c.setNumCuenta = 4300001 set session("clsAgencia") = c end if
La primera vez que pasa asigna correctamente la instancia de dCuenta a la variable de sesion. Y la puedo leer desde otra página. Cuando se recarga la página ya no hace falta (ya que ya es un objeto) Sin embargo cuando intento hacer uso de sus valores me suelta un error: El objeto no acepta esta propiedad o método: 'getNomCuenta' Sin embargo si lo tiene (ver mas arriba) y, si le hago un TypeName(session("clsAgencia")) me devuelve correctamente dCuenta. Ando un poco perdido y no se me ocurre por donde van los tiros.
Gracias anticipadas a aquel(los) que me ilumine
Un saludo