<% Dim dbconn,Connect Set dbconn=Server.CreateObject("ADODB.Connection") dbconn.open "driver={SQL Server};server=PORTAL_COLEF;database=Portal;uid=sisadmind;pwd=kirro" ' dbconn.open Connect %> <% QueryNotaPrincipal= "SELECT * FROM TNotaPrincipal WHERE SubirAlaWeb= '1' and FirmaDelEditor='1' and inc='43' "%> <% QueryNotasPrincipales= "SELECT * FROM TNotaPrincipal WHERE SubirAlaWeb= '1' order by orden"%> <% QueryEventos= "SELECT * FROM TEventos WHERE SubirAlaWeb='1' and FirmaDelEditor='1' and PonerPaginaInicio='1' order by inc "%> <% QuerySabiasQue= "SELECT * FROM TSabiasQue WHERE SubirAlaWeb='1' and FirmaDelEditor='1'"%> <% QueryNovedad= "SELECT * FROM TNovedad WHERE SubirAlaWeb='1' and FirmaDelEditor='1' and PonerPaginaInicio='1'"%> <% set objRSNotaPrincipal=dbconn.execute(QueryNotaPrincipal)%> <% set objRSNotasPrincipales=dbconn.execute(QueryNotasPrincipales)%> <% set objRSEvento=dbconn.execute(QueryEventos)%> <% set objRSSabiasQue=dbconn.execute(QuerySabiasQue)%> <% set objRSNovedad=dbconn.execute(QueryNovedad)%>