Erro no código

[paulofbc 0]

Fala pessoal, que erro seria esse?

O argumento não é opcional: 'objSL.geradados' /asp/conscontr.asp, line 39

a linha 39 é essa:

dadosCripto =

abraços!

[AMON-HÁ 0]

Fala pessoal, que erro seria esse? QUOTEO argumento não é opcional: 'objSL.geradados' /asp/conscontr.asp, line 39 a linha 39 é essa:CODEdadosCripto =abraços!

Nem sempre a linha que está indicada como a que contém o erro, é realmente a linha do erro...por isso é importante que coloque toda rotina ae... ou pelo menos uma parte importante dela...

[paulofbc 0]

e ae, tudo certo?

 

o código é 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")		'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 objSL = server.createobject("Itaucripto.cripto")	dadosCripto = objSL.geradados(vQuem,vPedido,vValor,vObs,vChave,vSacado,vCodInscr,vNumInscr,vEndereco,vBairro,vCEP,vCidade,vEstado,vDtVenc,"")	Set objSL = 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="<%=dadosCripto%>"></form><%else %><form method="post" action="https://shopline.itau.com.br/shopline/itaubloqueto.asp" name="frmemissao">  <input type="hidden" name="DC" value="<%=dadosCripto%>">  <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]

alguem poderia me dar uma mão?abraços!

[ultra 0]

você tem certeza q o componente ("Itaucripto.cripto") suporta a propriedade .geradados ?

[paulofbc 0]

Olá Ultra, tudo certo?

 

com certeza, suporta sim.

 

pois tenho uma outra pagina que tambem tem este mesmo código itaucripto e lá funciona ok.

 

é assim, essa outra pagina minha é difrente dessa pagina que estou mexendo, alguns parametros são iguais, porem ela tem menos código do que essa. Eu tentei comparar as duas, mas estou quebrando a cabeça com essa pagina, pois só da erro.

 

Vou postar aqui pra voces a pagina que tem o código igual ao meu e que esta funcionando perfeitamente.

 

 

<%  dominio = Request.Form("Dominio")  Nome		= TRIM(Request.Form("Nome_Razao"))  DataVencimento = Request.form("DataVencimento")  CNPJCGC	= Request.Form("CNPJCGC")  CPF		= Request.Form("CPF")  DDD		= Request.Form("DDD")  Fone	= Request.Form("Fone")  email   = Request.Form("email")  erroMsg = ""  erroMsg2 = ""if Nome = ""   or DDD = ""   or Fone = ""  or email = ""  then   erroMsg = "Para dar continuidade no processo de registro, precisamos que todos os campos estejam devidamente preenchidos"end ifif Len(CNPJCGC) =  0 and Len(CPF) = 0 then   erroMsg = "Para dar continuidade no processo de registro, precisamos que todos os campos estejam devidamente preenchidos"end ifif Len(CNPJCGC) <> 0 thencampo1=CNPJCGCcampo2="CNPJ/CGC"VerCGC campo1,campo2elseIf  Len(CPF) <> 0 then campo1=CPF campo2="CPF" VerCPF campo1,campo2end ifend if  if erroMsg <> "" or erroMsg2 <> ""  then%>				<p> </p>				<p> </p>				<p align="center"><font face="Arial" size="2" color="white"><%= erroMsg %></font></p>				<p align="center"><font face="Arial" size="2" color="white"><%= erroMsg2 %></font></p>				<p align="center"><font face="Arial" size="2" color="white">Clique 				  </font><ahref="javascript:history.go(-1)" target="_top"><font face="Arial" size="2" color="#FFDC00"style="text-transform: none; text-decoration: underline">aqui</font></a> <fontface="Arial" size="2" color="white">para voltar a preencher o Cadastro </font> 				  <% response.endEnd If  %>				  <%Sub PegaCampos		If CampoBanco <>"" then			CampoBanco= CampoBanco & ","		End If		CampoBanco= CampoBanco & Banco		If CampoVariavel <>"" then			CampoVariavel = CampoVariavel & ","		  End If		CampoVariavel = CampoVariavel & "'" & Variavel & "'"	End subpasswd=""DB  = Server.MapPath("../../dados/dados.mdb")Con = "DRIVER={Microsoft Access Driver (*.mdb)};"Con = Con & "DBQ=" &DB& ";"Con = Con & "PWD=passwd"Onde = "Tipo = '" & compra &"'"SQL = "SELECT * FROM PedidoValor WHERE "& Onde &""Set Cx = Server.CreateObject("ADODB.Connection")Cx.Open ConSet RecSet = Cx.Execute(SQL)valor = RecSet("Valor")pedido=RecSet("NPedido")primeirodigito=RecSet("PrimeiroDigito")obs = RecSet("OBS")ultimo=pedido+1SQL="Update PedidoValor SET NPedido =  "& ultimo & " WHERE  " & Onde &""Cx.execute SQLnpedido = CStr(pedido)for i = 1 to (6-Len(npedido))	npedido="0"& npedidonextnpedido=primeirodigito&npedidotabela = "Clientes"'** prepara recebimento campo Request.form	   Onde = "NPedido = '" & npedido &"'"	   SQL = "SELECT * FROM Clientes WHERE "& Onde &""	   Set RecSet = Cx.Execute(SQL)		CampoBanco=""		CampoVariavel= ""		For each campo in RecSet.fields		Banco=Campo.Name   '*** Pega o Nome do Campo do banco de Dados	  Variavel=Request.form(Campo.Name)   '**** Pega o Valor da Variável do Formulário'***** Campo.Value Pega a valor da variavel no Banco de Dados		If Not Isnull(Variavel) And Trim(variavel)<>"" then			If CampoBanco <>"" then				CampoBanco= CampoBanco & ","			End If			CampoBanco= CampoBanco & Banco			If CampoVariavel <>"" then				CampoVariavel = CampoVariavel & ","			  End If			CampoVariavel = CampoVariavel & "'" & Variavel & "'"		End if	Next'Inclui variáveis Session 'Situacao_Compra= "" datahoje=now() CPF=Request.Form("CPF") if Trim(CPF) <> "" Then	 CampoBanco="CNPJCGC" & "," & CampoBanco	 CampoNovo ="'" & CPF &"'" & "," & CampoVariavel	 CampoVariavel=CampoNovo end if CampoBanco="Tipo" & "," & CampoBanco CampoNovo ="'" & compra &"'" & "," & CampoVariavel CampoVariavel=CampoNovo 'CampoBanco="Situacao_Compra" & "," & CampoBanco 'CampoNovo ="'" & Situacao_Compra &"'" & "," & CampoVariavel 'CampoVariavel=CampoNovo CampoBanco="DataHoraRequisicao" & "," & CampoBanco CampoNovo ="'" & datahoje &"'" & "," & CampoVariavel CampoVariavel=CampoNovo CampoBanco="Npedido" & "," & CampoBanco CampoNovo ="'" & npedido &"'" & "," & CampoVariavel CampoVariavel=CampoNovo'***Insere   SQL = "INSERT INTO "& Tabela &" ("& CampoBanco &") VALUES ("& CampoVariavel &")"   Cx.execute(SQL)'* prepara informacoes se a opcao for Itau	vQuem	 = "J0038778600001043104255805"	vChave	= "AEFGNS876860REGI"	vPedido   = npedido	vValor	= valor	vObs	  = obs	vSacado   = Request.Form("Nome_Razao")	vEndereco = Request.Form("Endereco")	vBairro   = Request.Form("Cont")	vCEP	  = Replace(Request.Form("CEP"),"-","")	vCidade   = Request.Form("Cidade")	vEstado   = Request.Form("Estado")	vCPF	  = Request.Form("CPF")	vCNPJCGC  = Request.Form("CNPJCGC")	obsad1 = ""	obsad2 = ""	obsad3 = ""	if vCPF <> "" then		vCodInscr = "01"		vNumInscr = vCPF	elseif vCNPJCGC <> "" then		vCodInscr = "02"		vNumInscr = vCNPJCGC	else		vCodInscr = "01"		vNumInscr = "11111111111"	end if	Set obj = server.createobject("Itaucripto.cripto")	MyOutPut = obj.geraDados(vQuem,vPedido,vValor,vObs,vChave,vSacado,vCodInscr,vNumInscr,vEndereco,vBairro,vCEP,vCidade,vEstado,obsad1,obsad2,obsad3,"","")	Set obj = nothing'* prepara se for Visa%>				</p>			  </div>			  <div align="center"> 				<center>				  <table border="0" cellpadding="0" cellspacing="0" width="95%">					<tr> 					  <td valign="top"> 						<div align="center"> 						  <center>							<table border="0" cellpadding="0"	cellspacing="0" width="100%">							  <tr> 								<td colspan="2" bgcolor="#FFDC00"> 								  <div align="center"><font face="Arial" size="2" color="#a08c32"><strong> 									</strong></font></div>								  <font face="Arial" size="2" color="#a08c32"><strong> 								  <p		align="center">Escolha a melhor opção para pagamento  								  </strong></font></td>							  </tr>							  <tr valign="top"> 								<td colspan="2"> 								  <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="2">Seu 									cadastro foi enviado com sucesso.<br>									Escolha a melhor forma de pagamento, levando 									em conta as seguintes observações:</font></p>								  <div align="center"> 									<center>									  <table border="0" cellpadding="1" cellspacing="1" width="95%">										<tr> 										  <td width="25%" align="center"> 											<form method="POST"			action="https://shopline.itau.com.br/shopline/itaubloqueto.asp" onSubmit="popupItau()"			target="SHOPLINE">											  <input type="hidden" name="DC" value="<%= MyOutPut %>">											  <p> 												<input type="image"			  src="../images/itaubloq.gif" width="63" height="63">											  </p>											</form>										  </td>										  <td colspan="2" align="center"> 											<div align="left"><font size="2"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFDC00">*</font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"> 											  Para utilizar o boleto bancário, 											  você deverá possuir uma impressora 											  laser ou jato de tinta.</font><font face="Verdana, Arial, Helvetica, sans-serif"> 											  </font> </font></div>										  </td>										</tr>										<tr> 										  <td width="25%" align="center" valign="top"><font face="Arial">  											</font> 											<form name="form2" method="POST"			action="https://shopline.itau.com.br/shopline/shopline.asp" onSubmit="popupItau()"			target="SHOPLINE">											  <input type="hidden" name="DC" value="<%= MyOutPut %>">											  <p> 												<input type="image"			  src="../images/itaudeb.gif" name="image2">											  </p>											</form>										  </td>										  <td colspan="2" align="center" valign="middle"> 											<P align=left><FONT face=Verdana color=white 							  size=2><FONT color=yellow>*</FONT> Pagamento 											  à vista por transferência, crediário 											  automático Itaú e boleto bancário.</FONT></P>										  </td>										</tr>										<tr> 										  <td width="25%" align="center" valign="top"><a href="../depbanc.htm"><img src="../images/login.gif"			width="109" height="16" border="0"></a></td>										  <td colspan="2" align="center" valign="top"> 											<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFDC00">* 											  </font><font color="#FFFFFF">Anote 											  as informações bancárias 											  para realizar o depósito.</font></font></div>										  </td>										</tr>									  </table>									</center>								  </div>								  <div align="center"> 									<center>									</center>								  </div>								  <table border="0" cellpadding="0" cellspacing="0" width="90%" align="center">									<tr> 									  <td height="81"> 										<p align="center"><font face="arial" size="2" color="white"><br>										  Você encontrou alguma dificuldade 										  no pagamento? <a href="pop_problema.htm" target="janpop" onClick="javascript:window.open('','janpop','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=0,left=0,width=600,height=370')"><font face="arial" size="2" color="#ffdc00" style="TEXT-TRANSFORM: none; TEXT-DECORATION: none">Clique 										  aqui</font></a>.<br>										  <br>										  Após concluído o processo de pagamento 										  (impressão do<br>										  boleto/depósito) clique</font> <a href="http://www.registranet.com.br/cgi-bin/whoiscom/search.pl"><font face="arial" size="2" color="#ffdc00" style="TEXT-TRANSFORM: none; TEXT-DECORATION: none">aqui</font></a> 										  <font face="arial" size="2" color="white">e 										  volte para a página inicial.</font></p>									  </td>									</tr>								  </table>								  <p>  								</td>							  </tr>							</table>						  </center>						</div>					  </td>					</tr>				  </table>				</center>			  </div>			  <%Set RecSet = NothingSet DB = Nothing%>

[AMON-HÁ 0]

dadosCripto = objSL.geradados& #40;vQuem,vPedido,vValor,vObs,vChave,vSacado,vCodInscr,vNumInscr,vEndereco,vBairro,vCEP,vCidade,vEstado,vDtVenc,"")

Nesta parte... a qnd de campos está diferente de um código pro outro...caso naum queira usar um dos campos correspondente a determinado valor... use ("")... pois assim você naum interfere na sintaxe...espero ter ajudado... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[paulofbc 0]

Olá Amon-há, tudo certo?ele esta diferente porque cada pagina tem um formulário de preenchimento diferente, entaõ eu fiz a comparação conforme tem o meu form.como que eu usaria estas """"?abraços!

[AMON-HÁ 0]

Olá Amon-há, tudo certo?

 

ele esta diferente porque cada pagina tem um formulário de preenchimento diferente, entaõ eu fiz a comparação conforme tem o meu form.

 

como que eu usaria estas """"?

 

abraços!

No caso, seria assim:

dadosCripto = objSL.geradados& #40;vQuem,vPedido,vValor,vObs,vChave,vSacado,vCodInscr,vNumInscr,vEndereco,vBair

ro,vCEP,vCidade,vEstado,"","","",vDtVenc,"")

 

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

[paulofbc 0]

Oi Amon-há,

 

entendi sim, fiz do jeito que voce me falou, só que agora ele gerou este outro tipo de erro...

 

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

abraços!

[ultra 0]

verifica se todos os lugares onde você pos CInt são números

[paulofbc 0]

oi ultra, acho que são, da uma olhada na linha 105.

 

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

depois a outra parte que tambem tem este código CInt é essa, que vai da linha 84 até a linha 88.

 

next			vTabela = vTabela & "</tr>" & chr(13)			if rsUsers("Id") >= CInt(Request("id_fim")) then				exit do			end if

abraços!

[AMON-HÁ 0]

Oi Amon-há, entendi sim, fiz do jeito que voce me falou, só que agora ele gerou este outro tipo de erro...

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

abraços!

Cara... as vezes está sendo passado um valor do tipo double...tente trocando CInt por CDbl... e veja o que dá... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Mário Monteiro 179]

esse erro pode ser por muitos fatores..o ideal é voce printar na tela o valor da variavel e ver porque ta dando erro..pode se tipo de dados diferente, valor nulo, numero maior que o suportado, etc...so vendo o valor pra ter certeza

[paulofbc 0]

oi pessoal, desculpa...eu sou muito leigo na area de programação, eu precisaria se possivel que voces me dessem um auxilio de como efetuar nisso, estou muito perdido.abraços!

[Mário Monteiro 179]

antes do CINT poe um response.write no valor pra ver o que vem

[paulofbc 0]

oi mario, em que local eu faço isso?

[Mário Monteiro 179]

antes do CINT que ta dando erro...

[paulofbc 0]

oi mario, ele me deu o seguinte erro:

 

Erro de compilação do Microsoft VBScript erro '800a03ee' ')' 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-------------------^

[paulofbc 0]

Cara... as vezes está sendo passado um valor do tipo double...tente trocando CInt por CDbl... e veja o que dá...

já alterei tambem de CInt para CDbl e da o seguinte erro:

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

abraços!