home *** CD-ROM | disk | FTP | other *** search
/ www.jacquesfortier.com / www.jacquesfortier.com.tar / www.jacquesfortier.com / iisstart.asp < prev    next >
Text File  |  2001-08-23  |  2KB  |  86 lines
  1. <%@ Language = "VBScript" %>
  2. <% Response.Buffer = true %>
  3.  
  4. <!--
  5.     WARNING!
  6.     Please do not alter this file. It may be replaced if you upgrade your web server 
  7.       If you want to use it as a template, we recommend renaming it, and modifying the new file.
  8.     Thanks.
  9. -->
  10.  
  11. <html>
  12.  
  13. <head>
  14. <meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
  15.  
  16. <%
  17.  
  18. Dim strServername, strLocalname, strServerIP
  19.  
  20. strServername = LCase(Request.ServerVariables("SERVER_NAME"))   ' Server's name
  21. strServerIP = LCase(Request.ServerVariables("LOCAL_ADDR"))      ' Server's IP address
  22. strRemoteIP =  LCase(Request.ServerVariables("REMOTE_ADDR"))    ' Client's IP address
  23.  
  24. ' If the querystring variable uc <> 1, and the user is browsing from the server machine, 
  25. ' go ahead and show them localstart.asp.  We don't want localstart.asp shown to outside users.
  26.  
  27. If Request("uc") <> 1 And  (strServername = "localhost" Or strServerIP = strRemoteIP) Then
  28.   Response.Redirect "localstart.asp"
  29. Else 
  30.  
  31. %>
  32.  
  33. <title id=titletext>en chantier</title>
  34. </head>
  35.  
  36.   <body bgcolor=white>
  37.   <table>
  38.   <tr>
  39.   <td id="tableProps" width=70 valign=top align=center>
  40.   <img id="pagerrorImg" src="pagerror.gif" width=36 height=48>  
  41.   <td id="tablePropsWidth" width=400>
  42.   
  43.   <h1 id=errortype style="font:14pt/16pt Verdana; color:#4e4e4e">
  44.   <id id="Comment1"><!--Problem--></id><id id="errorText">en chantier</id></h1>
  45.   <id id="Comment2"><!--Probable causes:<--></id><id id="errordesc"><font style="font:9pt/12pt Verdana; color:black">
  46.   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.
  47.   </id>
  48.   <br><br>
  49.   
  50.   <hr size=1 color="blue">
  51.   
  52.   <br>
  53.   <id  id=term1>
  54.   RΘessayez d'accΘder α ce site ultΘrieurement. Si vous rencontrez toujours des difficultΘs, essayez de contacter l'administrateur du site Web.
  55.   </id>
  56.   <p>
  57.   
  58.   </ul>
  59.   <br>
  60.   </td>
  61.   </tr>
  62.   </table>
  63.   </body>
  64.   
  65. <%
  66.  
  67. End If 
  68.  
  69. %>
  70.  
  71. </html>
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.