<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Expires = 0%>
Set Dynamic Ip Page
<%
Dim strStatus
Dim objSaHelper
Dim objLocMgr
Dim varReplacementStrings
Dim strAutoIpErrorText
Const AUTOIP_ERROR_TEXT = "&H40020007"
On Error Resume Next
Err.Clear
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
If Err.number = 0 Then
strAutoIpErrorText = objLocMgr.GetString("salocaluimsg.dll",AUTOIP_ERROR_TEXT,varReplacementStrings)
Set objLocMgr = Nothing
End If
If strAutoIpErrorText = "" Then
strAutoIpErrorText = "Encountered problem in confinguring network. The change has been canceled."
End If
Err.Clear
Set objSaHelper = Server.CreateObject("ServerAppliance.SAHelper")
objSaHelper.SetDynamicIp
if Err.Number <> 0 then
strStatus = strAutoIpErrorText
else
Response.Redirect "localui_network.asp"
end if
Set objSaHelper = Nothing
%>
<%=strStatus%>