% section = Request.QueryString("section") if len(section) < 1 then section = "home" end if %>
|
|||||||||||||||||||||
<%
sectioninclude = "includes_"& section &".asp"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if not objFSO.FileExists(Server.MapPath(sectioninclude)) then
sectioninclude = "includes_home.asp"
end if
Set FSO = Nothing
'Response.Write objFSO.OpenTextFile(mapsection, 1, False, False).readall
Server.Execute(sectioninclude)
%>
|
|||||||||||||||||||||