<%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") docid=rsDocuments1("DocumentID") end if %>

<%=strContents%>