<%@ Language="VBScript" %>
<% server.execute("inc/variables.asp") %>
<% DID=request("DID") %>
<% If DID="" Then DID="index" %>
<% 
		Set FS = Server.CreateObject("Scripting.FileSystemObject")
		Set BS = FS.OpenTextFile(Server.MapPath("TmplBegin.html"),1,false)
		writeMe =  BS.ReadAll
		response.write writeMe

server.execute("../../inc/"&DID&".asp") 

		Set ES = FS.OpenTextFile(Server.MapPath("TmplEnd.html"),1,false)
		writeMe =  ES.ReadAll
		response.write writeMe
		Set FS=Nothing
		Set BS=Nothing
		Set ES=Nothing

server.execute("inc/counter.asp") %>