<% '---------------------------------------------------------------------------- ' ' ' 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 %> <% = L_PAGETITLE_TEXT %> <% if (a = SAVE_TEXT) then %> <% else %> <% end if %> <% if (a <> SAVE_TEXT) then %>
 <% = L_NOAUTH_TEXT %>
 <% = L_CLEAR_TXT_AUTH_TEXT %>
 <% = L_ACCOUNT_TEXT %>  <% if (Mid(Hex(RouteAction), 1, 1) = "1") then %> <% = RouteUserName %> <% else %>   <% end if %>  
 
 <% = L_WINDOWS_NT_CHALLENGE_TEXT %>
 <% = L_WINDOWS_NT_ACCOUNT_TEXT %>  <% if (Mid(Hex(RouteAction), 1, 1) = "8") then %> <% = RouteUserName %> <% else %>   <% end if %>  
 <% = L_TLSENCRYP_TEXT %>

<% = L_OK_TEXT%>
<% = L_CANCEL_TEXT %>
<% = L_HELP_TEXT %>
 

<% end if %>