100 - Mack Chuto Blanco 478-XAA

<% Response.Buffer = TRUE %> <% 'config.asp '******************************************************************************************* '* * '* System Configuration * '* * '* Copyright (c) 2002 ASPWorldOnline.com - All Rights Reserved. * '* http://www.aspworldonline.com * '* * '******************************************************************************************* %> <% '-- Global Variables -- do not modify these Dim g_PathToRoot 'Define Root Path (HTTP) Dim g_PathToSecure 'Define SSL Path Dim g_SSLCert 'Define SSL toggle (HTTPS) Dim g_NetLoginDir 'Define NetLogin Directory (Directory) Dim g_NetLoginEmail 'Define NetLogin Email Account Dim g_NetLoginPassword 'Define NetLogin Password '**************************** '* Path Definitions * '**************************** '-- Define the root directory (i.e. http://www.aspworldonline.com) ':TODO: You may need to change this. g_PathToRoot = "http://www.eyrnorte.com/Equipos" '-- Define the SSL certificate (TRUE = Yes, FALSE = No) ':TODO: You may need to change this. g_SSLCert = FALSE '-- Define the netlogin directory. ':TODO: You might want to change this. g_NetLoginDir = "\netloginlite" '-- Define the default NetLogin email account / password. ':TODO: You might want to change this. g_NetLoginEmail = "netlogin@aspworldonline.com" g_NetLoginPassword = "test" '*************************************************************** ' YOU DO NOT NEED TO EDIT ANYTHING BELOW. YOU WILL BREAK IT. '*************************************************************** '-- If this is changed, the program will break. g_NetLoginVersion = "1.5.0" IF Right(g_PathToRoot, 1) <> "/" THEN g_PathToRoot = g_PathToRoot & "/" END IF IF Right(g_NetLoginDir, 1) <> "/" THEN g_NetLoginDir = g_NetLoginDir & "/" END IF IF g_SSLCert THEN g_PathToSecure = Replace(g_PathToRoot, "http://", "https://") ELSE g_PathToSecure = g_PathToRoot END IF %> <% 'secure.asp '******************************************************************************************* '* * '* Page Security Script * '* * '* This script must be included on the pages that are restricted to authenticated users. * '* i.e. top of products.asp: * '* [an error occurred while processing this directive] * '* * '* Copyright (c) 2002 ASPWorldOnline.com - All Rights Reserved. * '* http://www.aspworldonline.com * '* * '******************************************************************************************* %> <% Dim sScript 'as string Dim sQueryString 'as string '-- Validate that the user has logged in IF Session("bLoginLiteOK") = FALSE OR IsNull(Session("bLoginLiteOK")) THEN '-- Default the variables sQueryString = Trim(Request.ServerVariables("QUERY_STRING")) sScript = Request.ServerVariables("SCRIPT_NAME") IF NOT IsEmpty(sQueryString) OR sQueryString <> "" THEN sScript = sScript & "?" & sQueryString END IF Response.Write("Restricted Access... Redirecting you to NetLogin Lite Security...") Response.Redirect(g_PathToSecure & g_NetLoginDir & "login.asp?tRedirect=" & sScript) END IF %> 100 - Mack Chuto Blanco 478-XAA