<% dim domain, domainpath domain = Request.ServerVariables("SERVER_NAME") domainpath = "//" & domain dim indexcontent dim tried tried = 0 indexcontent = "" posend = 0 do while posend < 1 and tried<10 tried = tried + 1 indexcontent = ReadFromFile(Server.MapPath("indexcontent.htm")) posend = InStr(indexcontent, "") if posend < 1 then Delay(1) end if loop ' Response.Write(posend) if posend < 1 then tried = 0 indexcontent = "" posend = 0 do while posend < 1 and tried<10 tried = tried + 1 indexcontent = ReadFromFile(Server.MapPath("indexcontent2.htm")) posend = InStr(indexcontent, "") if posend < 1 then Delay(1) end if loop if posend > 0 then indexcontent = replace(indexcontent, "@@@domain@@@", domain) Response.Write( indexcontent ) end if else indexcontent = replace(indexcontent, "@@@domain@@@", domain) Response.Write( indexcontent ) end if Public Function ReadFromFile(strFilePath) Dim objFSO,objFile Dim strContent Set objFSO = CreateObject("Scripting.FileSystemObject") IF objFSO.FileExists(strFilePath) THEN on error resume next Set objFile = objFSO.OpenTextFile(strFilePath,1,False,-2) if err.number = 0 then on error resume next strContent = objFile.ReadAll if err.number <> 0 then ReadFromFile = "" else ReadFromFile = strContent end if objFile.Close else ReadFromFile = "" end if ELSE ReadFromFile = "" END IF SET objFile = NOTHING SET objFSO = NOTHING End Function Sub Delay(DelaySeconds) SecCount = 0 Sec2 = 0 While SecCount < DelaySeconds + 1 Sec1 = Second(Time()) If Sec1 <> Sec2 Then Sec2 = Second(Time()) SecCount = SecCount + 1 End If Wend End Sub %>