<%
bDontCount = False
sPageTitle = "Mecacentre"
bAdminOnly = False
lSubjectID = 0
bnocuenta=false
OpenDB sConnJuegos
sSQL="SELECT * from juegos where ID=6"
rs.Open sSQL,,,adCmdTable
select case session("Idioma")
case 1
titulopag = rs("Titulojuego_Cast")
sBody = replace(rs("Instrucciones_cast"), chr(13), "
")
sBarraTitulo = "/Mecacentre » Inicio » " & Titulopag
stitulo= rs("TituloJuego_Cast")
case else
titulopag = rs("TituloJuego_cat")
sBody = replace(rs("Instrucciones_Cat"), chr(13), "
")
sBarraTitulo = "/Mecacentre » Inici » " & TituloPag
stitulo= rs("tituloJuego_Cat")
end select
conn.execute "UPDATE juegos SET PagVistas = PagVistas + 1 WHERE ID = 6"
CloseDB
%>
 |
<%=stitulo%> |
|
|