(Trim(Request.QueryString("T2"))) End If If ( dwWaitTime <= 0 ) Then dwWaitTime = GetDefaultRetryWaitTime() End If %> <%=Server.HTMLEncode(strTitle)%> <% Call SA_EmitAdditionalStyleSheetReferences("") %> <% Call ServeStatusBar(False, L_STATUS_TEXT&": "&strTitle, "StatusCritical") Call SA_ServeEmptyTabBar() %>
<% Call ServeStandardHeaderBar(strTitle, "images/critical_error.gif") %>
 
<%=Server.HTMLEncode(strMessage)%>
<% Private Function GetDefaultInitialWaitTime() on error resume next Dim oRegistry Set oRegistry = RegConnection() GetDefaultInitialWaitTime = GetRegkeyValue( objRegistry, _ "SOFTWARE\Microsoft\ServerAppliance\WebFramework",_ "RestartInitialDelay", CONST_DWORD) If ( GetDefaultInitialWaitTime <= 0 ) Then GetDefaultInitialWaitTime = THREE_MINUTES End If Set oRegistry = Nothing End Function Private Function GetDefaultRetryWaitTime() on error resume next Dim oRegistry Set oRegistry = RegConnection() GetDefaultRetryWaitTime = GetRegkeyValue( objRegistry, _ "SOFTWARE\Microsoft\ServerAppliance\WebFramework",_ "RestartRetryDelay", CONST_DWORD) If ( GetDefaultRetryWaitTime <= 0 ) Then GetDefaultRetryWaitTime = FIFTEEN_SECONDS End If Set oRegistry = Nothing End Function %>