Ir para conteúdo
Fórum Script Brasil
  • 0

Erro Na Consulta

Guest - Jean -

Perguntado por Guest - Jean -,

 Share

Pergunta

Guest - Jean -

Guest - Jean -

Postado
Postado

Estou fazendo a consulta de um formulário, e quando vou acessar este formulário aparece o seguinte erro:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/acessacontatos.asp, line 47

Abaixo fonte da conculta:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Consulta Contatos</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div align="center">

<table width="100%" height="100%" border="0">

<tr>

<td align="center" valign="top"> <div align="center"><img src="imagens/Logotipo.gif" width="119" height="95">

<style>

body {scrollbar-face-color: #FFFFFF;

scrollbar-shadow-color: BLACK;

scrollbar-highlight-color: #FFFFFF;

scrollbar-3dlight-color: BLACK;

scrollbar-darkshadow-color: #FFFFFF;

scrollbar-track-color: #F5F5F2;

scrollbar-arrow-color: blue; }

</style>

<%

Set oConn = Server.CreateObject("ADODB.Connection")

'Criando o objeto de conexão

oConn.Open "DSN=usuario; UID=usuario; PWD=senha;"

'Abrindo conexão com o banco de dados

'Aqui vai o seu codigo

oConn.execute ("select * from tabContato")

oConn.Close

'Fecha conexão com o banco

%>

<br>

<strong><font color="#003366" size="4" face="Verdana, Arial, Helvetica, sans-serif"><br>

Consulta Contatos</font></strong> </div>

<TABLE width="771" bordercolordark="#000000" border="1" bordercolor="#006699">

<TR bgcolor="#CCCCCC">

<TD width="150" bordercolor="#006699" bgcolor="#CCCC99"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Nome

Completo </font></TD>

<TD width="127" bordercolor="#006699" bgcolor="#CCCC99"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Telefone</font></TD>

<TD width="136" bordercolor="#006699" bgcolor="#CCCC99"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Cidade</font></TD>

<TD width="99" bordercolor="#006699" bgcolor="#CCCC99"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">E-mail</font></TD>

<TD width="109" bordercolor="#006699" bgcolor="#CCCC99">Assunto</TD>

</TR>

<%do while not eof %>

<TR>

<TD width="150" height="36" bordercolor="#003366"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

<%response.write""&fields("nome")%>

</font></TD>

<TD width="127" height="36" bordercolor="#003366"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

<%response.write""&recuser.fields("fone")%>

</font></TD>

<TD width="136" height="36" bordercolor="#003366"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

<%response.write""&recuser.fields("cidade")%>

</font></TD>

<TD width="99" height="36" bordercolor="#003366"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

<%response.write""&recuser.fields("email")%>

</font></TD>

<TD width="109" bordercolor="#003366"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">

<%response.write""&recuser.fields("assunto")%>

</font></TD>

</TR>

<%recuser.movenext

loop

set conuser=nothing

set recuser=nothing%>

</TABLE>

</td>

</tr>

</table>

</div>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

parece ser algum problema com a conexao com o banco..

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - Jean -

Guest - Jean -

Postado
Postado

Não fechei o banco agora apareceu este erro.Não sei qual é este objeto que ele pede.

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/acessacontatos.asp, line 45

Link para o comentário
Compartilhar em outros sites
  • 0
fercosmig

fercosmig

Postado
Postado

<%

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "DSN=usuario; UID=usuario; PWD=senha;"

oConn.execute ("select * from tabContato")

oConn.Close

do while not eof

response.write""&fields("nome")

response.write""&recuser.fields("fone")

response.write""&recuser.fields("cidade")

response.write""&recuser.fields("email")

response.write""&recuser.fields("assunto")

recuser.movenext

loop

set conuser=nothing

set recuser=nothing

%>

<%

Dim oRS, oConn

Set oRS = Server.CreatObject("ADODB.Recordset")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/banco.mdb")

Set oRS = oConn.execute ("select * from tabContato")

do while not oRS.EOF

response.write "&nbsp;" & oRS("nome")

response.write "&nbsp;" & oRS("fone")

response.write "&nbsp;" & oRS("cidade")

response.write "&nbsp;" & oRS("email")

response.write "&nbsp;" & oRS("assunto")

oRS.movenext

loop

set oConn = nothing

set oRS = nothing

oRS.Close

oConn.Close

%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - Jean -

Guest - Jean -

Postado
Postado

Ainda permanece o erro.Mesmo arruamando para

<%do while not.eof %>

Microsoft VBScript runtime error '800a01f9'

Invalid or unqualified reference

/acessacontatos.asp, line 45

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - Jean -

Guest - Jean -

Postado
Postado

Coloquei o código acima,OK traz os dados, porém ainda aparece um erro:

To Tentando organizar isso numa tabela se alguém tiver uma idéia agradeço.

Muito obrigado pela ajuda.

Microsoft VBScript runtime error '800a01a8'

Object required

/acessacontatos.asp, line 28

ESSA LINHA AQUI: oRS.Close

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...