Retorno de erro da função cInt

ZUCOLLI · Setembro 23, 2007

Ola galera!

Tenho este arquivo..

ASP

<%

Option Explicit

%>

<%

Dim Conexao, rsFuncBuscaGrafica, sqlFuncBuscaGrafica, varFuncBuscaGrafica

varFuncBuscaGrafica = Request.Form("func_busca_grafica")

sqlFuncBuscaGrafica = "SELECT * FROM Graficas WHERE Grafica LIKE '%" & varFuncBuscaGrafica & "%' "

sqlFuncBuscaGrafica = sqlFuncBuscaGrafica & "ORDER BY Grafica"

Call abre_conexao

Set rsFuncBuscaGrafica = Conexao.Execute(sqlFuncBuscaGrafica)

%>

<html>

<head>

<style>

a {text-decoration:none; color:black; font-face:Verdana};

a:active{text-decoration:none; color:black};

a:hover{font-size:10; color:red; text-decoration:underline; font-face:verdana}

body {

background-color: #333333;

margin-top: 10px;

margin-bottom: 20px;

}

.tab_cinza {border: 1px dashed #999999;

}

.style30 {

color: #666666;

font-weight: bold;

}

</style>

<!--

function MM_swapImgRestore() { //v3.0

var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;

}

function MM_preloadImages() { //v3.0

var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}

}

function MM_findObj(n, d) { //v4.01

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);

if(!x && d.getElementById) x=d.getElementById(n); return x;

}

function MM_swapImage() { //v3.0

var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)

if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}

}

//-->

</script>

</head>

<tr>

<tr>

<font size="2" face="VERDANA">Consulta de Gráficas</font>

</center></td>

</tr>

<td width="135" height="10"><strong><font size="1" face="Verdana">gráfica</font></strong></td>

<td width="135" height="10"><strong> <strong><font size="1" face="Verdana">contato</font></strong></strong></td>

<td width="135" height="10"><strong><font size="1" face="Verdana">telefone</font></strong></td>

<td width="135" height="10"><strong><font size="1" face="Verdana">celular</font></strong></td>

<td width="135" height="10"><strong><font size="1" face="Verdana">rádio</font></strong></td>

</tr>

<%

If rsFuncBuscaGrafica.EOF Then

Response.Write " <font color=red size=3 face=verdana>Nao existem gráficas com este nome, por favor tente outro.</font>"

Else

While Not rsFuncBuscaGrafica.EOF

%>

<tr>

</tr>

</table></td>

</tr>

<%

rsFuncBuscaGrafica.MoveNext

Wend

End If

%>

<tr>

</tr>

<tr>

</tr>

</table>

</tr>

</table>

</body>

</html>

<%

rsFuncBuscaGrafica.Close

Call fecha_conexao

Set rsFuncBuscaGrafica = Nothing

%>

Que nos leva a este:

ASP

<% Option Explicit %>

<%

Dim sqlEditaDvd, rsEditaDvd, Conexao, CodigoEditarDvd

CodigoEditarDvd = cInt(request.QueryString("id"))

sqlEditaDvd = "SELECT * FROM dvds WHERE id_dvd=" &CodigoEditarDvd

Call abre_conexao

Set rsEditaDvd = Conexao.Execute(sqlEditaDvd)

IF NOT rsEditaDvd.EOF THEN

%>

<html>

<font color="#ffffff" size="2" face="VERDANA"><strong>CADASTRO DE DVD´s</strong></font>

</center></td>

</tr>

<tr>

</tr>

<tr>

<td height="20"><div align="right"><font size="1" face="Verdana">Nº

DVD</font></div></td>

<td height="20"><input name="numero" type="text" id="numero" value="<%=rsEditaDvd("id_dvd")%>" size="10" readonly="true"></td>

</tr>

<tr>

<td width="101" height="20"> <div align="right"><font size="1" face="Verdana">TÍTULO</font></div></td>

</tr>

<tr>

<td height="20"><div align="right"><font size="1" face="Verdana">GÊNERO</font></div></td>

</tr>

<tr>

<td height="20"><div align="right"><font size="1" face="Verdana">DISTRIBUIDORA</font></div></td>

</tr>

<tr>

<td height="9"><div align="right"><font size="1" face="Verdana">QUANTIDADE</font></div></td>

</tr>

<tr>

<td height="9"><div align="right"><font size="1" face="Verdana">NOME DA

IMAGEM </font></div></td>

</tr>

<tr>

</tr>

<tr>

</center></td>

</tr>

<tr>

</tr>

</tr>

</table>

</form>

<%ELSE

response.write "Não há registros"

END IF%>

<center><a href = "consultadvds.asp"><font face="Verdana" size="2">Voltar</font></a></center>

</body>

</html>

Porém quando eu aciono o botNao no 1o arquivo aparece este erro:

Não é possível exibir a página

Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.

--------------------------------------------------------------------------------

Experimente o seguinte:

Clique no botão Atualizar ou tente novamente mais tarde.

Abra a localhost home page e procure os links para as informações desejadas.

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.

/os/editagrafica.asp, line 8

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; InfoPath.2)

Página:

GET /os/editagrafica.asp

Hora:

domingo, 23 de setembro de 2007, 13:33:24

Mais informações:

Suporte da Microsoft

Depois disto viria mais um arquivo para dar um Update no DB...

Lembrando que estes arquivos são para mostrar, editar, e alterar o registro selecionado.

Se eu tiro a função cInt ele dá o erro de que era esperado um argumento...

Alguem sabe o que acontece?

Obrigado

-----------------------------------------------------------------------------------

Post Mesclado

-----------------------------------------------------------------------------------

Na verdade quando gera a pg de busca que é a 2a ele fazo link para a 3a que a que altera e eu chamos a variavel id para relacionar com o banco de dados e dá este erro!

Mário Monteiro · Setembro 24, 2007

Este erro pode significar algumas coisas

Parâmetros insuficientes. Eram esperados 1.

-Tem algum nome de campo ou tabela que nao existe na query, verifique se nao foi um erro de digitação apenas-Tem algum cmapo sem valor na querySe a duvida persistir escreva a resposta da query na tela e post aqui para questionamentos

ZUCOLLI · Setembro 25, 2007

Quando eu coloco a função cInt dá esse erro:

ASP

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'cInt'

/os/editagrafica.asp, line 5

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; InfoPath.2)

Página:

GET /os/editagrafica.asp

Hora:

segunda-feira, 24 de setembro de 2007, 21:14:13

Mais informações:

Suporte da Microsoft

Mário Monteiro · Setembro 25, 2007

precisa ter certeza que o que tem no request é um numero ou algo que possa ser convertido em numeroteste isso antes de usar o cint

ZUCOLLI · Setembro 25, 2007

é verdade.... não é número é uma string comum de texto qualquer. Como eu faço?

Mário Monteiro · Setembro 25, 2007

nao vai ter como usar cint entaoo que está pretendendo?

ZUCOLLI · Setembro 25, 2007

Eu fiz a 1a pg onde eu monto a tabela que vai ser exibida com as Graficas... e no Nome da grafica eu faço o link para a edição do registro. Pego a id que vai ser o Nome da grafica....

<td width="134" height="15" align="center" valign="middle"><font face="Verdana" color="gray" size="1"><%= "<a href=editagrafica.asp?id=" & rsFuncBuscaGrafica("Grafica") & ">"%> <%= rsFuncBuscaGrafica("Grafica") %></font></td>

Mas no exemplo que eu vi estava como número por isso o cInt.

e eu chamo a no outro arquivo e monto o form de edição..

CodigoEditarDvd = cInt(request.QueryString("id"))

e depois faço o botão que salva as alterações no BD

Acho que é isso

Entrar

Arquivado

Retorno de erro da função cInt

Recommended Posts

ZUCOLLI 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

ZUCOLLI 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

ZUCOLLI 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

ZUCOLLI 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante