<%

Function getFileContents(strIncludeFile)
  Dim objFSO
  Dim objText
  Dim strPage

  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile))

  getFileContents = objText.ReadAll

  objText.Close
  Set objText = Nothing
  Set objFSO = Nothing
End Function



Dim strMain, Urlfile, Baloldal, Tartalom


Baloldal = getFileContents("menu.asp")


if Request.QueryString("page") = "" then
  Tartalom = getFileContents("htmls\fooldal.html")
else
  Tartalom = getFileContents("htmls\"& Request.QueryString("page") &".html")
end if

strMain = getFileContents("design.inc")

strMain = replace(strMain,"###BALOLDAL###",Baloldal)
strMain = replace(strMain,"###TARTALOM###",Tartalom)

Response.Write strMain


%>