Usar classe instanciada no Global.asa

[lucianoavm00 0]

Gostaria de saber como faço para usar um objeto instanciado no global.asa em outras páginas de meu site.O problema é o seguinte: criei um objeto no global.asa e quero usá-lo nas outras páginas, ele faz uma consulta a um banco de dados. :huh:

[Fernando B. 0]

Ele tem que estar numa session ou application... Mas não é nem um pouco recomendável.- Fernando Botelho

[lucianoavm00 0]

Ele tem que estar numa session ou application... Mas não é nem um pouco recomendável.- Fernando Botelho

:huh: Sei que não é recomendado, mas minha consulta será realizada ao iniciar a sessão e depois será fechada, depois disto o bd não será aberto novamente.Já tentei associar minha classe a um objeto session e application, só funcionou na página onde a classe foi declarada, onde o objeto é instanciado.Você sabe como fazer para resolver isto?

[d.eleete 0]

você tem q usar application!coloque o objeto e fale mais detalhadamente o que quer fazer!Grato,

[lucianoavm00 0]

você tem q usar application!coloque o objeto e fale mais detalhadamente o que quer fazer!Grato,

:huh: Já tentei Application também, não deu certo.Você sabe como fazer de outra forma?O código da classe é grande, segue abaixo:Class Noticias Private DataInicial,DataFinal,NumeroRegistros,RegistrosRestantes Public Function SelecionaNoticias() DataFinal=Date() DataInicial=Date()-5 NumeroRegistros = 0 SET Session("Tabela") = SERVER.CREATEOBJECT("ADODB.CONNECTION") Session("Tabela").Open Application("Conexao"),"","" Set Session("RecordSet") = Server.CreateObject ("ADODB.RecordSet") Session("RecordSet").Open "SELECT DATA_NOT,DESCRICAO_NOT,TITULO_NOT FROM NOTICIAS WHERE DATA_NOT BETWEEN " & DataInicial & " AND " & DataFinal & " ORDER BY DATA_NOT DESC", Session("Tabela"), 0, 1 DO WHILE Not Session("RecordSet").Eof IF (Session("RecordSet").Fields("DATA_NOT") <> "") Then IF (NumeroRegistros = 0) Then Session("TITULO_NOT")=Session("RecordSet").Fields("TITULO_NOT") Session("DESCRICAO_NOT")=Session("RecordSet").Fields("DESCRICAO_NOT") Session("DATA_NOT")=Session("RecordSet").Fields("DATA_NOT") End IF Response.Write "<FONT CLASS=""TIT-NOTICIAS""><I>" & Session("RecordSet").Fields("TITULO_NOT") & "</I></FONT><BR><BR>" Response.Write "<FONT CLASS=""TEXTO-NOTICIAS"">" & Session("RecordSet").Fields("DESCRICAO_NOT") & "<BR><SPAN CLASS=""DATA-NOTICIAS""><DIV ALIGN=RIGHT>[" & Session("RecordSet").Fields("DATA_NOT") & "]</DIV></SPAN><BR>" & "<A HREF=""default.asp"" TARGET=""FRAME_BODY""><B>...::: Leia mais :::...</B></A></FONT><BR><BR>" NumeroRegistros = NumeroRegistros + 1 End IF Session("RecordSet").MoveNext Loop Session("Tabela").Close Set Session("Tabela") = Nothing Set Session("RecordSet") = Nothing End Function Public Function Seleciona5UltimasNoticias() RegistrosRestantes = 5 - NumeroRegistros IF ((RegistrosRestantes = 0) OR (RegistrosRestantes < 0)) Then Exit Function End IF SET Session("Tabela") = SERVER.CREATEOBJECT("ADODB.CONNECTION") Session("Tabela").Open Application("Conexao"),"","" Set Session("RecordSet") = Server.CreateObject ("ADODB.RecordSet") IF (RegistrosRestantes = 5) Then Session("RecordSet").Open "SELECT TOP 1 DATA_NOT FROM NOTICIAS ORDER BY DATA_NOT DESC", Session("Tabela"), 0, 1 DO WHILE Not Session("RecordSet").Eof DataFinal = Session("RecordSet").Fields("DATA_NOT") Session("RecordSet").MoveNext Loop Session("Tabela").Close Set Session("Tabela") = Nothing Set Session("RecordSet") = Nothing Else DataFinal = Date()-6 End IF Set Session("Tabela") = SERVER.CREATEOBJECT("ADODB.CONNECTION") Session("Tabela").Open Application("Conexao"),"","" Set Session("RecordSet") = Server.CreateObject ("ADODB.RecordSet") Session("RecordSet").Open "SELECT TOP " & RegistrosRestantes & " DATA_NOT,DESCRICAO_NOT,TITULO_NOT FROM NOTICIAS WHERE DATA_NOT <= #" & DataFinal & "# ORDER BY DATA_NOT DESC", Session("Tabela"), 0, 1 NumeroRegistros = 0 DO WHILE ((Not Session("RecordSet").Eof) AND (NumeroRegistros < RegistrosRestantes)) IF (NumeroRegistros = 0) Then Session("TITULO_NOT")=Session("RecordSet").Fields("TITULO_NOT") Session("DESCRICAO_NOT")=Session("RecordSet").Fields("DESCRICAO_NOT") Session("DATA_NOT")=Session("RecordSet").Fields("DATA_NOT") End IF Response.Write "<FONT CLASS=""TIT-NOTICIAS""><I>" & Session("RecordSet").Fields("TITULO_NOT") & "</I></FONT><BR><BR>" Response.Write "<FONT CLASS=""TEXTO-NOTICIAS"">" & Session("RecordSet").Fields("DESCRICAO_NOT") & "<BR><SPAN CLASS=""DATA-NOTICIAS""><DIV ALIGN=RIGHT>[" & Session("RecordSet").Fields("DATA_NOT") & "]</DIV></SPAN><BR>" & "<A HREF=""default.asp"" TARGET=""FRAME_BODY""><B>...::: Leia mais :::...</B></A></FONT><BR><BR>" NumeroRegistros = NumeroRegistros + 1 Session("RecordSet").MoveNext Loop Session("Tabela").Close Set Session("Tabela") = Nothing Set Session("RecordSet") = Nothing End FunctionEnd ClassDim OBJ_NoticiasSet OBJ_Noticias = New NoticiasO objeto deve ser declarado no global.asa e estar disponível para o resto da aplicação. :o