<%
' Conexión a la BD
set ConexionBD = server.CreateObject ("ADODB.Connection")
cs = "DRIVER=Microsoft Access Driver (*.mdb);"
cs = cs & "DBQ=" & Server.Mappath ("Cobe.mdb")
ConexionBD.ConnectionString = cs
ConexionBD.Open()
' Tomamos las variables que le hemos pasado
IdTexto=request.querystring("CodTexto")
Id=request.querystring("Idioma")
SubPag=request.querystring("CodSubPag")
SubPag2=request.queryString("CodSubPag2")
' Generamos la Consulta y obtenemos el texto
ConsultaTexto="Select Texto from Textos where CodTexto="&IdTexto&"and Idioma="&Id
set ComConsulta = Server.CreateObject("ADODB.Command")
ComConsulta.ActiveConnection = ConexionBD
ComConsulta.commandtext = ConsultaTexto
set RsObtenerTexto = ComConsulta.execute
'Generamos consulta y obtenemos el título de la subpágina
ConsultaSubPag = "Select SubPagina From SubPaginas where CodSubPagina="&SubPag
set ComConsultaPagina = Server.CreateObject("ADODB.Command")
ComConsultaPagina.ActiveConnection = ConexionBD
ComConsultaPagina.commandtext = ConsultaSubPag
set RsObtenerSubPagina = ComConsultaPagina.execute
%>
