Ajuda!

[Gnomo]

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 ALIGN=CENTER WIDTH=442>
<%
lngCodigoUsuario = Request.Cookies("IDUsuarioPR")

If Request("pag") = "opiniao" Then

 rstGeral.Open "SELECT * FROM Opiniao WHERE UsuarioCod=" & lngCodigoUsuario & ";" , conn, adOpenKeyset, adLockOptimistic
  rstGeral.AddNew()
  rstGeral("Texto") = Request("Texto")
  rstGeral("UsuarioCod") = lngCodigoUsuario
  rstGeral.Update()
 rstGeral.Close()
End If
  %>

<TR>
<TD VALIGN=BOTTOM><img src=img/qdr-titulo-esq.gif></TD>
<TD COLSPAN=2 WIDTH=442><SPAN CLASS=titulo>Dê sua Opinião</SPAN></TD>
</TR>
<TR>
<TD><img src=img/qdr-titulo-esq2.gif></TD>
<TD WIDTH=442 BACKGROUND=img/qdr-titulo-linha.gif></TD>
<TD><img src=img/qdr-titulo-dir.gif></TD>
</TR>
</TABLE>

<FORM action="Default.asp?sec=<%=sec%>" method=post>
<INPUT type=hidden name=sec value="<%=sec%>">
<INPUT type=hidden name=pag value="opiniao">
<INPUT type=hidden name=cod value="<%=lngCodigoUsuario%>">

<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=5 ALIGN=CENTER WIDTH=442>
<TR>
<TD><B>Opinião</B></TD>
</TR>

<TR>
<TD><TEXTAREA CLASS=inputtext COLS=70 ROWS=5 NAME=texto VALUE="<%=Request("Texto")%>"></TEXTAREA></TD>
</TR>

<TR>
<TD><cENTER><INPUT TYPE=SUBMIT NAME=Enviar VALUE=Enviar></CENTER></TD>
</TR>

</TABLE>

po... esse codigo ai e para o seguinte..

os usuario logados no site vao dar sua

opiniao... so que quando o usuario

da o opiniao a pagina atualiza mais a

opiniao não vai para o bancode dados...

O codigo para aparecer as opinioes

já esta certo.. já testei... so falta esse...

me ajudem please : )

grato;

GnomO!

o site é esse o:

www.clickmacae.com.br/pedroreis/?sec=14

login: usuario@teste.com.br

senha: 1234

[ViniciusJau]

dá algum erro ou simplesmente não grava ????

posta o erro ai..

[DELPHI-Man32]

você tem uma tabela reservada para gravar as opnioes dos usuarios não é??

então você faz assim...

link para a validação da opiniao fica assim o o metodo do form

<form action="opinioes.asp?nome=<%=RS("id")%>". ...

ae a pagina que ira gravar os dados recebera o nome do usuario que ta opnando como variavel e pode ficar assim..

cod = request("nome")

set Salvar = Server.CreateObject("ADODB.Recordset")

sql = "Select * from opinioes"

Salvar.open sql, Conn, 3,3

Salvar.addnew

Salvar("nome") = cod

Salvar.update

deu pra entender!!! acho q assim funciona!!!