<%Response.ExpiresAbsolute = Now()-1 'no cache%> <% set con = Server.CreateObject("ADODB.Connection") con.Open strCon sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=1" 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 %>

<% sqlDocuments2="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=13" set rsDocuments2=server.CreateObject("ADODB.Recordset") rsDocuments2.Open sqlDocuments2,con,1,2 if rsDocuments2("visible")=1 then%>

<%end if%>

<%=strContents%>