static ip netry page
<%
Dim objSaHelper
Dim objLocMgr
Dim varReplacementStrings
Dim strWaitText
Const WAIT_TEXT = "&H40020012"
On Error Resume Next
Err.Clear
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
If Err.number = 0 Then
strWaitText = objLocMgr.GetString("salocaluimsg.dll",WAIT_TEXT,varReplacementStrings)
Set objLocMgr = Nothing
End If
Err.Clear
Set objSaHelper = Server.CreateObject("ServerAppliance.SAHelper")
If Session("Static_CurrentIp") = "" Then
Session("Static_CurrentIp") = objSaHelper.IpAddress
End If
If Session("Static_CurrentMask") = "" Then
Session("Static_CurrentMask") = objSaHelper.SubnetMask
End If
If Session("Static_CurrentGateway") = "" Then
Session("Static_CurrentGateway") = objSaHelper.DefaultGateway
If Session("Static_CurrentGateway") = "" Then
Session("Static_CurrentGateway") = "0.0.0.0"
End If
End If
Set objSaHelper = Nothing
'Since we are in this page, static ip is selected
Session("Network_FocusItem") = "1"
%>
<%=strWaitText%>
">
">
">