%@LANGUAGE="VBSCRIPT"%> <% 'response.expires=-1000 'if (Session("solicitud")="") Then ' Response.Redirect("area_comercial_admin.asp?msj=2") 'End If dim mensaje mensaje="" If Request.QueryString <> "" Then mensaje=CStr(Request.QueryString("msj")) End If if mensaje <> "" Then if mensaje="1" then mensaje="El nombre de usuario o la clave son incorrectas, inténtelo de nuevo." end if if mensaje="2" then mensaje="Se ha superado el tiempo máximo de conexión de seguridad sin realizar ninguna operación. Para poder conectar otra vez, vuelva ha introducir sus claves de acceso. Gracias." end if if mensaje="3" then mensaje="Ha sido desconectado a petición suya, para poder conectar otra vez, vuelva ha introducir sus claves de acceso. Gracias." end if End If %>
|