<%
set con = Server.CreateObject("ADODB.Connection")
con.Open strCon
sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=11"
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%>
<%
sqlLibrary = "select id,catname from category where id_idioma=" & session("lang" & prj)& " order by catname"
set rsLibrary = server.CreateObject("ADODB.Recordset")
set rsLibrary = con.execute(sqlLibrary)
set rsLibLink = server.CreateObject("ADODB.Recordset")
if not rsLibrary.EOF then
%>
<% while not rsLibrary.EOF
%>
<%=rsLibrary("catname")%>
<%
sqlLibLink="select * from library where id_idioma=" & session("lang" & prj)& " and catid="&rsLibrary("id") & " order by name"
set rsLibLink = con.execute(sqlLibLink)
if not rsLibLink.EOF then
while not rsLibLink.EOF
%>