Erro passagem de parametros.

[e-junior 0]

Boa tarde a todos,

 

Terminei um sistema e quando fui jogar para o servidor online da (KingHost) esta dando uma mensagem de erro:

Será q alguem consegue me ajudar???

 

Microsoft OLE DB Provider for ODBC Drivers erro '80020009'

 

[Microsoft][ODBC Driver Manager] Tipo de programa fora do intervalo

 

/teste_ins.asp, line 81

 

#####LINHA 81 PÁGINA teste_ins.asp#####

 

session("id_card")=selecione("id_card")

 

#####CÓDIGO PÁGINA teste_ins.asp#####

 

<%'CONSULTA PARA INSERIR	 if request.form("acao") = "cadastrar" then	 sql_consulta = "SELECT * FROM cards WHERE nome='"&request.Form("nome")&"'"	 Set consulta = conexao.execute(sql_consulta)			if not consulta.eof then%>	 <script>		 alert('Magic Card já cadastrado!');		 window.location = "teste_ins.asp";	 </script> <%	else		sql_insere =  "INSERT INTO cards (mostra,nome,nome_ingles,peso,categoria,descricao,id_tipo,id_cor"		sql_insere = sql_insere &",id_raridade,id_custo,id_poder,id_resis,preco,quantidade)"		sql_insere = sql_insere &" VALUES ('"&request.Form("mostra")&"',"		sql_insere = sql_insere &"'"&request.Form("nome")&"',"		sql_insere = sql_insere &"'"&request.Form("nome_ingles")&"',"		sql_insere = sql_insere &"'"&request.Form("peso")&"',"		sql_insere = sql_insere &"'"&request.Form("categoria")&"',"		sql_insere = sql_insere &"'"&request.Form("descricao")&"',"		sql_insere = sql_insere &"'"&request.Form("id_tipo")&"',"		sql_insere = sql_insere &"'"&request.Form("id_cor")&"',"		sql_insere = sql_insere &"'"&request.Form("id_raridade")&"',"		sql_insere = sql_insere &"'"&request.Form("id_custo")&"',"		sql_insere = sql_insere &"'"&request.Form("id_poder")&"',"		sql_insere = sql_insere &"'"&request.Form("id_resis")&"',"		sql_insere = sql_insere &"'"&request.Form("preco")&"',"		sql_insere = sql_insere &"'"&request.Form("quantidade")&"')"		Set insere = conexao.execute(sql_insere)				   sql_select = "SELECT * FROM cards WHERE nome='"&request.Form("nome")&"'"	   set selecione = conexao.execute(sql_select)	session("id_card")=selecione("id_card")						end if		%>		<script>		window.location = "cards_img_p.asp";	</script> <%		end if%>

[shumi 0]

Cara da uma debugada...Manda imprimir na tela o selecione("id_card") e me fala!Abraços

[e-junior 0]

e ai Shumi, fisso desse jeito, mas mesmo assim nao deu certo:Será q pode ser alguma opção no servidor??? Pq local estava rodando normal, lembrando estou usando MySQL.....sql_select = "SELECT * FROM cards WHERE nome='"&request.Form("nome")&"'"set selecione = conexao.execute(sql_select) if not selecione.eof thensession("id_card")=selecione("id_card") end ifend if%> <script> window.location = "teste.asp"; </script> <% end if %>#####NA PAGINA TESTE.ASP#####<% id_card=session("id_card") response.Write(id_card) %>

[shumi 0]

Não cara! rs

Vamos debugar...

 

Tire essa parte do final do script

window.location = "cards_img_p.asp";

e coloque o response.write(selecione("id_card") )

 

e me fala o que imprimiu na TELA!

 

Abraços

[e-junior 0]

Fisso isso e ainda continua mesmo erro:Microsoft OLE DB Provider for ODBC Drivers erro '80020009'[Microsoft][ODBC Driver Manager] Tipo de programa fora do intervalo/cards_ins.asp, line 81

[shumi 0]

comenta a linha do erro:

'session("id_card")=selecione("id_card")

e me fala o que trouxe!

[e-junior 0]

comentei somente essa linha q você disse e mostrou o seguinte erro:Microsoft OLE DB Provider for ODBC Drivers erro '80020009'[Microsoft][ODBC Driver Manager] Tipo de programa fora do intervalo/cards_ins.asp, line 0

[shumi 0]

tenta assim:

<%'CONSULTA PARA INSERIRif request.form("acao") = "cadastrar" thensql_consulta = "SELECT * FROM cards WHERE nome='"&request.Form("nome")&"'"Set consulta = conexao.execute(sql_consulta)if not consulta.eof then%><script>alert('Magic Card já cadastrado!');window.location = "teste_ins.asp";</script><%elsesql_insere = "INSERT INTO cards (mostra,nome,nome_ingles,peso,categoria,descricao,id_tipo,id_cor"sql_insere = sql_insere &",id_raridade,id_custo,id_poder,id_resis,preco,quantidade)"sql_insere = sql_insere &" VALUES ('"&request.Form("mostra")&"',"sql_insere = sql_insere &"'"&request.Form("nome")&"',"sql_insere = sql_insere &"'"&request.Form("nome_ingles")&"',"sql_insere = sql_insere &"'"&request.Form("peso")&"',"sql_insere = sql_insere &"'"&request.Form("categoria")&"',"sql_insere = sql_insere &"'"&request.Form("descricao")&"',"sql_insere = sql_insere &"'"&request.Form("id_tipo")&"',"sql_insere = sql_insere &"'"&request.Form("id_cor")&"',"sql_insere = sql_insere &"'"&request.Form("id_raridade")&"',"sql_insere = sql_insere &"'"&request.Form("id_custo")&"',"sql_insere = sql_insere &"'"&request.Form("id_poder")&"',"sql_insere = sql_insere &"'"&request.Form("id_resis")&"',"sql_insere = sql_insere &"'"&request.Form("preco")&"',"sql_insere = sql_insere &"'"&request.Form("quantidade")&"')"Set insere = conexao.execute(sql_insere)sql_select = "SELECT * FROM cards WHERE nome='"&request.Form("nome")&"'"set selecione = conexao.execute(sql_select)session("id_card") = selecione("id_card")end if%><script>window.location = "cards_img_p.asp";</script><%end if%>

Abraços

[e-junior 0]

Shumi, descobri o erro:estava no campo PESO no Banco de Dados MySQL ele estava definido como "peso decimal(10,3) NOT NULL,".Você tem alguma sugestão qual tipo coloco esse campo???Valeu....

[shumi 0]

cara usa campo texto.a maioria dos meus bancos uso campo texto para quase tudo!Geralmente não sou eu que crio o banco, mas quando crio coloco a maioria texto!Abraços

[e-junior 0]

ta mais se depois for calcula esses valores, consigo fazer isso normal estando como texto???

[shumi 0]

Ai você tem que converter o valor!

Assim:

var = CDBL(rs("valor"))

Abraços

[e-junior 0]

Valeu, obrigado pela ajuda.Se precisar de algo estamos ai.T+++abraços...