You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
1.3 KiB
40 lines
1.3 KiB
<%@ Language=VBScript %>
|
|
|
|
<% '==================================================
|
|
' Microsoft Server Appliance
|
|
'
|
|
' Default web page
|
|
'
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'================================================== %>
|
|
|
|
<% Option Explicit %>
|
|
|
|
<!-- Copyright (c) Microsoft Corporation. All rights reserved.-->
|
|
|
|
<!-- #include virtual="/admin/inc_framework.asp"-->
|
|
<%
|
|
|
|
'-------------------------------------------------------------------------
|
|
' Global Variables
|
|
'-------------------------------------------------------------------------
|
|
Dim rc 'Page variable
|
|
|
|
Dim G_objRegistry 'Registry object . Value is assigned by calling function regConnection
|
|
Dim G_sURL 'Default URL
|
|
Const CONST_HOMEPAGEURLPATH = "SOFTWARE\Microsoft\ServerAppliance\WebFramework"
|
|
|
|
'Getting registry conection
|
|
Set G_objRegistry = RegConnection()
|
|
|
|
G_sURL = GetRegKeyValue(G_objRegistry, CONST_HOMEPAGEURLPATH, "DefaultURL", CONST_STRING)
|
|
|
|
If (Len(G_sURL) <= 0) Then
|
|
G_sURL = "/admin/Tasks.asp?tab1=TabsWelcome"
|
|
End If
|
|
|
|
Call SA_MungeURL(G_sURL, SAI_FLD_PAGEKEY, SAI_GetPageKey())
|
|
|
|
Response.Redirect(G_sURL)
|
|
%>
|
|
|