<% 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 %>

<%=strContents%>

<% 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 %> <% else dim ctr ctr = 0 %> <% end if %>

<%=t_(29)%>

<% 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 %>

&pstring=<%=rscat("catid")%>">

<%= rscat("name") %>

<%if rscat("imagedisplay") = true and rscat("image1") <> "" then%> &pstring=<%=rscat("catid")%>">

" align="top" border="0"> <%end if%>

<%= rscat("catdescription")%>

<% 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 ("") temprs.Close() set temprs = nothing if rscat.EOF then flag = 0 %> <% else flag = 1 dim ctr1 ctr1 = 0 %> <% 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 %>

<% end if rscat.Close() set rscat = nothing rsestmt.Close() set rsestmt = nothing %>

") 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 ("

<%=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 %>

&pstring=<%=parentstring%>">

<%= rscat("name") %>

<% if rscat("imagedisplay") = true and rscat("image1") <> "" then %> &pstring=<%=parentstring%>">

" align="top" border="0"> <% end if %>

<%= rscat("catdescription") %>

<% while not rsestmt.eof %> <% rsestmt.movenext wend %>

<%=t_(31)%>: <%=catname%>

<%= rsestmt("namez") %>

<%=t_(32)%>

<%=t_(33)%>

<%=t_(34)%>

<% end if %> <% end if %>