<% response.write page_title ' *** Extra Title Info *** whichfile="title.txt" Call ReadDisplayFile(whichfile) %>

<% ' *** Page Specific Meta Tags *** whichfile="meta.txt" Call ReadDisplayFile(whichfile) %> <% 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 %>