Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Krock_76

Por que não esta inserindo ?

Por , em ASP Clássico

Recommended Posts

Krock_76    0

Krock_76
Postado

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 ?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito