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

Por Que Não Esta Inserindo ?


valterlin

Pergunta

Fiz um formulario para incluir nome email e mensagem, mais quando vou verificar se tudo deu certinho nome e email sim mais a mensagem não esta sendo inserido por que este é o código:

formulario:

<html>

<head>

<title>Inserir Registro</title>

</head>

<body>

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

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

<table widht="150">

<tr>

<td>

<p><b>Nome:</b>

</td>

<td>

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

</td>

</tr>

<tr>

<td>

<p><b>Email:</b>

</td>

<td>

<input type="text" name="Email" size="20"></p>

</td>

</tr>

<tr>

<td>

<p><b>Mensagem:</b>

</td>

<td>

<input type="text" name="Mensagem" size="40"></p>

</td>

</tr>

<td>

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

</td>

</table>

</font>

</form>

</body>

</html>

este o código ASP:

<%

Dim nome

Dim email

Dim mensagem

Dim strSQL

Dim rsInsere

nome = Request.Form("nome")

email = Request.Form("email")

curso = Request.Form("mensagem")

response.write nome & "<br>"

response.write email & "<br>"

response.write mensagem & "<br>"

response.end

'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("visitantes.mdb")

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

Set rsInsere = conexao.Execute(strSQL)

Response.Redirect "busca.htm"

%>

O que fiz de errado podem me explicar ? E quando redireciono também para a busca ele não vai só mostra o nome e o email que foi inserido na tela e não redireciona ?

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Guest - André -

Cara o erro é simples você declara a variavel "mensagem" mas na hora de atribuir um valor para ela você põe uma variavel de nome "curso", e na hora de chamar na instrução SQL você chama a variavel "mensagem"

<%

Dim nome

Dim email

''Dim mensagem

Dim strSQL

Dim rsInsere

''é so muda o nome da variavel CURSO para MENSAGEM

nome = Request.Form("nome")

email = Request.Form("email")

"curso" = Request.Form("mensagem")

response.write nome & "<br>"

response.write email & "<br>"

response.write mensagem & "<br>"

response.end

'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("visitantes.mdb")

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

Set rsInsere = conexao.Execute(strSQL)

Response.Redirect "busca.htm"

%>

Link para o comentário
Compartilhar em outros sites

  • 0
Guest Ops valew ?
Cara o erro é simples você declara a variavel "mensagem" mas na hora de atribuir um valor para ela você põe uma variavel de nome "curso", e na hora de chamar na instrução SQL você chama a variavel "mensagem"

<%

Dim nome

Dim email

''Dim mensagem

Dim strSQL

Dim rsInsere

''é so muda o nome da variavel CURSO para MENSAGEM

nome = Request.Form("nome")

email = Request.Form("email")

"curso" = Request.Form("mensagem")

response.write nome & "<br>"

response.write email & "<br>"

response.write mensagem & "<br>"

response.end

'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("visitantes.mdb")

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

Set rsInsere = conexao.Execute(strSQL)

Response.Redirect "busca.htm"

%>

Putz nem tinha notado o que aconteceu valeu era isso mesmo . wink.gif

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

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