<%
set con = Server.CreateObject("ADODB.Connection")
con.Open strCon
sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=7"
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
%>
<% if request.querystring("id")="" then %>
<%=strContents%>
<% end if %>
<%rsDocuments1.Close%>
<%
if request.querystring("id")<>"" then
mysql = "select * from services where id_idioma=" & session("lang" & prj)& " and id="& cint(request.querystring("id"))
else
mysql = "select * from services where id_idioma=" & session("lang" & prj)& " order by soryOrder,sname"
end if
set rsser = server.CreateObject("ADODB.Recordset")
set rsser = con.execute(mysql)
if request.querystring("id")<>"" then
if not rsser.EOF then %>
<%=rsser("sname")%>
<%
if rsser("imagedisplay") = true and rsser("imagefile") <> "" then
%>