%@ Language=VBScript %> <% option explicit %> <% 'Declaración de constantes, variables y objetos '-------------------------------------------------------------------------------------------- Dim vObjDct, pBaseSys,pSesCook,Shopper,defSesbase, name, debug, nrofin 'La inicialización SetDefSesVar se encuentra en el archivo adjunto //wgsc/Escalib/LbSesVarDef.asp debug = 0 SetDefSesVar vObjDct,empty, true defSesbase = uSession(vObjDct, "app_sesbase") 'name = Usession(vObjDct, defSesbase & "_virtdirbase") 'Se trae el cookie para realizar las instrucciones pertinentes Shopper = usession(vobjdct, defSesbase & "itemcookie") IF debug = 1 then Response.Write shopper %>