|
<%
'This is the area to put text
Dim objReadFile, objRFO, strlinetext
Set objRFO = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objReadFile = objRFO.OpenTextFile("D:\Inetpub\wwwroot\homeUpdate.html")
If err.number <> 0 Then
Response.Write("Update File Unavailable")
Else
Do While Not objReadFile.AtEndOfStream
strlinetext = objReadFile.ReadLine
Response.Write(strlinetext)
Loop
objReadFile.Close
Set objReadFile = Nothing
End If
Set objRFO = Nothing
%>
This page
is for demonstration only
Hyper links
are not active
|
