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

Consulta


Guest - Jean -

Pergunta

Guest - Jean -

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>

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

</head>

<body>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

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

&nbsp;<strong>AGUARDE !!!</strong> </font></td>

<META HTTP-EQUIV="REFRESH" CONTENT="2;URL=index.htm">

</tr>

<tr>

<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">

<% else %>

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

</B></font>

<% end if %>

<br>

</td>

</tr>

</table>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><BR>

</font>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Guest - Jean -

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>

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

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

<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""&recuser.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

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.



  • Estatísticas dos Fóruns

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