%
sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=6"
set rsDocuments1=server.CreateObject("ADODB.Recordset")
rsDocuments1.Open sqlDocuments1,con,1,2
if not rsDocuments1.EOF then
strContents=rsDocuments1("content")
title=rsDocuments1("ptitle")
description=rsDocuments1("pdescription")
keywords=rsDocuments1("pkeywords")
end if
%>
<%
rsDocuments1.Close
if Request.QueryString("step") = "" then
sql1 = "select * from category1 where id_idioma=" & session("lang" & prj)& " and parentcatid = -1 and active=1 order by name"
set rscat = server.CreateObject("ADODB.Recordset")
set rscat = con.execute(sql1)
%>
<%
if rscat.EOF then
%>
|
<%=t_(29)%>
|
<% else
dim ctr
ctr = 0
%>
<%
while not rscat.EOF
%>
<%
if ctr mod 2 = 0 and ctr <> 0 then
response.write" "
end if
ctr=ctr+1
%>
|
|
<%
rscat.MoveNext
wend
rscat.Close()
set rscat = nothing
%>
|
<% end if %>
<%
else
%>
<%
if cint(Request.QueryString("step")) = 2 then
catid = cint(Request.QueryString("id"))
'response.Write("-->" & session("lang" & prj))
sql1 = "select * from category1 where id_idioma=" & session("lang" & prj)& " and parentcatid = "& catid&" and active = 1 order by name"
set rscat = server.CreateObject("ADODB.Recordset")
set rscat = con.execute(sql1)
%>
<%
dim i, flag
temparr = split(Request.QueryString("pstring"),",",-1)
set temprs = server.CreateObject("ADODB.Recordset")
Response.Write ("| ")
for i= 0 to ubound(temparr)
sql2 = "select catid, name from category1 where id_idioma=" & session("lang" & prj)& " and catid = "& temparr(i)&" order by name"
set temprs = con.execute(sql2)
Response.Write("" &temprs(1)& "" &" > ")
catname=temprs(1)
next
Response.Write (" |
")
temprs.Close()
set temprs = nothing
if rscat.EOF then
flag = 0
%> <% else
flag = 1
dim ctr1
ctr1 = 0
%>
|
<%=t_(30)%> : <%=catname%>
|
<%
while not rscat.EOF
if not rscat.eof then
parentstring = Request.QueryString("pstring") & "," &rscat("catid")
else
parentstring = Request.QueryString("pstring")
end if
if ctr1 mod 2 = 0 and ctr1 <> 0 then
response.write" "
end if
ctr1=ctr1+1
%>
|
|
<%
rscat.MoveNext
wend
%>
|
<% end if %>
<%
set rsestmt = server.CreateObject("ADODB.Recordset")
sql3 = "select * from item where id_idioma=" & session("lang" & prj)& " and catid = "& catid &" and active = 1 order by namez"
set rsestmt = con.execute(sql3)
if not rsestmt.eof then
flag = 1
%>
|
|
<% end if %>
<%
if flag = 0 then
%>
|
<%=t_(32)%>
|
<% end if
rscat.Close()
set rscat = nothing
rsestmt.Close()
set rsestmt = nothing
%>
|
|
<% end if %>
<% end if %>