Erro no código

[Mário Monteiro 179]

não era pra por no IF e sim antesresponse.write CInt(mid(Request("boleto"),1,1)) IF ....ai deve escrever este valor na tela...

[paulofbc 0]

continua dando erro...

Erro de compilação do Microsoft VBScript erro '800a03f9' 'Then' esperado /asp/conscontr.asp, line 104 if response.write CInt(mid(Request("boleto"),1,1)) <= 3 and Request("registranet") <> "S") or Request("reemissao") = "ok" then------------------^

[Mário Monteiro 179]

tira o response.write desta linah tiozinhotem de ser antes só pra ver oq ue tem dentroresponse.write CInt(mid(Request("boleto"),1,1)) depois que vem seu IF só que sem este response.write dentro entende??

[paulofbc 0]

nossa meu... nao to entendo nadadeixa quieto.... isso ta me dando dor de cabeça já, não aguento mais ver isso.valew!ao invés de ficarmos sofrendo... não fica mais facil voce mesmo colocar o código e me mostrar como fica?abraços

[Mário Monteiro 179]

ja coloquei tiozinho...aquela linha ali não vai acabar com teus problemas mas vai me mostrar o caminho pra continuar te ajudando...é so por exatamente igual a linha antes de seu IF.. só isso...o que aparecer voce poe aqui...

[AMON-HÁ 0]

Opa... tô de volta... B)

 

Cara... coloca seu código ae (depois de todas as mudanças)... e o erro que tá dando pra gente dá uma olhada...

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[paulofbc 0]

fala Amon-há, tudo certo?

 

o erro ocorre quando eu tento gerar o boleto nesta pagina http://www.registranet.com.br/asp/emitboleto.asp

 

ele abre a pagina conscontr.asp com o seguinte erro:

Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipo incompatível: 'CInt' /asp/conscontr.asp, line 104

a linha 104 é essa aqui:

<%if (CInt(mid(Request("boleto"),1,1)) <= 3 and Request("registranet") <> "S") or Request("reemissao") = "ok" then %>

o código da pagina todo completo é esse:

<%Response.ExpiresAbsolute = now() - 1Server.ScriptTimeout = 600%><!-- #include virtual = "/asp/adofunc.asp" --><%vgeraboleto = falseif Request("boleto") <> "" then	if Request("registranet") = "S" then		vQuem = "J0038778600001043104255805"		vChave = "AEFGNS876860REGI"	else		vQuem = "J0038778600001043104255805"		vChave = "AEFGNS876860REGI"	end if		vPedido = Request("boleto")	vValor = Request("valor")	if Request("ndedutivel") = "OK" then		vObs = "VALOR NAO DEDUTIVEL DO IMPOSTO DE RENDA"	else		vObs = ""	end if	vSacado = mid(Request("nome"),1,30)	vCodInscr = "01"	vNumInscr = mid(Request("cpf"),1,14)	vEndereco = mid(Request("endereco"),1,40)	vBairro = mid(Request("bairro"),1,15)	vCEP = mid(replace(Request("cep1"),"-",""),1,8)	vCidade = mid(Request("cidade"),1,15)	vEstado = ucase(mid(Request("estado"),1,2))	vDtVenc = Request("datavenc")	obsad1 = ""	obsad2 = ""	obsad3 = ""		'Set objSL = server.CreateObject("Shopline.Function.1")	'dadosCripto = objSL.iGeraDados(vQuem,vPedido,vValor,vObs,vChave,vSacado,vCodInscr,vNumInscr,vEndereco,vBairro,vCEP,vCidade,vEstado,vDtVenc)	'Set objSL = Nothing		Set obj = server.createobject("Itaucripto.cripto")	MyOutPut = obj.geraDados(vQuem,vPedido,vValor,vObs,vChave,vSacado,vCodInscr,vNumInscr,vEndereco,vBairro,vCEP,vCidade,vEstado,"","","",vDtVenc,"")	Set obj = nothing	vgeraboleto = trueend ifif Request("acao") = "view" then	Call AbreConexao()	if Request("imprimir") = "S" then		if Request("log") = "" then			Set rsUsers = SQLTable("select id, nome, cpf, endereco, bairro, cep, cidade, estado as uf, email, valor as r$, periodo as p, dia, substring(npedido,1,1) as t from boletos where valor > 0 and id >= " & Request("id_ini") & " and id <= " & Request("id_fim") & " order by id")		else			Set rsUsers = SQLTable("SELECT boletos.id, boletos.nome, boletos.cpf, boletos.endereco, boletos.bairro, cep, boletos.cidade, boletos.estado as uf, boletos.email, boletos.valor as r$, boletos.periodo as p, boletos.dia, substring(boletos.npedido,1,1) as t FROM { oj ent_contr LEFT OUTER JOIN boletos ON ent_contr.id = boletos.id_entrada } where ent_contr.log = '" & Request("log") & "' and boletos.id is not null and boletos.valor > 0 and boletos.id >= " & Request("id_ini") & " and boletos.id <= " & Request("id_fim") & " order by boletos.id")		end if	else		if Request("log") = "" then			Set rsUsers = SQLTable("select id, npedido, nome, cpf, endereco, bairro, cep, cidade, estado as uf, telefone, email, valor as r$, periodo as p, dia, data from boletos where valor > 0 and id >= " & Request("id_ini") & " and id <= " & Request("id_fim") & " order by id")		else			Set rsUsers = SQLTable("SELECT boletos.id, boletos.npedido, boletos.nome, boletos.cpf, boletos.endereco, boletos.bairro, boletos.cep, boletos.cidade, boletos.estado as uf, boletos.telefone, boletos.email, boletos.valor as r$, boletos.periodo as p, boletos.dia, boletos.data FROM { oj ent_contr LEFT OUTER JOIN boletos ON ent_contr.id = boletos.id_entrada } where ent_contr.log = '" & Request("log") & "' and boletos.id is not null and boletos.valor > 0 and boletos.id >= " & Request("id_ini") & " and boletos.id <= " & Request("id_fim") & " order by boletos.id")		end if	end if		vTot_Regs = rsUsers.RecordCount	if vTot_Regs = 0 then		vTabela = "<tr><td> </td></tr>"	else		vTabela = "<tr bgcolor='#cccccc' align='center'>"		for i = 0 to rsUsers.Fields.Count-1			vTabela = vTabela & "<td><font face='Verdana' size='1'><b>" & ucase(rsUsers.Fields(i).Name) & "</b></font></td>"		next		vTabela = vTabela & "</tr>" & chr(13)				rsUsers.MoveFirst		Do While Not rsUsers.EOF			vTabela = vTabela & "<tr valign='top' bordercolor='#000000'>"			for i = 0 to rsUsers.Fields.Count-1				if rsUsers.Fields(i).name = "npedido" then					vTabela = vTabela & "<td><font face='Verdana' size='1'><a href='conscontr.asp?boleto=" & trim(rsUsers.Fields(i)) & "' target='BANKLINE'>" & trim(rsUsers.Fields(i)) & "</a></font></td>"				elseif rsUsers.Fields(i).name = "cpf" then					vTabela = vTabela & "<td><font face='Verdana' size='1'>" & replace(replace(replace(trim(rsUsers.Fields(i)),"-",""),"/",""),".","") & "</font></td>"				else					vTabela = vTabela & "<td><font face='Verdana' size='1'>" & trim(rsUsers.Fields(i)) & "</font></td>"				end if			next			vTabela = vTabela & "</tr>" & chr(13)			if rsUsers("Id") >= CInt(Request("id_fim")) then				exit do			end if			rsUsers.MoveNext		Loop	end if	Call FechaConexao()else	vTabela = "<tr><td> </td></tr>"end if%><html><head><title>Contribuição</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><%	if vgeraboleto then %><%if (CInt(mid(Request("boleto"),1,1)) <= 3 and Request("registranet") <> "S") or Request("reemissao") = "ok" then %><form method="post" action="https://shopline.itau.com.br/shopline/reemissao.asp" name="frmemissao">  <input type="hidden" name="DC" value="<%=MyOutPut%>"></form><%else %><form method="post" action="https://shopline.itau.com.br/shopline/itaubloqueto.asp" name="frmemissao">  <input type="hidden" name="DC" value="<%=MyOutPut%>">  <input type="hidden" name="cliente" value="N"></form><%end if %><script language=javascript>document.frmemissao.submit();</script><%		Response.End() %><%	end if %><%	if not (Session("Logado") or (Request("login") = "@admin_eucreio" and Request("senha") = "admec2980")) then %><%		Session("Logado") = false %><p align=center><font size=3 face=Verdana>Digite seus dados p/ acessar o aplicativo</font></p><form method="post" action="conscontr.asp" name="frmLogin">  <div align="center">	<center>	<table border="0" cellpadding="0" width="280" cellspacing="0">	  <tr>		<td width="69"><font face="Verdana" color="#990000"><b>Login:</b></font></td>		<td width="227"><input name="login"></td>	  </tr>	  <tr>		<td width="69"><font face="Verdana" color="#990000"><b>Senha:</b></font></td>		<td width="227"><input type="password" name="senha"></td>	  </tr>	  <tr>		<td width="296" colspan="2" height="40">		  <p align="center"><input type="submit" value="Confirmar" name="B1"></p></td>	  </tr>	</table>	</center>  </div>  <input type="hidden" name="start" value="ok"></form><script language=javascript>document.frmLogin.login.focus();</script><%	else %><%		Session("Logado") = true %><%		if Request("acao") = "" then %><form name="frmEnv" method="post" action="conscontr.asp">  <table width="300" border="0" cellspacing="5" cellpadding="0" align="center">	<tr> 	  <td align="center" bgcolor="#CCCCCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Digite 		o ID Inicial p/ Consulta</font></td>	</tr>	<tr> 	  <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Iniciar 		em:</font> 		<input type="text" name="id_ini" maxlength="8" size="22">	  </td>	</tr>	<tr> 	  <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Parar em:</font> 		<input type="text" name="id_fim" maxlength="8" size="23">		<font face="Verdana, Arial, Helvetica, sans-serif" size="2">  </font> </td>	</tr>	<tr>	  <td>Log de entrada: 		<input type="text" name="log" size="14" maxlength="2">		<font face="Verdana, Arial, Helvetica, sans-serif" size="2">		<input type="submit" name="Submit" value="Ok">		</font> </td>	</tr>	<tr> 	  <td> 		<input type="checkbox" name="imprimir" value="S" checked>		<font face="Verdana, Arial, Helvetica, sans-serif" size="2">Modo de Impressão 		</font></td>	</tr>  </table>  <input type="hidden" name="acao" value="view"></form><script language="javascript">document.frmEnv.id_ini.focus();</script><%		else %><table width="100%" border="1" cellspacing="1" cellpadding="0" bordercolor="#000000"><%=vTabela%></table><form name="form1" method="post" action="">  <input type="hidden" name="nome">  <input type="hidden" name="endereco">  <input type="hidden" name="bairro">  <input type="hidden" name="cep1">  <input type="hidden" name="cidade">  <input type="hidden" name="estado">  <input type="hidden" name="cpf">  <input type="hidden" name="valor">  <input type="hidden" name="data">  <input type="hidden" name="boleto"></form><hr><right><b>Total de Registros: <%=vTot_Regs%></b></right><p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">[<a href="/asp/conscontr.asp">Nova   Consulta</a>]</font></p><%		end if %><%end if %></body></html>

[paulofbc 0]

me ajudem pessoal, por favor.... me ajude amon-há.....

[ultra 0]

Cara, erro no Cint só pode ser variável vazia ou não numéricaCheca direito teu Request("boleto")[]'s

[AMON-HÁ 0]

opa... e ae paulofbc... beleza cara???

bom... vamos ao problema...

 

Cara... eu andei dando uma olhada aqui em seu código e aparentemente tá tudo em ordem... o que parece que está acontecendo, é que naum está sendo passado valores pela URL, para que determinados campos seja verificados...

tipow...

nessa parte mesmo... observe que tem valores que precisão está na URL do navegador, para só assim serem verificadas...

<%if (CInt(mid(Request("boleto"),1,1)) <= 3 and Request("registranet") <> "S") or Request("reemissao") = "ok" then %>

 

para um teste faça o seguinte...

onde estiver algo do tipo... http://www.seusite.com.br/essapagina.asp ...

coloque por exemplo, no final... ?boleto=2&registranet=N...

e ficará assim.... http://www.seusite.com.br/essapagina.asp?boleto=2&registranet=N...

e veja se dar certo...

 

Boa Sorte!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif