<% Dim objFile, objFileTxt Dim strLink strLink = Request("lnk") If strLink = "" Then strLink = "\html\default.htm" 'this link should be the path to your home page End If set objFile = Server.CreateObject("Scripting.FileSystemObject") If isobject(objFile) Then Set fullPath = Request.ServerVariables("APPL_PHYSICAL_PATH") If objFile.FileExists(fullPath & strLink) = False Then strLink = "/html/default.htm" 'this link should be the path to your home page End If set objFileTxt = objFile.opentextfile(fullPath & strLink) End If Do While Not objFileTxt.AtEndOfStream FileTxt = objFileTxt.readline Response.Write(FileTxt) & vbCrLf Loop objFileTxt.Close Set objFile = Nothing %>