Erro Microsoft VBScript runtime error '800a01a8'

[vonzuben 12]

Gostaria de saber porque o erro Microsoft VBScript runtime error '800a01a8'

 

Object required

 

/detalhes.asp, line 316

 

 

 

 

<table width="100%" border="0" cellspacing="0" cellpadding="0">
		  <tr>
		  <% if estoque = "s" then
					 response.write "<form action=""oct_add_cesta.asp"" method=""post"" name=""adicionar""  id=""adicionar"">" 
					 %>
			<td><input name="produto2" type="hidden" id="produto2" value="<%=rs("id")%>" />
			  <input name="botao_Comprar2" type="image" class="semborda" src="layout/v4/comprar.gif" align="left"/></td>
		  </tr>
		  <tr>
			<td> </td>
		  </tr>
		  <tr>
			<td><%
'CASO O PRODUTO TENHA ESPECIFICAÇÕES
if not rs1.eof then

'CONECTA ÀS ESPECIFICAÇÕES PARA FAZER O LOOP E MONTAR OS SELECTS
set es = conexao.execute("SELECT * FROM especificacoes")%>
			  <strong>ESCOLHA AS OPCOES</strong>:<br>
			  <table border="0" cellspacing="0" cellpadding="0">
				<%while not es.eof

'CONECTA ÀS ESPECIFICACÕES DE PRODUTO E PEGA O QUE FOR DESTA ESPECIFICAÇÃO
set rs2 = conexao.execute("SELECT * FROM p_esp_estoque WHERE id_esp='"&es("id_especifi")&"'  and estoque > 0 and id_produto='"&idproduto&"';")
if not rs2.eof then%>
				<tr>
				  <td height="25" align="right"><%=es("titulo")%>:</td>
				  <td><select name="especificacoes" class="menudep">
					  <%while not rs2.eof%>
					  <option value="<%=rs2("id")%>"><%=rs2("valor")%></option>
					  <%rs2.movenext
wend%>
				  </select></td>
				</tr>
				<%end if
es.movenext
wend%>
			  </table>
			  <%end if%></td>
		  </tr>
		</table></td>
		<% response.write "</form>"
							else%>
						</tr>
						
						<tr>
						  <td> </td>
						</tr>
						<tr>
						  <td><img src="layout/img/add_lista.jpg" width="124" height="19" border="0" align="left"/></td>
						</tr>
						<tr>
						  <td height="10"> </td>
						</tr>
						<tr>
						  <td><table width="100%" border="0" cellpadding="0" cellspacing="5">
							  <tr>
								
							 
								<form id="pedir" name="pedir" method="post" action="java script: void(0);">
								  <td align="center" valign="middle"><strong>PRODUTO NÃO DISPONIVEL!</strong><br>
									  <table class="box_cinza" cellspacing="5" cellpadding="0" 
				  width="95%" border="0">
										<tbody>
										</tbody>
										<tr>
										  <td align="center" bgcolor="#FFFFFF"><table border="0" cellpadding="0" cellspacing="0">
											  <tr>
												<td height="5" colspan="3"></td>
											  </tr>
											  <tr>
												<td colspan="3">Avise-me quando o produto estiver disponivel.<br />
												  <span class="verdana size10">
												  <input name="produto2" type="hidden" id="produto2" value="<%=Replace(rs("nome"), chr(34), "''")%>" />
												  <input name="id2" type="hidden" id="id2" value="<%=rs("id")%>" />
												  </span></td>
											  </tr>
											  <tr>
												<td height="5" colspan="3"></td>
											  </tr>
											  <tr>
												<td colspan="3"><strong>Endereço de Email:</strong></td>
											  </tr>
											  <tr>
												<td height="3" colspan="3"></td>
											  </tr>
											  <tr>
												<td><input name="email_cliente" type="text" class="tahoma" id="email_cliente" /></td>
												<td width="10"></td>
												<td><input type="image" name="imageField2" src="layout/img/ok.gif" style="border:none" onClick="pedir_estoque();" /></td>
											  </tr>
										  </table></td>
										</tr>
									</table></td>
								</form>
								<%end if%>
							  </tr>
						  </table></td>
						</tr>

[xanburzum 169]

esse erro é de objeto necessário ,poste a linha que gera o erro

[vonzuben 12]

a linha está no começo do post e apagina que esta dando erro é essa

[hargon 64]

Você tem que posta a linha onde ocorre o erro... não da para lhe ajudarmos sem ter essa informação.

 

A única conclusão que podemos chegar é que você está tentando usar um objeto que não foi declarado.

[vonzuben 12]

linha 316 é essa

 

'CASO O PRODUTO TENHA ESPECIFICAÇÕES

if not rs1.eof then

[hargon 64]

E onde você criou rs1? No código postado não tem nada sobre.

[xanburzum 169]

quando solicitamos a linha é o conteúdo da mesma, pois podemos dar um melhor suporte

Um dos motivos que faz com que esse erro ocorra é tentar utilizar a propriedade ou executar uma ação em um objeto quando o mesmo ainda não foi criado. Por exemplo, caso você tentar finalizar a instância de um objeto sem ter criando: conn.Close(). Esse tipo de ação gera o erro de número 800A01A8. Antes de finalizar a instância do objeto o mesmo deve ser criado. (Set conn = Server.CreateObject("ADODB.Connection"))