Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

pastoverdejante

[Resolvido] Erro em ASP

Por , em ASP Clássico

Recommended Posts

pastoverdejante    0

pastoverdejante
Postado

Amigos aparece este erro para mim

 

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/default.asp, line 1251

 

Esta linha está no final do script:

 

finaliza/destroi os objetos

1251   DestaqueHome2.Close

		  Set DestaqueHome2 = Nothing
		  DestaqueHome3.Close

Segue abaixo o código para verificação:

Obrigado!

 

<!-- #include file="Includes/BarraCima.asp" -->
<!-- #include file="Includes/EnvioEmail.asp" -->
<%
Dim BannerTop
Dim BannerBottom
Dim BannerTopDesativar
Dim BannerBottomDesativar
Dim BannerTopValor
Dim BannerTopTotal
Dim BannerBottomValor
Dim BannerBottomTotal
Dim sql_contagem_bannerTop
Dim contadorTop
Dim sql_contagem_bannerBottom
Dim contadorBottom

Set BannerTop = Server.CreateObject("ADODB.Recordset")
	BannerTop.CursorType = 3
	BannerTop.Open("SELECT Cod, Banner, Link, Extensao, Target FROM Banners WHERE CodLocal=1 and Status=1 AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not BannerTop.EOF Then
			BannerTopTotal = BannerTop.RecordCount
			Randomize()
			BannerTopValor = Int(Rnd * BannerTopTotal)
			BannerTop.Move(BannerTopValor)
		Else
			BannerTopDesativar = 1
		End If

Set BannerBottom = Server.CreateObject("ADODB.Recordset")
	BannerBottom.CursorType = 3
	BannerBottom.Open("SELECT Cod, Banner, Link, Extensao, Target FROM Banners WHERE CodLocal=2 and Status=1 AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not BannerBottom.EOF Then
			BannerBottomTotal = BannerBottom.RecordCount
			Randomize()
			BannerBottomValor = Int(Rnd * BannerBottomTotal)
			BannerBottom.Move(BannerBottomValor)
		Else
			BannerBottomDesativar = 1
		End If
'------------------------------------------------------------------------------------------------------------------------------------		
Dim DestaqueHome1
Dim DestaqueHome2
Dim DestaqueHome3
Dim DestaqueHome4
Dim DestaqueHome5
Dim DestaqueHome6
Dim DestaqueHome1Desativar
Dim DestaqueHome2Desativar
Dim DestaqueHome3Desativar
Dim DestaqueHome4Desativar
Dim DestaqueHome5Desativar
Dim DestaqueHome6Desativar
Dim DestaqueHome1Valor
Dim DestaqueHome2Valor
Dim DestaqueHome3Valor
Dim DestaqueHome4Valor
Dim DestaqueHome5Valor
Dim DestaqueHome6Valor
Dim DestaqueHome1Total
Dim DestaqueHome2Total
Dim DestaqueHome3Total
Dim DestaqueHome4Total
Dim DestaqueHome5Total
Dim DestaqueHome6Total
Dim SecaoDestaque1
Dim SecaoDestaque2
Dim SecaoDestaque3
Dim SecaoDestaque4
Dim SecaoDestaque5
Dim SecaoDestaque6

Set DestaqueHome1 = Server.CreateObject("ADODB.Recordset")
	DestaqueHome1.CursorType = 3

	DestaqueHome1.Open("SELECT Cod, NomeProduto, BreveDescricao, Valor, Foto1, CodSecao FROM Anuncios WHERE CodLocal=2 AND Ativacao=1 AND Status=1 AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not DestaqueHome1.EOF Then
			DestaqueHome1Total = DestaqueHome1.RecordCount
			Randomize()
			DestaqueHome1Valor = Int(Rnd * DestaqueHome1Total)
			DestaqueHome1.Move(DestaqueHome1Valor)
			Set SecaoDestaque1 = Server.CreateObject("ADODB.Recordset")
				SecaoDestaque1.CursorType = 3
				SecaoDestaque1.Open("SELECT Cod, Secao FROM Secoes WHERE Cod="&DestaqueHome1("CodSecao")), Conn
		Else
			DestaqueHome1Desativar = 1
			DestaqueHome2Desativar = 1
			DestaqueHome3Desativar = 1
			DestaqueHome4Desativar = 1
			DestaqueHome5Desativar = 1
			DestaqueHome6Desativar = 1
		End If

If Not DestaqueHome1Desativar = 1 Then
Set DestaqueHome2 = Server.CreateObject("ADODB.Recordset")
	DestaqueHome2.CursorType = 3
	DestaqueHome2.Open("SELECT Cod, NomeProduto, BreveDescricao, Valor, Foto1, CodSecao FROM Anuncios WHERE CodLocal=2 AND Ativacao=1 AND Status=1 AND Cod<>"&DestaqueHome1("Cod")&" AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not DestaqueHome2.EOF Then
			DestaqueHome2Total = DestaqueHome2.RecordCount
			Randomize()
			DestaqueHome2Valor = Int(Rnd * DestaqueHome2Total)
			DestaqueHome2.Move(DestaqueHome2Valor) 'AFPC0002607
			Set SecaoDestaque2 = Server.CreateObject("ADODB.Recordset")
				SecaoDestaque2.CursorType = 3
				SecaoDestaque2.Open("SELECT Cod, Secao FROM Secoes WHERE Cod="&DestaqueHome2("CodSecao")), Conn
		Else
			DestaqueHome2Desativar = 1
			DestaqueHome3Desativar = 1
			DestaqueHome4Desativar = 1
			DestaqueHome5Desativar = 1
			DestaqueHome6Desativar = 1
		End If
End If

If Not DestaqueHome2Desativar = 1 Then
Set DestaqueHome3 = Server.CreateObject("ADODB.Recordset")
	DestaqueHome3.CursorType = 3
	DestaqueHome3.Open("SELECT Cod, NomeProduto, BreveDescricao, Valor, Foto1, CodSecao FROM Anuncios WHERE CodLocal=2 AND Ativacao=1 AND Status=1 AND Cod<>"&DestaqueHome1("Cod")&" AND Cod<>"&DestaqueHome2("Cod")&" AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not DestaqueHome3.EOF Then
			DestaqueHome3Total = DestaqueHome3.RecordCount
			Randomize()
			DestaqueHome3Valor = Int(Rnd * DestaqueHome3Total)
			DestaqueHome3.Move(DestaqueHome3Valor)
			Set SecaoDestaque3 = Server.CreateObject("ADODB.Recordset")
				SecaoDestaque3.CursorType = 3
				SecaoDestaque3.Open("SELECT Cod, Secao FROM Secoes WHERE Cod="&DestaqueHome3("CodSecao")), Conn
		Else
			DestaqueHome3Desativar = 1
			DestaqueHome4Desativar = 1
			DestaqueHome5Desativar = 1
			DestaqueHome6Desativar = 1
		End If
End If

If Not DestaqueHome3Desativar = 1 Then
Set DestaqueHome4 = Server.CreateObject("ADODB.Recordset")
	DestaqueHome4.CursorType = 3
	DestaqueHome4.Open("SELECT Cod, NomeProduto, BreveDescricao, Valor, Foto1, CodSecao FROM Anuncios WHERE CodLocal=2 AND Ativacao=1 AND Status=1 AND Cod<>"&DestaqueHome1("Cod")&" AND Cod<>"&DestaqueHome2("Cod")&" AND Cod<>"&DestaqueHome3("Cod")&" AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not DestaqueHome4.EOF Then
			DestaqueHome4Total = DestaqueHome4.RecordCount
			Randomize()
			DestaqueHome4Valor = Int(Rnd * DestaqueHome4Total)
			DestaqueHome4.Move(DestaqueHome4Valor)
			Set SecaoDestaque4 = Server.CreateObject("ADODB.Recordset")
				SecaoDestaque4.CursorType = 3
				SecaoDestaque4.Open("SELECT Cod, Secao FROM Secoes WHERE Cod="&DestaqueHome4("CodSecao")), Conn
		Else
			DestaqueHome4Desativar = 1
			DestaqueHome5Desativar = 1
			DestaqueHome6Desativar = 1
		End If
End If

If Not DestaqueHome4Desativar = 1 Then
Set DestaqueHome5 = Server.CreateObject("ADODB.Recordset")
	DestaqueHome5.CursorType = 3
	DestaqueHome5.Open("SELECT Cod, NomeProduto, BreveDescricao, Valor, Foto1, CodSecao FROM Anuncios WHERE CodLocal=2 AND Ativacao=1 AND Status=1 AND Cod<>"&DestaqueHome1("Cod")&" AND Cod<>"&DestaqueHome2("Cod")&" AND Cod<>"&DestaqueHome3("Cod")&" AND Cod<>"&DestaqueHome4("Cod")&" AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not DestaqueHome5.EOF Then
			DestaqueHome5Total = DestaqueHome5.RecordCount
			Randomize()
			DestaqueHome5Valor = Int(Rnd * DestaqueHome5Total)
			DestaqueHome5.Move(DestaqueHome5Valor)
			Set SecaoDestaque5 = Server.CreateObject("ADODB.Recordset")
				SecaoDestaque5.CursorType = 3
				SecaoDestaque5.Open("SELECT Cod, Secao FROM Secoes WHERE Cod="&DestaqueHome5("CodSecao")), Conn
		Else
			DestaqueHome5Desativar = 1
			DestaqueHome6Desativar = 1
		End If
End If

If Not DestaqueHome5Desativar = 1 Then
Set DestaqueHome6 = Server.CreateObject("ADODB.Recordset")
	DestaqueHome6.CursorType = 3
	DestaqueHome6.Open("SELECT Cod, NomeProduto, BreveDescricao, Valor, Foto1, CodSecao FROM Anuncios WHERE CodLocal=2 AND Ativacao=1 AND Status=1 AND Cod<>"&DestaqueHome1("Cod")&" AND Cod<>"&DestaqueHome2("Cod")&" AND Cod<>"&DestaqueHome3("Cod")&" AND Cod<>"&DestaqueHome4("Cod")&" AND Cod<>"&DestaqueHome5("Cod")&" AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not DestaqueHome6.EOF Then
			DestaqueHome6Total = DestaqueHome6.RecordCount
			Randomize()
			DestaqueHome6Valor = Int(Rnd * DestaqueHome6Total)
			DestaqueHome6.Move(DestaqueHome6Valor)
			Set SecaoDestaque6 = Server.CreateObject("ADODB.Recordset")
				SecaoDestaque6.CursorType = 3
				SecaoDestaque6.Open("SELECT Cod, Secao FROM Secoes WHERE Cod="&DestaqueHome6("CodSecao")), Conn
		Else
			DestaqueHome6Desativar = 1
		End If
End If
'------------------------------------------------------------------------------------------------------------------------------------		
Dim DestaquePrincipal
Dim DestaquePrincipalDesativar
Dim DestaquePrincipalValor
Dim DestaquePrincipalTotal

Set DestaquePrincipal = Server.CreateObject("ADODB.Recordset")
	DestaquePrincipal.CursorType = 3
	DestaquePrincipal.Open("SELECT Cod, NomeProduto, BreveDescricao, Valor, Foto1, CodSecao FROM Anuncios WHERE CodLocal=1 AND Ativacao=1 and Status=1 AND DataDe <= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"# AND DataAte >= #"&Month(Date) & "/" & Day(Date) & "/" & Year(Date) &"#"), Conn
		If not DestaquePrincipal.EOF Then
			DestaquePrincipalTotal = DestaquePrincipal.RecordCount
			Randomize()
			DestaquePrincipalValor = Int(Rnd * DestaquePrincipalTotal)
			DestaquePrincipal.Move(DestaquePrincipalValor)
		Else
			DestaquePrincipalDesativar = 1
		End If
'------------------------------------------------------------------------------------------------------------------------------------
'Contador de acessos
Dim altContador

If Session("Contador") = "" Then
	Set altContador = Conn.Execute("UPDATE Contador SET Acessos = Acessos + 1")
	Session("Contador") = "1"
	Set altContador = Nothing
End If
'------------------------------------------------------------------------------------------------------------------------------------
'Envia aviso de vencimentos
Dim DataEnvio
Dim Aviso

DataEnvio = DateAdd("d",10,Date())

Set Aviso = Server.Createobject("ADODB.RecordSet")
Aviso.open "SELECT Cod, CodPlano, CodAnunciante, NomeProduto, DataAte FROM Anuncios WHERE DataAte=#"&Month(DataEnvio) & "/" & Day(DataEnvio) & "/" & Year(DataEnvio) &"# AND Envio=0", Conn

While Not(Aviso.eof)

Dim Plano
Dim Anunciante
Dim sbody
Dim Email
Dim Envio

	Set plano = Conn.Execute("SELECT Valor FROM Planos WHERE Cod="&Aviso("CodPlano"))
	Set Anunciante = Conn.Execute("SELECT NomeResponsavel, Email FROM Anunciantes WHERE Cod="&Aviso("CodAnunciante"))

	If plano("valor") <> 0 Then
			'Envia o email (P/ Anúncios Pagos)
			sbody = "<html><head>"
			sbody = sbody & "<link href='"&EndLocal&"Includes/Styles.css' rel='stylesheet' type='text/css'>"
			sbody = sbody & "</head>"
			sbody = sbody & "<body bgcolor='#FFFFFF'>"
			sbody = sbody & "<table width='370' height='270' border='0' cellpadding='0' cellspacing='0' background='"&EndLocal&"Imagens/EmailPagamento.gif'>"
			sbody = sbody & "<tr><td height='66'> </td></tr>"
			sbody = sbody & "<tr><td valign='top'><br>"
			sbody = sbody & "<table border=0 cellpadding=0 cellspacing=0 width='100%'>"
			sbody = sbody & "<tr><td width='10' class='TextoCinzaEscuro'> </td>"
			sbody = sbody & "<td class='TextoCinzaEscuro' align='center'>Caro <b>"&Anunciante("NomeResponsavel")&"</b>,<br>"
			sbody = sbody & "<br>"
			sbody = sbody & "o anúncio referente a(o) <b>"&Aviso("NomeProduto")&"</b> tem seu vencimento no dia <b>"&Aviso("DataAte")&"</b>."
			sbody = sbody & "<br><br>"
			sbody = sbody & "Para efetuar o pagamento, <a href='"&EndLocal&"ImprimeBoleto.asp?Anuncio="&Aviso("Cod")&"' class='TituloCinzaEscuro'>clique aqui.</a>"
			sbody = sbody & "<br><br><b>Obrigado!</b></td>"
			sbody = sbody & "<td width='10' class='TextoCinzaEscuro'> </td>"
			sbody = sbody & "</tr></table></td></tr></table>"
			sbody = sbody & "</body></html>"
	
			vEmailNomeRemetente = Titulo ' Remetente (Nome)
			vEmailRemetente = EmailPadrao ' Remetente (Email)
			vEmailNomeDestinatario = Anunciante("NomeResponsavel") ' Destinatário (Nome)
			vEmailDestinatario = Anunciante("Email") ' Destinatário (Email)
			vEmailRetorno = EmailPadrao ' Remetente
			vEmailAssunto = "Aviso de Pagamento" ' Assunto
			vEmailCorpo = sbody ' Corpo
		
		'response.write sbody

			Call EnvioEmail()

			Set Envio = Conn.Execute("UPDATE Anuncios SET Envio=1 WHERE Cod="&Aviso("Cod"))
	Else
			'Envia o email (P/ Anúncios Gratuitos)
			sbody = "<html><head>"
			sbody = sbody & "<link href='"&EndLocal&"Includes/Styles.css' rel='stylesheet' type='text/css'>"
			sbody = sbody & "</head>"
			sbody = sbody & "<body bgcolor='#FFFFFF'>"
			sbody = sbody & "<table width='370' height='270' border='0' cellpadding='0' cellspacing='0' background='"&EndLocal&"Imagens/EmailRenovacao.gif'>"
			sbody = sbody & "<tr><td height='66'> </td></tr>"
			sbody = sbody & "<tr><td valign='top'><br>"
			sbody = sbody & "<table border=0 cellpadding=0 cellspacing=0 width='100%'>"
			sbody = sbody & "<tr><td width='10' class='TextoCinzaEscuro'> </td>"
			sbody = sbody & "<td class='TextoCinzaEscuro' align='center'>Caro <b>"&Anunciante("NomeResponsavel")&"</b>,<br>"
			sbody = sbody & "<br>"
			sbody = sbody & "o anúncio referente a(o) <b>"&Aviso("NomeProduto")&"</b> tem seu vencimento no dia <b>"&Aviso("DataAte")&"</b>."
			sbody = sbody & "<br><br>"
			sbody = sbody & "Para efetuar a renovação, <a href='"&EndLocal&"MeuAnuncio.asp' class='TituloCinzaEscuro'>clique aqui.</a>"
			sbody = sbody & "<br><br><b>Obrigado!</b></td>"
			sbody = sbody & "<td width='10' class='TextoCinzaEscuro'> </td>"
			sbody = sbody & "</tr></table></td></tr></table>"
			sbody = sbody & "</body></html>"
		
			vEmailNomeRemetente = Titulo ' Remetente (Nome)
			vEmailRemetente = EmailPadrao ' Remetente (Email)
			vEmailNomeDestinatario = Anunciante("NomeResponsavel") ' Destinatário (Nome)
			vEmailDestinatario = Anunciante("Email") ' Destinatário (Email)
			vEmailRetorno = EmailPadrao ' Remetente
			vEmailAssunto = "Aviso de Renovação" ' Assunto
			vEmailCorpo = sbody ' Corpo
	
			Call EnvioEmail()
	
			Set Envio = Conn.Execute("UPDATE Anuncios SET Envio=1 WHERE Cod="&Aviso("Cod"))
	End If

Aviso.MoveNext

Wend
%>
  <tr>
	<td valign="top">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
	  <tr>
		<td width="150" align="center" valign="top" bgcolor="#F9F9F9"><!-- #include file="Includes/BarraEsq.asp" --></td>
		<td align="center" valign="top" bgcolor="#FFFFFF">
		  <table width="468" border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
		  </tr>
		  <% If Not BannerTopDesativar = 1 Then %>
			  <tr>
			  <td align="center">
				<% 
				if BannerTop("extensao")="swf" then %>
				<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0','width','468','height','60','src','<%=LocalBanner&BannerTop("banner")%>','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','<%=LocalBanner&BannerTop("banner")%>' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="468" height="60">
				<param name="movie" value="<%=LocalBanner&BannerTop("banner")%>">
				<param name="quality" value="high">
				<embed src="<%=LocalBanner&BannerTop("banner")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="468" height="60"></embed>
				</object></noscript>
				<%
				Else
					If BannerTop("Link") = "" or BannerTop("Link") = "http://" Then
				%>
						<img src="<%=LocalBanner&BannerTop("banner")%>" width="468" height="60" border="0">
					<% Else %>
						<a href="ContaClick.asp?Banner=<%=BannerTop("Cod")%>&Link=<%=BannerTop("Link")%>" target="<%=BannerTop("target")%>"><img src="<%=LocalBanner&BannerTop("banner")%>" width="468" height="60" border="0"></a>
				<% 
					End If
				end if
				sql_contagem_bannerTop = "UPDATE banners SET pageviews = pageviews + 1 WHERE cod="&BannerTop("cod")
				set contadorTop = conn.execute(sql_contagem_bannerTop)
				%>
			  </td>
			  </tr>
		  <tr>
			<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
		  </tr>
		  <%
		  End If
		  If Not DestaquePrincipalDesativar = 1 Then
		  %>
		  <tr>
			<td>
			<table width="100%" border="0" cellspacing="0" cellpadding="0">
			  <tr>
				<td width="240" valign="top"><a href="MaisAnuncio.asp?CodProduto=<%=DestaquePrincipal("Cod")%>"><img src="<%=LocalFoto&DestaquePrincipal("Foto1")%>" width="235" border="0"></a></td>
				<td valign="top">
				<table width="100%"  border="0" cellspacing="0" cellpadding="0">
				  <tr>
					<td class="TituloCinzaMedio"><%=DestaquePrincipal("NomeProduto")%></td>
				  </tr>
				  <tr>
					<td class="TextoCinzaMedio"><%=DestaquePrincipal("BreveDescricao")%>...</td>
				  </tr>
				  <tr>
					<td class="TituloVermelho"><%=FormatCurrency(DestaquePrincipal("Valor"), 2)%></td>
				  </tr>
				  <tr>
					<td class="TextoCinzaEscuro"> </td>
				  </tr>
				  <tr>
					<td class="TextoCinzaEscuro"><a href="MaisAnuncio.asp?CodProduto=<%=DestaquePrincipal("Cod")%>" class="TextoCinzaEscuro">Mais informações</a></td>
				  </tr>
				</table>
				</td>
			  </tr>
			</table>
			</td>
		  </tr>
		  <tr>
			<td> </td>
		  </tr>
		  <% End If %>
		  <tr>
			<td align="center">
			<% If Not DestaqueHome1Desativar=1 Then %>
			<table border="0" cellspacing="0" cellpadding="0" align="center">
			  <tr>
				<td valign="top" height="100%">
				<table width="156" height="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
				  <tr>
					<td height="20" bgcolor="#293743" class="TituloBranco" style="padding-left:10; font-variant:small-caps"><%=SecaoDestaque1("Secao")%></td>
				  </tr>
				  <tr>
					<td align="center" valign="top" bgcolor="#FFFFFF">
					<table width="120" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
					  </tr>
					  <tr>
						<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome1("Cod")%>"><img src="<%=LocalFoto&DestaqueHome1("Foto1")%>" width="120" border="0"></a></td>
					  </tr>
					  <tr>
						<td class="TituloCinzaMedio"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome1("Cod")%>" class="TituloCinzaMedio"><%=DestaqueHome1("NomeProduto")%></a></td>
					  </tr>
					  <tr>
						<td class="TextoCinzaMedio"><%=DestaqueHome1("BreveDescricao")%></td>
					  </tr>
					  <tr>
						<td height="20" valign="top" class="TituloVermelho"><%=FormatCurrency(DestaqueHome1("Valor"), 2)%></td>
					  </tr>
					</table>
					</td>
				  </tr>
				</table>
				</td>
				<% If Not DestaqueHome2Desativar=1 Then %>
				<td valign="top" height="100%">
				<table width="156" height="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
				  <tr>
					<td height="20" bgcolor="#293743" class="TituloBranco" style="padding-left:10; font-variant:small-caps"><%=SecaoDestaque2("Secao")%></td>
				  </tr>
				  <tr>
					<td align="center" valign="top" bgcolor="#FFFFFF">
					<table width="120" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
					  </tr>
					  <tr>
						<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome2("Cod")%>"><img src="<%=LocalFoto&DestaqueHome2("Foto1")%>" width="120" border="0"></a></td>
					  </tr>
					  <tr>
						<td class="TituloCinzaMedio"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome2("Cod")%>" class="TituloCinzaMedio"><%=DestaqueHome2("NomeProduto")%></a></td>
					  </tr>
					  <tr>
						<td class="TextoCinzaMedio"><%=DestaqueHome2("BreveDescricao")%></td>
					  </tr>
					  <tr>
						<td height="20" valign="top" class="TituloVermelho"><%=FormatCurrency(DestaqueHome2("Valor"), 2)%></td>
					  </tr>
					</table>
					</td>
				  </tr>
				</table>
				</td>
				<%
				End If
				If Not DestaqueHome3Desativar=1 Then
				%>
				<td valign="top" height="100%">
				<table width="156" height="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
				  <tr>
					<td height="20" bgcolor="#293743" class="TituloBranco" style="padding-left:10; font-variant:small-caps"><%=SecaoDestaque3("Secao")%></td>
				  </tr>
				  <tr>
					<td align="center" valign="top" bgcolor="#FFFFFF">
					<table width="120" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
					  </tr>
					  <tr>
						<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome3("Cod")%>"><img src="<%=LocalFoto&DestaqueHome3("Foto1")%>" width="120" border="0"></a></td>
					  </tr>
					  <tr>
						<td class="TituloCinzaMedio"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome3("Cod")%>" class="TituloCinzaMedio"><%=DestaqueHome3("NomeProduto")%></a></td>
					  </tr>
					  <tr>
						<td class="TextoCinzaMedio"><%=DestaqueHome3("BreveDescricao")%></td>
					  </tr>
					  <tr>
						<td height="20" valign="top" class="TituloVermelho"><%=FormatCurrency(DestaqueHome3("Valor"), 2)%></td>
					  </tr>
					</table>
					</td>
				  </tr>
				</table>
				</td>
				<% End If %>
			  </tr>
			</table>
			<%
			End If 
			If Not DestaqueHome4Desativar=1 Then
			%>
			<table border="0" cellspacing="0" cellpadding="0" align="center">
			  <tr>
				<td valign="top" height="100%">
				<table width="156" height="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
				  <tr>
					<td height="20" bgcolor="#293743" class="TituloBranco" style="padding-left:10; font-variant:small-caps"><%=SecaoDestaque4("Secao")%></td>
				  </tr>
				  <tr>
					<td align="center" valign="top" bgcolor="#FFFFFF">
					<table width="120" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
					  </tr>
					  <tr>
						<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome4("Cod")%>"><img src="<%=LocalFoto&DestaqueHome4("Foto1")%>" width="120" border="0"></a></td>
					  </tr>
					  <tr>
						<td class="TituloCinzaMedio"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome4("Cod")%>" class="TituloCinzaMedio"><%=DestaqueHome4("NomeProduto")%></a></td>
					  </tr>
					  <tr>
						<td class="TextoCinzaMedio"><%=DestaqueHome4("BreveDescricao")%></td><!-- AFPC0002607 -->
					  </tr>
					  <tr>
						<td height="20" valign="top" class="TituloVermelho"><%=FormatCurrency(DestaqueHome4("Valor"), 2)%></td>
					  </tr>
					</table>
					</td>
				  </tr>
				</table>
				</td>
				<% If Not DestaqueHome5Desativar=1 Then %>
				<td valign="top" height="100%">
				<table width="156" height="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
				  <tr>
					<td height="20" bgcolor="#293743" class="TituloBranco" style="padding-left:10; font-variant:small-caps"><%=SecaoDestaque5("Secao")%></td>
				  </tr>
				  <tr>
					<td align="center" valign="top" bgcolor="#FFFFFF">
					<table width="120" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
					  </tr>
					  <tr>
						<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome5("Cod")%>"><img src="<%=LocalFoto&DestaqueHome5("Foto1")%>" width="120" border="0"></a></td>
					  </tr>
					  <tr>
						<td class="TituloCinzaMedio"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome5("Cod")%>" class="TituloCinzaMedio"><%=DestaqueHome5("NomeProduto")%></a></td>
					  </tr>
					  <tr>
						<td class="TextoCinzaMedio"><%=DestaqueHome5("BreveDescricao")%></td>
					  </tr>
					  <tr>
						<td height="20" valign="top" class="TituloVermelho"><%=FormatCurrency(DestaqueHome5("Valor"), 2)%></td>
					  </tr>
					</table>
					</td>
				  </tr><!-- AFPC0002607 -->
				</table>
				</td>
				<%
				End If
				If Not DestaqueHome6Desativar=1 Then
				%>
				<td valign="top" height="100%">
				<table width="156" height="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DDDDDD">
				  <tr>
					<td height="20" bgcolor="#293743" class="TituloBranco" style="padding-left:10; font-variant:small-caps"><%=SecaoDestaque6("Secao")%></td>
				  </tr>
				  <tr>
					<td align="center" valign="top" bgcolor="#FFFFFF">
					<table width="120" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
					  </tr>
					  <tr>
						<td><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome6("Cod")%>"><img src="<%=LocalFoto&DestaqueHome6("Foto1")%>" width="120" border="0"></a></td>
					  </tr>
					  <tr>
						<td class="TituloCinzaMedio"><a href="MaisAnuncio.asp?CodProduto=<%=DestaqueHome6("Cod")%>" class="TituloCinzaMedio"><%=DestaqueHome6("NomeProduto")%></a></td>
					  </tr>
					  <tr>
						<td class="TextoCinzaMedio"><%=DestaqueHome6("BreveDescricao")%></td>
					  </tr>
					  <tr>
						<td height="20" valign="top" class="TituloVermelho"><%=FormatCurrency(DestaqueHome6("Valor"), 2)%></td>
					  </tr>
					</table>
					</td>
				  </tr>
				</table>
				</td>
				<% End If %>
			  </tr>
			</table>
			<% End If %>  
			</td>
		  </tr>
		  <% if not BannerBottomDesativar = 1 then %>
			<tr align="center">
			<td>
			<br>
			<% if BannerBottom("extensao")="swf" then %>
			<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0','width','468','height','60','src','<%=LocalBanner&BannerBottom("banner")%>','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','<%=LocalBanner&BannerBottom("banner")%>' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="468" height="60">
			<param name="movie" value="<%=LocalBanner&BannerBottom("banner")%>">
			<param name="quality" value="high">
			<embed src="<%=LocalBanner&BannerBottom("banner")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="468" height="60"></embed>
			</object></noscript>
			<%
			Else
				If BannerBottom("Link") = "" or BannerBottom("Link") = "http://" Then
			%>
					<img src="<%=LocalBanner&BannerBottom("banner")%>" width="468" height="60" border="0">
				<% Else %>
					<a href="ContaClick.asp?Banner=<%=BannerBottom("Cod")%>&Link=<%=BannerBottom("Link")%>" target="<%=BannerBottom("target")%>"><img src="<%=LocalBanner&BannerBottom("banner")%>" width="468" height="60" border="0"></a>
			<% 
				End If
			end if
			sql_contagem_bannerBottom = "UPDATE banners SET pageviews = pageviews + 1 WHERE cod="&BannerBottom("cod")
			  set contadorBottom = conn.execute(sql_contagem_bannerBottom)
			%>
			</td>
			</tr>
		  <tr>
			<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
		  </tr>
		  <% end if %>
		</table>
		</td>
		<td width="150" align="center" valign="top" bgcolor="#F8F8F8"><!-- #include file="Includes/BarraDir.asp" --></td>
	  </tr>
	</table>
	</td>
  </tr>
<%
' finaliza/destroi os objetos
DestaquePrincipal.Close
Set DestaquePrincipal = Nothing
BannerTop.Close
Set BannerTop = Nothing
BannerBottom.Close
Set BannerBottom = Nothing
DestaqueHome1.Close
Set DestaqueHome1 = Nothing
DestaqueHome2.Close
Set DestaqueHome2 = Nothing
DestaqueHome3.Close
Set DestaqueHome3 = Nothing
DestaqueHome4.Close
Set DestaqueHome4 = Nothing
DestaqueHome5.Close
Set DestaqueHome5 = Nothing
DestaqueHome6.Close
Set DestaqueHome6 = Nothing
SecaoDestaque1.Close
Set SecaoDestaque1 = Nothing
SecaoDestaque2.Close
Set SecaoDestaque2 = Nothing
SecaoDestaque3.Close
Set SecaoDestaque3 = Nothing
SecaoDestaque4.Close
Set SecaoDestaque4 = Nothing
SecaoDestaque5.Close
Set SecaoDestaque5 = Nothing
SecaoDestaque6.Close
Set SecaoDestaque6 = Nothing
%>
<!-- #include file="Includes/Rodape.asp" -->
<!-- AFPC0002607 -->

Compartilhar este post

Link para o post
Compartilhar em outros sites

brcontainer    16

brcontainer
Postado

Não sei dizer qual o erro. Talvez seja por causa desta fork:

If Not DestaqueHome1Desativar = 1 Then

Set DestaqueHome2 = Server.CreateObject("ADODB.Recordset")

Talvez seja algo nela.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você faz um IF para abrir o Objeto, mas não faz um para fechar. Por isso dá erro.

 

Faça o IF abaixo com todos os objetos que está mandando fechar.

If isObject(DestaquePrincipal) Then
	 DestaquePrincipal.Close
	 Set DestaquePrincipal = Nothing
End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

pastoverdejante    0

pastoverdejante
Postado

Você faz um IF para abrir o Objeto, mas não faz um para fechar. Por isso dá erro.

 

Faça o IF abaixo com todos os objetos que está mandando fechar.

If isObject(DestaquePrincipal) Then
	 DestaquePrincipal.Close
	 Set DestaquePrincipal = Nothing
End If

 

 

Amigo Funcionou!

 

OBRIGADO!

:):):):):):)

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito