[resolvido] Erro Na Linha 93

Novembro 12, 2007

Se alguém souber resolver esse erro me ajude. messagem do erro esta abaixo e logo depois esta o programa ASP.

Tipo de erro:
ADODB.Connection (0x800A0BB9)
Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.
/te/cadAss.asp, line 93

<%
vlogi=Request("txtlogi")
vSenh=Request("txtSenh")
vTitu=Request("txttitu")
vMens=Request("txtMens")
if len(VLogi) = 0 or len(vSenh) = 0 then
%>
<html>
<head><title>Fórum - Erro na postagem do assunto</title></head>
<body>
<center>
<h1>Login ou senha incorretos</h1>
Você precisa digitar o logi e a senha para que
a mensagem seja postada
<p>
<a href="java script:history.back()">Voltar</a>
<a href="forum.asp">Página Principal</a>

</body>
</html>
<%
Else
if len(VTitu)=0 then
%>
<html>
<head><title>Fórum - Erro na postagem do assunto</title></head>
<body>
<center>
<h1>Título da mensagem incorreto</h1>
Você Precisa digitar o título da mensagem
para que a mesma seja postada.
<p>
<a href="java script:history.back()">Voltar</a>
<a href="forum.asp">Página Principal</a>

</body>
</html>
<%
else
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\InetPub\Wwwroot\te\forum.mdb;"
Set Banco = Server.Createobject("ADODB.Connection")
Banco.open strProvider

set tabela=banco.execute("Select * from usuarios WHERE Logi_usu='" & vlogi &"'")
if (tabela.BOF AND tabela.EOF) then
%>
<html>
<head><title>Fórum - Erro no envio do assunto</title></head>
<body>
<center>
<h1>Usuário não existente</h1>
Não há usuário cadastrado com esse login.
<p>
<a href="java script:history.back()">Voltar</a>
<a href="forum.asp">Página Principal</a>

</body>
</html>
<%
Else
if (vSenh<>tabela("Senh_usu")) then
%>
<html>
<head><title>Fórum - Érro no envio do assunto</title></head>
<body>
<center>
<h1>Senha Incorreta</h1>
A senha foi digitada incorretamente.
<br>
<a href="java script:history.back()">Voltar</a>
<a href="forum.asp">Página Principal</a>

</body>

</html>
<%
Else
Linha 93 Set Tabela = Banco.Exucute ("SELECT * FROM Assuntos ORDER BY codi_ass DESC")
if (tabela.BOF and tabela.EOF) then
Vcodi = 1
Else
Vcodi=Int(tabela("Codi_ass"))+1
End If
Vdata=date & " - " & Time
Vtitu=replace(Vtitu,">","&gt")
Vtitu=replace(Vtitu,"<","&lt")
Vtitu=replace(Vtitu,"'","")
Vmens=replace(Vmens,">","&gt")
Vmens=replace(Vmens,"<","&lt")
Vmens=replace(Vmens,VBCRLF,"<br>")
Vmens=replace(Vmens,"'","")
set tabela = banco.execute("Insert into Assuntos (codi_ass, Usua_ass, titu_ass, mens_ass, data_ass) values (" & Vcodi &", '" & Vlogi &"', '" & Vtitu &"', '" & Vmens & "', '" & Vdata & "')")
%>
<html>
<head><title>Fórum dados Gravados</title></head>
<body>
<center>
<h1>Assunto Enviado</h1>
Assunto <%=Vtitu%> foi enviado com sucesso.<p>
<a href="forum.asp">Messagens</a>
<a href="../index.html">Página Principal</a>
</center>
</body>
</html>
<%
End If
End If
End If
End If
%>

quintelab · Novembro 13, 2007

Cara o problema deve estar na sua query:

SELECT * FROM Assuntos ORDER BY codi_ass DESC

Teste ela direto no banco de dados.

bareta · Novembro 13, 2007

opa olha só

Linha 93 Set Tabela = Banco.Exucute ("SELECT * FROM Assuntos ORDER BY codi_ass DESC")
Set Tabela = Banco.Execute("SELECT * FROM Assuntos ORDER BY codi_ass DESC")

Novembro 14, 2007

Set Tabela = Banco.Execute("SELECT * FROM Assuntos ORDER BY codi_ass DESC")

valeu cara deu certo. aquele u ficou invisivel. obg.

Entrar

[resolvido] Erro Na Linha 93

Pergunta

Guest --Mateus --

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

quintelab

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Guest --Mateus --

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades