Boa noite, estou precisando de um ajuda, para resolver um problema, pois tentei converter a string e não deu certo.
 
	Estou executando esse comandos, pegando inteiro que vem do forme, porém quando mando executar devolve o seguinte
 
	erro:
 
	Microsoft VBScript runtime  error '800a01a8'
 
	Object required: '[string: "UPDATE Nota_lancamen"]'
 
	/admin/estoque/nota_finaliza.asp, line 13
 
	 
 
	alguém pode me ajudar ? por favor
 
	Dim strSQL, Conexao, rs, sql_restrito , rs_restrito, strSQL2, rs2, sql_restrito2, rs_restrito2 
	Dim nota, quantidade, produto, prod_quant_estoque, quant
 
	nota=request.form("nota")
 
	Call abre_conexao 
	set sql_restrito = "UPDATE Nota_lancamento set nota_lancamento_status='FECHADA' WHERE nota_lancamento_id='"& nota &"'" 
	set rs_restrito = Conexao.Execute(sql_restrito) 
	Set rs_restrito=nothing