<% sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=2" 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%>

• <%=t_(132)%>
• <%=t_(185)%>
  <%menu_sitemap(-1)%>
• <%=t_(15)%>
• <%=t_(54)%> <% Sql = "select * FROM category1 where id_idioma=" & session("lang" & prj)& " and parentcatid = -1 ORDER BY sort" set rs = con.execute(sql) if not rs.eof then%>
  <%while not rs.eof%>
  • <%=rs("name")%>
  <% rs.movenext wend %>
  <%end if%>
• <%=t_(160)%> <% set rsserv = server.CreateObject("ADODB.Recordset") set rsserv = con.execute("select id,sname from services where id_idioma=" & session("lang" & prj)& "") if not rsserv.EOF then %>
  <%while not rsserv.EOF%>
  • "><%=rsserv("sname")%>
  <% rsserv.MoveNext wend %>
  <% end if rsserv.Close set rsserv = nothing %>
• <%=t_(186)%>
• <%=t_(187)%>
• <%=t_(188)%>
• <%=t_(19)%>
• <%=t_(189)%>
<%function menu_sitemap(pid) sql_site="select id, name from unlimit_pages where id_idioma=" & session("lang" & prj)& " and activo=1 and pid = " & pid set rs_site=server.CreateObject("ADODB.Recordset") rs_site.Open sql_site,con,1,2 if not rs_site.EOF then while not rs_site.EOF %>
• "><%=rs_site("name")%> <%'mirem si te subpagines menu_sitemap(rs_site("id"))%>
<%rs_site.movenext() wend end if rs_site.close() set rs_site = nothing end function %>