Erro = (0x800A01A8) Objeto necessário: ''

[rprado 0]

Pessoal tenho o seguinte trecho de codigo com o seguinte erro:

 

(0x800A01A8) Objeto necessário: ''

 

Dim RST_TB2_ins
	Dim RST_TB2_ins_cmd
	Dim RST_TB2_ins_numRows

	Set RST_TB2_ins_cmd = Server.CreateObject ("ADODB.Command")
	RST_TB2_ins_cmd.ActiveConnection = MM_rm_STRING
	RST_TB2_ins_cmd.CommandText = "SELECT DESCRICAO FROM TB_TIPO WHERE EMPRESA = " &  trim((RST_COL.Fields.Item("integracao_empresa").Value)) & " AND TIPO = " &  trim(Request.Form ("TIPO")) & " "
	RST_TB2_ins_cmd.Prepared = true

	Set RST_TB2_ins = RST_TB2_ins_cmd.Execute
	RST_TB2_ins_numRows = 0

Desde ja agradeço

[Ted k' 126]

teste assim:

 

RST_TB2_ins_cmd.CommandText = "SELECT DESCRICAO FROM TB_TIPO WHERE EMPRESA = '" & trim((RST_COL.Fields.Item("integracao_empresa").Value)) & "' AND TIPO = '" & trim(Request.Form("TIPO")) & "'"

[rprado 0]

Rapaz

 

Agora o problema esta algumas linhas abaixo: RST_TB2_ins.Close()

 

<%
RST_TB2_ins.Close()
Set RST_TB2_ins = Nothing
%>

Grato pela atenção!!!

[Ted k' 126]

inverte a posição deles

[hargon 64]

Posta o erro que aparece.

[xanburzum 169]

Isto é geralmente acontece quando você tenta fechar ou setar nothing para um objeto que não foi definido

você declarou a varivael e setou ela para RST_TB2_ins_cmd.Execute

[rprado 0]

Pessoal vou postar o código inteiro pra ficar mais fácil:

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
  Session.Contents.Remove("MM_Username")
  Session.Contents.Remove("MM_UserAuthorization")
  MM_logoutRedirectPage = "frm_lgi.asp"
  ' redirect with URL parameters (remove the "MM_Logoutnow" query param).
  if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
  If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
	MM_newQS = "?"
	For Each Item In Request.QueryString
	  If (Item <> "MM_Logoutnow") Then
		If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
		MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
	  End If
	Next
	if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
  End If
  Response.Redirect(MM_logoutRedirectPage)
End If
%>
<!--#include file="Connections/rm.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="pnl_cte.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
		 (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
	MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
	MM_IIf = ifFalse
  Else
	MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
	' execute the insert

	Dim RST_TB2_ins
	Dim RST_TB2_ins_cmd
	Dim RST_TB2_ins_numRows
	Dim Descricao

	Set RST_TB2_ins_cmd = Server.CreateObject ("ADODB.Command")
	RST_TB2_ins_cmd.ActiveConnection = MM_rm_STRING
	RST_TB2_ins_cmd.CommandText = "SELECT DESCRICAO FROM FTB1 WHERE CODCOLIGADA = '" &  trim((RST_COL.Fields.Item("integracao_coligada").Value)) & "' AND CODTB1FLX = '" &  trim(Request.Form("CODTB1FLX")) & "' "
	RST_TB2_ins_cmd.Prepared = true

	Set RST_TB2_ins = RST_TB2_ins_cmd.Execute
	RST_TB2_ins_numRows = 0

	While (NOT RST_TB2_ins.EOF)
		Descricao = RST_TB2_ins.Fields.Item("DESCRICAO").Value
		RST_TB2_ins.MoveNext()
	Wend

	RST_TB2_ins.Close()
	Set RST_TB2_ins = Nothing

	Dim MM_editCmd
	Set MM_editCmd = Server.CreateObject ("ADODB.Command")
	MM_editCmd.ActiveConnection = MM_SL_WEB_STRING
	MM_editCmd.CommandText = "INSERT INTO dbo.SL_RECEITA_DESPESA (cod_fluxus_controle_receita_despesa, descricao_fluxus_receita_despesa, despesa_id) VALUES (?, ?, ?)" 
	MM_editCmd.Prepared = true
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 16, Request.Form("cod_fluxus_controle_receita_despesa")) ' adLongVarChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 255,Descricao ) ' adLongVarChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, Request.Form("CODTB1FLX")) ' adDouble
	MM_editCmd.Execute
	MM_editCmd.ActiveConnection.Close

	' append the query string to the redirect URL
	Dim MM_editRedirectUrl
	MM_editRedirectUrl = "rdm_lst.asp"
	If (Request.QueryString <> "") Then
	  If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
		MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
	  Else
		MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
	  End If
	End If
	Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim rst_cte
Dim rst_cte_cmd
Dim rst_cte_numRows

Set rst_cte_cmd = Server.CreateObject ("ADODB.Command")
rst_cte_cmd.ActiveConnection = MM_SL_WEB_STRING
rst_cte_cmd.CommandText = "SELECT cod_controle_receita_despesa ,cod_fluxus_controle_receita_despesa, descricao_fluxus_receita_despesa, despesa_descricao FROM dbo.SL_RECEITA_DESPESA, dbo.SL_DESPESA WHERE dbo.SL_RECEITA_DESPESA.despesa_id = dbo.SL_DESPESA.despesa_id ORDER BY dbo.SL_RECEITA_DESPESA.cod_controle_receita_despesa ASC" 
rst_cte_cmd.Prepared = true

Set rst_cte = rst_cte_cmd.Execute
rst_cte_numRows = 0
%>
<%
Dim RST_COL
Dim RST_COL_cmd
Dim RST_COL_numRows

Set RST_COL_cmd = Server.CreateObject ("ADODB.Command")
RST_COL_cmd.ActiveConnection = MM_SL_WEB_STRING
RST_COL_cmd.CommandText = "SELECT integracao_coligada FROM dbo.SL_INTEGRACAO" 
RST_COL_cmd.Prepared = true

Set RST_COL = RST_COL_cmd.Execute
RST_COL_numRows = 0
%>
<%
Dim RST_TB2
Dim RST_TB2_cmd
Dim RST_TB2_numRows

Set RST_TB2_cmd = Server.CreateObject ("ADODB.Command")
RST_TB2_cmd.ActiveConnection = MM_rm_STRING
RST_TB2_cmd.CommandText = "SELECT CODTB1FLX AS CODTB2FLX,DESCRICAO FROM FTB1 WHERE CODCOLIGADA = " &  trim((RST_COL.Fields.Item("integracao_coligada").Value)) & "  ORDER BY DESCRICAO" 
RST_TB2_cmd.Prepared = true

Set RST_TB2 = RST_TB2_cmd.Execute
RST_TB2_numRows = 0
%>
<%
Dim rst_tb1
Dim rst_tb1_cmd
Dim rst_tb1_numRows

Set rst_tb1_cmd = Server.CreateObject ("ADODB.Command")
rst_tb1_cmd.ActiveConnection = MM_SL_WEB_STRING
rst_tb1_cmd.CommandText = "SELECT despesa_id AS CODTB1FLX, despesa_descricao AS DESCRICAO FROM SL_DESPESA" 
rst_tb1_cmd.Prepared = true

Set rst_tb1 = rst_tb1_cmd.Execute
rst_tb1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rst_cte_numRows = rst_cte_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript">
<!--
function MM_validateForm() { //v4.0
  if (document.getElementById){
	var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
	for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=document.getElementById(args[i]);
	  if (val) { nm=val.name; if ((val=val.value)!="") {
		if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
		  if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
		} else if (test!='R') { num = parseFloat(val);
		  if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
		  if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
			min=test.substring(8,p); max=test.substring(p+1);
			if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
	  } } } else if (test.charAt(0) == 'R') errors += '- O campo descrição não pode ser nulo.\n'; }
	} if (errors) alert('Ocorreu o seguinte erro:\n'+errors);
	document.MM_returnValue = (errors == '');
} }
//-->
</script>
</head>

<body>
<DIV class="titulo">RECEITA/DESPESA</DIV>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td><table width="139" border="0" align="right" cellpadding="0" cellspacing="0">
	  <tr>
		<td width="22"><a href="pnl_cte.asp"><img src="images/icones/voltar.jpg" alt="Voltar" width="22" height="21" border="0" /></a></td>
		<td width="75"><div align="center"><a href="pnl_cte.asp">VOLTAR</a></div></td>
		<td width="23"><a href="<%= MM_Logout %>"><img src="images/icones/log_out jpg.jpg" alt="Sair" width="22" height="21" border="0" /></a></td>
		<p><td width="52"><div align="center"><a href="<%= MM_Logout %>">SAIR</a></div></td>
	  </tr>
	</table></td>
  </tr>
</table>
<form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
  <table width="600" height="122" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
	  <td bgcolor="EFF2F8"><div align="left"><strong>NOVA RECEITA/DESPESA</strong></div></td>
	</tr>
	<tr>
	  <td bgcolor="EFF2F8"><table align="center">
		
		<tr valign="baseline">
		  <td nowrap="nowrap" align="right">Conta Contabil:</td>
		  <td><div align="left">
			<label>
			<select name="cod_fluxus_controle_receita_despesa" id="cod_fluxus_controle_receita_despesa">
			  <%
While (NOT RST_TB2.EOF)
%>
			  <option value="<%=(RST_TB2.Fields.Item("CODTB2FLX").Value)%>"><%=(RST_TB2.Fields.Item("DESCRICAO").Value)%></option>
			  <%
  RST_TB2.MoveNext()
Wend
If (RST_TB2.CursorType > 0) Then
  RST_TB2.MoveFirst
Else
  RST_TB2.Requery
End If
%>
			</select>
			</label>
</div></td>

		<tr valign="baseline">
		  <td nowrap="nowrap" align="right">Receita / Despesa: </td>
		  <td><label>
			<div align="left">
			  <select name="CODTB1FLX" id="CODTB1FLX">
				<%
While (NOT rst_tb1.EOF)
%>
				<option value="<%=(rst_tb1.Fields.Item("CODTB1FLX").Value)%>"><%=(rst_tb1.Fields.Item("DESCRICAO").Value)%></option>
				<%
  rst_tb1.MoveNext()
Wend
If (rst_tb1.CursorType > 0) Then
  rst_tb1.MoveFirst
Else
  rst_tb1.Requery
End If
%>
			  </select>
			</div>
			</label></td>
		</tr>
		<tr valign="baseline">
		  <td nowrap="nowrap" align="right"> </td>
		  <td><input type="submit" value="SALVAR" /></td>
		</tr>
	  </table></td>
	</tr>
  </table>
  <input type="hidden" name="MM_insert" value="form1" />
</form>




<% If Not rst_cte.EOF Or Not rst_cte.BOF Then %>
  <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
	  <td width="200"><div align="left">Receita/Despesa</div></td>
	  <td width="200"><div align="left">Conta Contábil</div></td>
	  <td width="20"><div align="left"></div></td>
	  <td width="20"><div align="left"></div></td>
	</tr>
  </table>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT rst_cte.EOF)) 
%>
	<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
	  <tr>
		<td height="16" bgcolor="#EFF2F8"><table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
		  <tr>
			<td width="200"><div align="left"><%=(rst_cte.Fields.Item("despesa_descricao").Value)%></div></td>
			<td width="200"><div align="left"><%=(rst_cte.Fields.Item("descricao_fluxus_receita_despesa").Value)%></div></td>
			<td width="20"><div align="center"><a href="cte_edt.asp?cte_id=<%=(rst_cte.Fields.Item("cod_controle_receita_despesa").Value)%>"><img src="images/icones/b_edit.png" alt="EDITAR" width="16" height="16" border="0" /></a></div></td>
			<td width="20"><a href="cte_del.asp?cte_id=<%=(rst_cte.Fields.Item("cod_controle_receita_despesa").Value)%>"><img src="images/icones/b_drop.png" alt="EXCLUIR" width="16" height="16" border="0" /></a></td>
		  </tr>
		</table></td>
	  </tr>
	</table>
	<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rst_cte.MoveNext()
Wend
%>
  <% End If ' end Not rst_cte.EOF Or NOT rst_cte.BOF %>

<p> </p>
</body>
</html>
<%
rst_cte.Close()
Set rst_cte = Nothing
%>
<%
RST_COL.Close()
Set RST_COL = Nothing
%>
<%
RST_TB2.Close()
Set RST_TB2 = Nothing
%>
<%
rst_tb1.Close()
Set rst_tb1 = Nothing
%>

 

o erro ocorre neste trecho:

 

Dim RST_TB2_ins
	Dim RST_TB2_ins_cmd
	Dim RST_TB2_ins_numRows
	Dim Descricao

	Set RST_TB2_ins_cmd = Server.CreateObject ("ADODB.Command")
	RST_TB2_ins_cmd.ActiveConnection = MM_rm_STRING
	RST_TB2_ins_cmd.CommandText = "SELECT DESCRICAO FROM FTB1 WHERE CODCOLIGADA = '" &  trim((RST_COL.Fields.Item("integracao_coligada").Value)) & "' AND CODTB1FLX = '" &  trim(Request.Form("CODTB1FLX")) & "' "
	RST_TB2_ins_cmd.Prepared = true

	Set RST_TB2_ins = RST_TB2_ins_cmd.Execute
	RST_TB2_ins_numRows = 0

 

(0x800A01A8) Objeto necessário: ''

line 78

 

RST_TB2_ins_cmd.CommandText = "SELECT DESCRICAO FROM FTB1 WHERE CODCOLIGADA = '" & trim((RST_COL.Fields.Item("integracao_coligada").Value)) & "' AND CODTB1FLX = '" & trim(Request.Form("CODTB1FLX")) & "' "

 

Grato