<% dim mainPage : set mainPage = new xmlObject with mainPage if fileExists(c_dataRoot & "main.xml") then .load(c_dataRoot & "main.xml") end if end with currentModule = "main" if request("module")<>"" then currentModule=request("module") dim seo : set seo = new xmlObject with seo if fileExists(c_dataRoot & "seo.xml") then .load(c_dataRoot & "seo.xml") end if end with title = seo("title") if currentModule<>"" then title = title & " - " & language(currentModule) %> <%=title%> "> "> <% modules = split("main,about,projects,invesment,contact,english",",") %>

<%=unfixvalue(title)%>

<%if currentModule="main" then height="300" else height="350" end if %>
style="direction:ltr"<%end if%>> <% select case currentModule case "main","contact","projects","send": page = currentModule case else page = "page" end select execute getFile(server.MapPath(".") & "\modules\" & page & ".asp") %>
<%=fixvalue(seo("google"))%>