<%@ codepage="1255"%> <% 'Server.ScriptTimeout = 600 %> <% id=request.querystring("id") if isnumeric(id)=false or id="" then response.redirect "index.asp" Sql2="select * from [Pages] where [id]="&id Set rs2=Server.CreateObject("Adodb.RecordSet") rs2.Open Sql2, Conn if rs2.eof then response.redirect "http://www.othertemp.com" %> <%=rs2("Pagetitle")%> "> ">
<%=rs2("Pagetitle")%>
<% Sql5="select * from [Pages] where [parent]="&id&" and [menuhide]=0 order by [Pageorder]" Set rs5=Server.CreateObject("Adodb.RecordSet") rs5.Open Sql5, Conn if not rs5.eof then %>
<% while not rs5.eof %> " class="leftmenu" title="<%=rs5("menuname")%>"><%=rs5("menuname")%> <% rs5.movenext if not rs5.eof then %>
<% end if wend %>
<% end if %> <%=rs2("Pagebody")%>