<% Dim ObjFSO 'create object Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") Dim PageNames, PageName, Status PageNames = Array( "introduction.html", "entry.html" ) Status = False For Each PageName in PageNames If objFSO.FileExists( Server.MapPath(PageName)) = True Then Status = True exit For End If Next set ObjFSO = Nothing If Status = True Then Response.Status = "301 Moved Permanently" Response.AddHeader "Location", PageName Else 'if Status = False Then '404 Response.Status = "404 Not Found" %> 404 Not Found

404 Not Found

The requested URI was not found on this server.


<% Dim i for i = 0 To 512 Response.Write vbCrLf Next %> <% End If %>