<%@LANGUAGE="VBSCRIPT"%>
<%
'-------------------------------------------------------------------------------------->
Dim Idioma
Dim titols(3)
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/dochotel.mdb")
Idioma = Session("Idioma")
If Len(Idioma) > 0 Then
Idioma = "2"
else
Idioma = "1"
end if
Set pagclirs = objConn.Execute("SELECT artw_articulo FROM articles_web " _
& "WHERE artw_tipo = 'WT1' AND artw_grup = " & idioma & " ORDER BY artw_fecha DESC")
DO until pagclirs.eof
Set linclirs = objConn.Execute("SELECT artw_articulo,artw_tipo,artw_texto,artw_codigo,artw_fecha FROM articles_web " _
& "WHERE " _
& "artw_articulo = '" & pagclirs("artw_articulo") & "'" _
& " ORDER BY artw_tipo")
linclirs.filter = "artw_tipo = 'WT1'"
titols(0) = linclirs("artw_texto")
VItemArt = linclirs("artw_articulo")
codclie = linclirs("artw_codigo")
linclirs.filter = "artw_tipo = 'WS1'"
titols(1) = linclirs("artw_texto")
linclirs.filter = "artw_tipo = 'WA1'"
titols(2) = linclirs("artw_texto")
linclirs.close
Set linclirs = objConn.Execute("SELECT Content,BgColor From Documents where ItemArt = '" & VItemArt & "'")
BGroundColor = "#FFFFFF"
if not linclirs.eof then
if len(linclirs("BgColor")) > 0 then
BGroundColor = linclirs("BgColor")
end if
end if
%>
Hotel Bonanova Park
<%= titols(0)%>
<%= titols(1)%>
<%= titols(2)%>
<%
if not linclirs.eof then
response.write linclirs("Content")
end if
%>