% '---------------------------------------------------------------------------- ' ' ' File: smosec.asp ' ' Description: Outbound security page ' ' Copyright (C) 1997 Microsoft Corporation ' '------------------------------------------------------------------------------ %> <% Response.Expires = 0 %> <% REM LOCALIZATION L_PAGETITLE_TEXT = "Outbound Security" L_NOAUTH_TEXT = "No authentication" L_CLEAR_TXT_AUTH_TEXT = "Clear text authentication" L_WINDOWS_NT_CHALLENGE_TEXT = "Windows NT Challenge/Response authentication" L_ACCOUNT_TEXT = "Account:" L_WINDOWS_NT_ACCOUNT_TEXT = "WindowsNTAccount:" L_TLSENCRYP_TEXT = "TLS encryption" L_OK_TEXT = "OK" L_CANCEL_TEXT = "Cancel" L_HELP_TEXT = "Help" L_CHANGE_TEXT = "Change..." L_AUTHACCOUNT_TEXT = "AuthenticationAccount" CHANGETXT_TEXT = "change" REM End LOCAIZATION SAVE_TEXT = "save" DOMAINS_TEXT = "domain" UPDATE_TEXT = "update" SMTP_NO_ACTION = 0 ' 0x00000000 SMTP_SSL = 4 ' 0x00000004 SMTP_AUTH_NTLM = 128 ' 0x00000080 SMTP_AUTH_CLEARTEXT = 256 ' 0x00000100 REM UserName Get's the userName that is logged on REM dpath IIS path set by the Global.asa REM a Action to be performed, blank for editing 'save' for saving the data REM siteInstance Server instance REM sectype type of security to edit, blank for delivery, 'domain' for domains UserName = Request("LOGON_USER") dpath = Session("dpath") a = Request("a") siteInstance = Request("ServerInstance") sectype = Request("sectype") DomainName = Request("DomainName") RouteAction = Request("newRouteAction") RouteUserName = Request("txtRouteUserName") RoutePassword = Request("txtRoutePassword") RouteActionString = Request("txtRouteActionString") %>
<% if (a <> SAVE_TEXT) then %> <% end if %>