<% if fakemenu = 1 then %> <% end if %>

<%=MonthName(Month(FormatDateTime(Date,2))) & " " & Day(FormatDateTime(Date,0)) & ", " & year(FormatDateTime(Date,2))%>

<% whichfile="Contents.asp" Call ReadDisplayFile(whichfile) %>

© 2000-2006 Mobile Tech Support, Inc.
All text and images used on this site are protected
by U.S. and international copyright laws. Unauthorized use is prohibited.

<% SUB ReadDisplayFile(FileToRead) whichfile=server.mappath(FileToRead) Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichfile, 1, False) tempSTR=thisfile.readall response.write tempSTR thisfile.Close set thisfile=nothing set fs=nothing END SUB %>