<%
Function MyInclude(ByVal soubor)
set fso = Server.CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(Server.MapPath("/ckregent/admin/" & soubor))
textova_data = file.ReadAll
Response.Write textova_data
End Function
%>
Regent Hotels
