Problema Com Método Post

[Guest Mike Gabriel Almeida Lopes]

Olá, meu nome é Mike Gabriel. Tenho uma dúvida.

Existe um página q irá fazer uma que envia uns dados pelo

método post(os dados eventualmente serão grandes e não dá pelo get). Existe

duas versões desta página com o mesmo código(uma para testes e outra da

produção), uma posta os dados certinhos a q é pra teste, a outra não, posta

os dados bagunçados, pondo vígulas e dá pau na página na hora de pegar os

dados e processar. O q percebi foi q quando mudo a conexão do BD do BD da produção para o de

desenvolvimento, funciona. Alguém pode me ajudar??

Mike Gabriel

Aracaju/SE

[DackAle]

Poste o codigo das duas paginas aqui para ver o que há de errado =)

Abraços

[Guest Mike Gabriel Almeida Lopes]

Bem, é o mesmo, só com algumas coisa comentadas em um e liberadadas no outro e vice versa, mas...

produção(o q tem erro)

<%
Session.LCID=11273
dim ag,strSQL,conexao,rsSalarios,campo,i,rsSalarios2
'*****************************************************
'recebe os valores de agencia
ag=request.form("ag")
strSQL = "EXEC inadimplentes_ajuste '"&ag&"'"
set conexao = Server.CreateObject("ADODB.connection")
conexao.open "driver=SQL Server;SERVER=COR-SERVER04;UID=dono_glsegcor;PWD=donoBANESEG;DATABASE=probd_glsegcor"
set rsSalarios = conexao.execute(strSQL)
while not rsSalarios.eof
	campo=request.form(rsSalarios("campo"))
	if campo <> "0" then
'aqui é só pra ver o q postou, aí eu percebi o erro  
response.write campo+"|"
  for i=1 to cint(campo)
  	strSQL="insert into inad select top 1 * from movsda where 'c'+left(identificacao,19) like '"&rsSalarios("campo")&"' order by dt desc"
  	set rsSalarios2 = conexao.execute(strSQL)
  	strSQL="exec insere_log_inad '"&right(rsSalarios("campo"),19)&"','"&Request.ServerVariables("LOGON_USER")&"','inserção'"
  	'strSQL="insert into log_inad(identificacao,usuario,dt_hr,acao) values ('"&right(rsSalarios("campo"),19)&"','"&Request.ServerVariables("LOGON_USER")&"',convert(datetime(),'"&now()&"'),'inserção')"  	
  	set rsSalarios2 = conexao.execute(strSQL)
  	'response.write strSQL
  next 
  'strSQL="update inad set dt = '"&mid(cstr(now()),7,4)&"'+'"&mid(cstr(now()),4,2)&"'+'"&left(cstr(now()),2)&"' where 'c'+left(identificacao,19) like '"&rsSalarios("campo")&"' and enviado is null"
  strSQL="update inad set dt = '"&mid(cstr(now()),7,4)&"'+'"&mid(cstr(now()),4,2)&"'+'"&left(cstr(now()),2)&"' where 'c'+left(identificacao,19) like '"&rsSalarios("campo")&"' and enviado is null"
  set rsSalarios2 = conexao.execute(strSQL)	
	end if	
	rsSalarios.movenext
wend
strSQL="update inad set enviado = 'n' where dt = '"&mid(cstr(now()),7,4)&"'+'"&mid(cstr(now()),4,2)&"'+'"&left(cstr(now()),2)&"'"
set rsSalarios2 = conexao.execute(strSQL)  	
%>

O do Desenvolvimento, tá funcionando

<%
Session.LCID=11273
dim ag,strSQL,conexao,rsSalarios,campo,i,rsSalarios2
'*****************************************************
'recebe os valores de agencia
'ag=request.querystring("ag")
ag=request.form("ag")
strSQL = "EXEC inadimplentes_ajuste '"&ag&"'"
set conexao = Server.CreateObject("ADODB.connection")
'conexao.open "driver=SQL Server;SERVER=COR-SERVER04;UID=dono_glsegcor;PWD=donoBANESEG;DATABASE=probd_glsegcor"
conexao.open "driver=SQL Server;SERVER=COR-SERVER02;UID=sa;PWD=;DATABASE=desbdglsegcor"
set rsSalarios = conexao.execute(strSQL)
while not rsSalarios.eof
	'campo=request.querystring(rsSalarios("campo"))
	campo=request.form(rsSalarios("campo"))
	'reponse.write campo
	if campo <> "0" then
  response.write campo+"|"
  for i=1 to cint(campo)
  	strSQL="insert into inad select top 1 * from movsda where 'c'+left(identificacao,19) like '"&rsSalarios("campo")&"' order by dt desc"
  	set rsSalarios2 = conexao.execute(strSQL)
  	strSQL="exec insere_log_inad '"&right(rsSalarios("campo"),19)&"','"&Request.ServerVariables("LOGON_USER")&"','inserção'"
  	'strSQL="insert into log_inad(identificacao,usuario,dt_hr,acao) values ('"&right(rsSalarios("campo"),19)&"','"&Request.ServerVariables("LOGON_USER")&"',convert(datetime(),'"&now()&"'),'inserção')"  	
  	set rsSalarios2 = conexao.execute(strSQL)
  	'response.write strSQL
  next 
  'strSQL="update inad set dt = '"&mid(cstr(now()),7,4)&"'+'"&mid(cstr(now()),4,2)&"'+'"&left(cstr(now()),2)&"' where 'c'+left(identificacao,19) like '"&rsSalarios("campo")&"' and enviado is null"
  strSQL="update inad set dt = '"&mid(cstr(now()),7,4)&"'+'"&mid(cstr(now()),4,2)&"'+'"&left(cstr(now()),2)&"' where 'c'+left(identificacao,19) like '"&rsSalarios("campo")&"' and enviado is null"
  set rsSalarios2 = conexao.execute(strSQL)	
	end if	
	rsSalarios.movenext
wend
strSQL="update inad set enviado = 'n' where dt = '"&mid(cstr(now()),7,4)&"'+'"&mid(cstr(now()),4,2)&"'+'"&left(cstr(now()),2)&"'"
set rsSalarios2 = conexao.execute(strSQL)  	
%>

Editado Novembro 12, 2004 por cyberalexxx

[dark0]

mano, que erro dá?

o codigo parece estar OK.

Porque não se cadastra no forum?