2 replies to this topic

[abc2]

seguinte...

criei um mural de recados, na primeira página ele pega os dados do banco de dados, ate ai, td bem... o problema eh qdo vou cadastrar um novo recado, ele não envia os dados. Criei um formulario que envia os dados para a página abaixo:
----------------------------------------------------------------------
<!--#include file="../inc/conexao.asp"-->
<%
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open

sql = "INSERT INTO Recados (remetente,recado,destinatario,data) VALUES ('" & Replace(Request.Form("remetente"),"'","''") & "','" & Replace(Request.Form("recado"),"'","''") & "','" & Replace(Request.Form("destinatario"),"'","''") & "','" & date() & "')"
RS.Open sql

RS.close
Set cn = Nothing

response.redirect "recados.asp"
%>
----------------------------------------------------------------------
e nao funciona... realmente nao sei o q pode estar acontecendo...

se alguem tiver uma ideia...

[_UsP_]

erro?

[Tarkan]

E aí, amigo... Beleza?
Seguinte...

"Rs.Open" ? Tem um "Rs.Open" no início do seu código que não está abrindo nenhuma instrução SQL... Aliás, não é necessário abrir uma instrução ao recordset, já que é um código de inserção...

Seria necessário fazer isso, caso tivesse uma verificação para ver se a mensagem é duplicada e assim, ver se ela vai ser inserida...
Mas como não tem, não tem necessidade de fazer isso.

Fiz de uma maneira simplificada e, na minha opinião, um pouco mais legível... Mais arrumada...

Experimente fazer do seguinte modo:

<!--#include file="../inc/conexao.asp"-->
<%
sql = "INSERT INTO Recados (remetente,recado,destinatario,data) VALUES ('"
sql = sql & Replace(Request.Form("remetente"),"'","''") & "','"
sql = sql & Replace(Request.Form("recado"),"'","''") & "','"
sql = sql & Replace(Request.Form("destinatario"),"'","''") & "','"
sql = sql & date() & "')"
cn.execute(sql)

Set cn = Nothing

response.redirect "recados.asp"
%>

Espero que lhe ajude!

Boa sorte e, qualquer coisa, volte a postar!