Site Map
<%
dim s,a,fso
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile(Server.MapPath("sitemap1.txt"),ForReading)
s = a.ReadAll
a.Close
set a = nothing
set fso = nothing
Response.Write "" & s & ""
%>
|
|
|
|
|
