<% set con = Server.CreateObject("ADODB.Connection") con.Open strCon sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=8" 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("id")="" then%>

<%=strContents%>
<%end if%> <%rsDocuments1.Close%> <% if request("id")<>"" then sqlNews = "select * from whatsnew where id_idioma=" & session("lang" & prj)& " and id=" & cint(request("id")) set rsNews = server.CreateObject("ADODB.Recordset") set rsNews = con.execute(sqlNews) if not rsNews.EOF then %>
<% while not rsNews.EOF%> <% newsdate=split(rsNews("newsdate"),"/") if servidor=1 then newsdate1=newsdate(0) & "/" & newsdate(1) & "/" & newsdate(2) else newsdate1=newsdate(1) & "/" & newsdate(0) & "/" & newsdate(2) end if %> <% if rsNews("filepath") <> "" and rsNews("imgdisplay") = true then %> <% end if %> <% rsNews.MoveNext wend %>
<%=t_(73)%>: <%=newsdate1%>
<%=t_(74)%>: <%=rsNews("title")%>
<%=t_(75)%>:
<%=rsNews("contents")%>
" target="_new" class="navtxt"><%=t_(76)%>
<% end if rsNews.Close set rsNews = nothing end if %>
<% if request("id")<>"" then sqlNews = "select id, title, newsdate from whatsnew where id_idioma=" & session("lang" & prj)& " and display=1 and id<> " & cint(request("id")) & " order by newsdate desc" else sqlNews = "select id, title, newsdate from whatsnew where id_idioma=" & session("lang" & prj)& " and display=1 order by newsdate desc" end if set rsNews = server.CreateObject("ADODB.Recordset") set rsNews = con.execute(sqlNews) if not rsNews.EOF then %> <% while not rsNews.EOF newsdate=split(rsNews("newsdate"),"/") if servidor=1 then newsdate1=newsdate(0) & "/" & newsdate(1) & "/" & newsdate(2) else newsdate1=newsdate(1) & "/" & newsdate(0) & "/" & newsdate(2) end if %> <% rsNews.MoveNext wend %>
<%=newsdate1%> "><%=rsNews("title")%>
<% end if rsNews.Close set rsNews = nothing %>