O comando de texto não foi definido para o objeto

[Selt 0]

Galera estou com um problema fantasma... a porcaria aponta para linha 38 ... mas não tem nada na linha 38

 

O erro é esse:

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)O comando de texto não foi definido para o objeto de comando./pixel/projweb/projweb.asp, line 38

E o código é esse:

Option ExplicitId=Cint(request.QueryString("id"))Dim conn,objrs,objstr,idSet conn= Server.CreateObject("ADODB.Connection")conn.Open Application("Conn")If id=1 then	Dim projeto,dataini,descricao	projeto=request.Form("projeto")	dataini=request.form("dataini")	descricao=trim(request.form("descricao"))	descricao = Replace(descricao, vbcrlf, "<br>")		if projeto="" or dataini="" or descricao="" then	WITH response	.write("<CENTER>DEIXOU ALGUM CAMPO SEM PREENCHIMENTO<BR><A HREF='JAVASCRIPT:HISTORY.GO(-1)'>RETORNAR</A></CENTER>")	END WITH	RESPONSE.End	END IF			objstr = "INSERT INTO projweb (projeto,dataini,descricao) VALUES ('"&projeto&"','"&dataini&"','"&descricao&"')"	set objrs= conn.execute(objstr)		Dim obj4,rs4,obj5,rs5,obj6,rs6,obj7,rs7,obj2,rs2	obj2="SELECT * FROM projweb WHERE projeto='"&projeto&"'"	set rs2= conn.execute(obj2)		Obj4="INSERT INTO web_financeiroweb (projeto) VALUES ('"&rs2("codigo")&"')"	rs4=conn.execute(obj4)	Obj5="INSERT INTO web_manutencao (projeto) VALUES ('"&rs2("codigo")&"')"	rs5=conn.execute(obj5)	Obj6="INSERT INTO web_parc (projeto) VALUES ('"&rs2("codigo")&"')"	rs6=conn.execute(obj6)	Obj7="INSERT INTO web_mesman (projeto) VALUES ('"&rs2("codigo")&"')"	rs7=conn.execute(obj7)		response.redirect("projweb.asp")end if

Verifiquei no banco que ele inicia como deve as tabelas mas dah esse erro.

 

HELP PLEASE

 

[]'s

[oldenny 0]

Você colocou o código de uma página que chama, no final, a página que está com o problema: response.redirect("projweb.asp")Poderia colocar a página projweb.asp, para podermos tentar ajuda-lo?

[Selt 0]

Valeu oldenny, mas já arrumei... foi um parametro que esqueci de passa no redirect....[]'s