Por que não esta inserindo ?
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 ?
Discussão (1)
Carregando comentários...