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

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

<%if entrar=0 then%>
• <%=t_(132)%>
• <%=t_(11)%>
<% rs.movenext wend %>

<%end if%> -->

<%=t_(18)%>

<%=t_(19)%>

<% entrar=1 entrar1=1 end if while not rs_site.EOF %>

"><%=rs_site("name")%> <%'mirem si te subpagines menu_sitemap(rs_site("id"))%>

<%rs_site.movenext() wend if entrar1=1 then%> <%entrar1=0 end if%> <%'end if rs_site.close() set rs_site = nothing end function entrar=0 menu_sitemap(-1) %>