Conexão - Tem algo de errado aki ?

[Kibe_Ghost 0]

O provedor ta dizendo que meu site esta dando muitos erros, e que nao estou fechando as conexoes corretamente...

 

Acredito q esteja correto... vejam...

 

Me ajudem se tiver algo errado!

 

 

 

conexao.asp

<%on error resume nextSession.LCID = 1046Server.ScriptTimeout = 180ScriptTimeOut = 180'======================= INICIALIZANDO OBJETOS =========================Set Conexao = Server.CreateObject("ADODB.Connection")'======================= SQL Server =========================Dim VAR_CONNVAR_CONN = "DRIVER={SQL SERVER};SERVER=MARTE\SQLEXPRESS; UID=ferveu;"VAR_CONN = VAR_CONN & "PWD=000000;DATABASE=ferveu_sql;"Conexao.Open VAR_CONN'======================= Verifica Se Conectou ========================='if err.number<>0 then'response.write("<p><img src='http://www.ferveu.com/home/img/logotipo_fogo.gif'><br><br>Não foi possivel conectar com a base de dados, tente dentro de alguns minutos!</p>")'response.end'end if'=========================== FECHA CONEXAO ===========================Function Fecha_Conexao()  If Conexao <> Null Then	Conexao.Close	Set Conexao = Nothing  End IfEnd Function%>

 

 

pagina_de_consulta.asp

 

<!-- #include file="conexao.asp" --><%Dim rsAgenda 'Variável de RecordsetDim rsFesta  'Variável de Recordsetcodigo = Replace(Request.QueryString("id"),chr(39),"''")Set rsAgenda = Server.CreateObject("ADODB.RecordSet")Set rsFesta = Server.CreateObject("ADODB.RecordSet")'-------------------------------------------------------------------pag = request.querystring("pagina")regs = 9 'Quantidade de registro por páginaif pag = "" Then   pag = 1end ifset rsFesta.activeconnection = conexaorsFesta.cursortype = 3rsFesta.pagesize = regs'-------------------------------------------------------------------If (codigo = "oque_vai_rolar") Then	SQL_Agenda = "SELECT CodAgenda, Data, Festa, Foto FROM Agenda ORDER BY Data"	rsAgenda.Open SQL_Agenda, Conexao	Response.Redirect "agenda.asp?id=" & rsAgenda("CodAgenda")End If'-----------------------------------------------------------------SQL_Agenda = "SELECT CodAgenda, Dia, Data, Festa, Foto FROM Agenda ORDER BY Data"rsAgenda.Open SQL_Agenda, ConexaoSQL_Festa = "SELECT CodFesta, Data, Festa, Foto FROM Festa WHERE Ativo = 'Sim' ORDER BY Data Desc"rsFesta.Open SQL_Festa, Conexao'---------------------------------------------------------------%><%rsAgenda.closersFesta.closeSet rsAgenda = NothingSet rsFesta = NothingFecha_Conexao%>

[jrcardozo 4]

aparentemente sim, mas eu faço assimIf Conexao.state <> 0 Then