<%@ Language = "VBScript" %> <% Response.Buffer = true %> <!-- WARNING! Please do not alter this file. It may be replaced if you upgrade your web server If you want to use it as a template, we recommend renaming it, and modifying the new file. Thanks. --> <html> <head> <meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252"> <% Dim strServername, strLocalname, strServerIP strServername = LCase(Request.ServerVariables("SERVER_NAME")) ' Server's name strServerIP = LCase(Request.ServerVariables("LOCAL_ADDR")) ' Server's IP address strRemoteIP = LCase(Request.ServerVariables("REMOTE_ADDR")) ' Client's IP address ' If the querystring variable uc <> 1, and the user is browsing from the server machine, ' go ahead and show them localstart.asp. We don't want localstart.asp shown to outside users. If Request("uc") <> 1 And (strServername = "localhost" Or strServerIP = strRemoteIP) Then Response.Redirect "localstart.asp" Else %> <title id=titletext>en chantier</title> </head> <body bgcolor=white> <table> <tr> <td id="tableProps" width=70 valign=top align=center> <img id="pagerrorImg" src="pagerror.gif" width=36 height=48> <td id="tablePropsWidth" width=400> <h1 id=errortype style="font:14pt/16pt Verdana; color:#4e4e4e"> <id id="Comment1"><!--Problem--></id><id id="errorText">en chantier</id></h1> <id id="Comment2"><!--Probable causes:<--></id><id id="errordesc"><font style="font:9pt/12pt Verdana; color:black"> Le site auquel vous essayez d'accéder ne dispose actuellement pas d'une page par défaut. Il est peut-être en cours de mise à niveau ou de configuration. </id> <br><br> <hr size=1 color="blue"> <br> <id id=term1> Réessayez d'accéder à ce site ultérieurement. Si vous rencontrez toujours des difficultés, essayez de contacter l'administrateur du site Web. </id> <p> </ul> <br> </td> </tr> </table> </body> <% End If %> </html>