<%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%>
<%
if request.QueryString("PiD")="" then response.redirect("index.asp")
if request.QueryString("PiD")="0" then
Dim TopPar(1)
TopPar(0)=0
TopPar(1)=Request.QueryString("id")
else
TopPar= split(request.QueryString("PiD"),".")
end if
'Create Page content form Database
Dim rsPage__MMColParam
if request.QueryString("id")<>"" then
sq= "Pid='"& request.QueryString("PiD") &"' AND id=" & Request.QueryString("id")
else
sq= "Pid='"& Request.QueryString("PiD")& "'"
end if
Dim rsPage
Set rsPage = Server.CreateObject("ADODB.Recordset")
rsPage.ActiveConnection = MM_connHeb_STRING
rsPage.Source = "SELECT * FROM Page WHERE " + sq + " ORDER BY SortOrder ASC"
rsPage.CursorType = 0
rsPage.CursorLocation = 2
rsPage.LockType = 1
rsPage.Open()
Dim rsMaster
Set rsMaster = Server.CreateObject("ADODB.Recordset")
rsMaster.ActiveConnection = MM_connHeb_STRING
rsMaster.Source = "SELECT * FROM Page WHERE id="&TopPar(1)& " ORDER BY SortOrder ASC"
rsMaster.CursorType = 0
rsMaster.CursorLocation = 2
rsMaster.LockType = 1
rsMaster.Open()
%>
) no-repeat">
<%=rsMaster("Title")%>
<%=rsPage("Title")%>
<%=rsPage("body")%>
<% if rsPage("Pic") <>"" then response.Write("") %>
