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

Código Para Inserir Nome E Email

Guest KBSSA

Perguntado por Guest KBSSA,

 Share

Pergunta

Guest KBSSA

Guest KBSSA

Postado
Postado

Tenho um banco de dados que fiz no ACCESS com "NOME E EMAIL" e um formulario com "NOME e EMAIL" tb para cadastrar a galera no meu banco, mais não sei como fazer para incluilos USANDO ASP alguém pode me ajudar com o código ? POR FAVOR.

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0
Tork

Tork

Postado
Postado

o arquivo insere.asp ficaria assim

<%
Dim nome
Dim email
Dim strSQL
Dim rsInsere

nome = Request.Form("nome")
email = Request.Form("email")

'Criando um objeto de conexão ADO
Set conexao = Server.CreateObject("ADODB.Connection")
'Abrindo a conexão ADO
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")

strSQL = "INSERT INTO tabela (nome, email) VALUES ('"&nome&"','"&email&"')"
Set rsInsere = conexao.Execute(strSQL)

Response.Write ("Inserido")

%>

qqer pergunta de novo

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Vou testar agora....

Guest Vou testar agora....

Postado
Postado
o arquivo insere.asp ficaria assim

<%
Dim nome
Dim email
Dim strSQL
Dim rsInsere

nome = Request.Form("nome")
email = Request.Form("email")

'Criando um objeto de conexão ADO
Set conexao = Server.CreateObject("ADODB.Connection")
'Abrindo a conexão ADO
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")

strSQL = "INSERT INTO tabela (nome, email) VALUES ('"&nome&"','"&email&"')"
Set rsInsere = conexao.Execute(strSQL)

Response.Write ("Inserido")

%>

qqer pergunta de novo

Muito obrigado...........

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Para redirecionar para página de

Guest Para redirecionar para página de

Postado
Postado
o arquivo insere.asp ficaria assim

<%
Dim nome
Dim email
Dim strSQL
Dim rsInsere

nome = Request.Form("nome")
email = Request.Form("email")

'Criando um objeto de conexão ADO
Set conexao = Server.CreateObject("ADODB.Connection")
'Abrindo a conexão ADO
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb")

strSQL = "INSERT INTO tabela (nome, email) VALUES ('"&nome&"','"&email&"')"
Set rsInsere = conexao.Execute(strSQL)

Response.Write ("Inserido")

%>

qqer pergunta de novo

Muito obrigado...........

Como faço agora para redirecionar para a tela de agradecimento ?rs ohmy.gif

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

dark0

Postado
Postado

ali no final do codigo, onde tem response.write..

coloque:

response.redirect "pagina_agradecimento.html"

cria sua pagina_agradecimanto.html tb...

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Por que deu esse erro ?

Guest Por que deu esse erro ?

Postado
Postado
ali no final do codigo, onde tem response.write..

coloque:

response.redirect "pagina_agradecimento.html"

cria sua pagina_agradecimanto.html tb...

Bom estou testando essa inclusão no IIS WINDOWS XP profissional:

Mais quando vou inserir as informações no banco de dados dá o seguinte erro ?

Fala que tem que ter uma "tabela atualizavel " e nuca insere no banco as informações meu colega falow que tenho que testa na web por que no micro não dá é verdade ? o que será isso o que tenho feito de errado ?

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

Guest Guest

Postado
Postado
Poste o código que você está usando para que possamos auxiliá-lo melhor.

Esse é o formulario:

<html>

<head>

<title>Inserir Registro</title>

</head>

<body>

<form method="POST" action="inserir.asp">

<font face="verdana" size="2" color="000000">

<p><b>Nome:<input type="text" name="nome" size="20"></b></p>

<p><b>E-mail:<input type="text" name="email" size="20"></b></p>

<p><input type="submit" value="Enviar" name="B1"></p>

</font>

</form>

</body>

</html>

Esse é o código:

<%

Dim nome

Dim email

Dim strSQL

Dim rsInsere

nome = Request.Form("nome")

email = Request.Form("email")

'Criando um objeto de conexão ADO

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

'Abrindo a conexão ADO

conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aula.mdb")

strSQL = "INSERT INTO aula (nome, email) VALUES ('"&nome&"','"&email&"')"

Set rsInsere = conexao.Execute(strSQL)

Response.redirect "obrigado.htm"

%>

Será que seria isso?

Eu tenho que sempre quando for mexer com banco de dados ir até Painel de controle ODBC e fazer aquele esquema ? Tem sempre que fazer quando for um banco NOVO. Se for isso já sei se não for to fudido não sei mais o que fazer...

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

dark0

Postado
Postado

opa.. beleza?

tipow

faz assim:

<%
Dim nome
Dim email
Dim strSQL
Dim rsInsere

nome = Request.Form("nome")
email = Request.Form("email")

url_conexao = Server.MapPath("banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

strSQL = "INSERT INTO aula (nome, email) VALUES ('"&nome&"','"&email&"')"
Set rsInsere = conexao.Execute(strSQL)

response.write "<script>"
response.write "window.location='obrigado.htm'"
response.write "</script>"

%>

Para você saber:

Eu alterei sua conexao.. e o modo de redirecionamento (usando javascript)

Testa ae..

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