Consulta

Março 2, 2006

Segue o código de envio de um formulario (este funciona ), o que não estou conseguindo é montar um rotina para consulta desse formulário, se alguém puder me ajudar ficarei grato.

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

<html>

<head>

<title>Untitled Document</title>

</head>

<body>

<tr>

<td>

<% nome = Request.Form("nome")

telefone = Request.Form("fone")

cidade = Request.Form("cidade")

email = Request.Form("email")

data = Request.Form("data")

assunto = Request.Form("assunto")

%>

<%

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

'Criando o objeto de conexão

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

oConn.execute ("insert into tabcontato(nome, fone, cidade, email, assunto) values('"&request("nome")&"' , '"&request("fone")&"' , '"&request("cidade")&"' , '"&request("email")&"' , '"&request("assunto")&"')")

oConn.Close

'Fecha conexão com o banco

%>

<%if Err.number = 0 then%>

<br>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><B>"Formulário

Enviado Com Sucesso!</B><B>"</B><BR>

 <strong>AGUARDE !!!</strong> </font></td>

</tr>

<tr>

<% else %>

<B>"Não Foi Possível Enviar o Formulário!"<br>

</B></font>

<% end if %>

<br>

</td>

</tr>

</table>

</font>

</body>

</html>

Março 2, 2006

Segue código para consulta mas não funciona se puderem me ajudar, agradeço.

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

<html>

<head>

<title>Consulta Contatos - Infortech</title>

</head>

<tr>

<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>

<% dim conuser

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.execute("select * from tabcontato"),conuser %>

oConn.Close

'Fecha conexão com o banco

%>

<br>

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

<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="109" bordercolor="#006699" bgcolor="#CCCC99">Assunto</TD>

</TR>

<%do while not eof %>

<TR>

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

</font></TD>

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

</font></TD>

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

</font></TD>

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

</font></TD>

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

</font></TD>

</TR>

<%recuser.movenext

loop

set conuser=nothing

set recuser=nothing%>

</TABLE>

</td>

</tr>

</table>

</div>

</body>

</html>

fercosmig · Março 2, 2006

qual erro?

Março 2, 2006

SEGUE O ERRO.

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/acessacontatos.asp, line 48

Entrar

Consulta

Pergunta

Guest - Jean -

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Guest - Jean -

Link para o comentário

Compartilhar em outros sites

fercosmig

Link para o comentário

Compartilhar em outros sites

Guest - Jean -

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades