problemas com update

[salmeida 0]

Olá pessoal,

é o seguinte, nesse primeiro código acontece o seguinte, ele diz que foi atualizado não nem se quer mexe no banco de dados..

 

<%titulo = Request.Form("titulo")url = Request.Form("url")categoria = Request.form("categoria")estrelas = Resquest.Form("estrelas")cliques = Resquest.Form("cliques")descricao = Request.Form("descricao")adicionar = Request.Form("adicionar")if categoria <> "0" thenConn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dadosset conn = Server.CreateObject("ADODB.Connection")conn.open Conn_String conn.Execute("UPDATE site set titulo='" & titulo & "',url ='" & url & "',categoria ='" & categoria & "',estrelas ='" & estrelas & "',cliques ='" & cliques & "',descricao ='" & descricao & "' where adicionar ='" & adicionar)		conn.Closeset conn = nothingredirect "pagina.asp"%><%elseConn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dadosset conn = Server.CreateObject("ADODB.Connection")conn.open Conn_String conn.Execute("UPDATE site set titulo='" & titulo & "',url ='" & url & "',categoria ='" & categoria & "',estrelas ='" & estrelas & "',cliques ='" & cliques & "',descricao ='" & descricao & "' where adicionar ='" & adicionar)	conn.Closeset conn = nothingend ifredirect "paginas.asp"%>

e nesse a baixo ele cria um outro e não atualizado

 

<!--#include file="adovbs.inc"--><%titulo = Request.Form("titulo")url = Request.Form("url")categoria = Request.form("categoria")estrelas = Resquest.Form("estrelas")cliques = Resquest.Form("cliques")descricao = Request.Form("descricao")adicionar = Request.Form("adicionar")  Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dados objConn.Open Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open "categoria",objConn, adLockOptimistic, adCmdTable  objRS.Update  objRS("titulo") = titulo  objRS("url") = url  objRS("categoria") = categoria   objRS("estrelas") = estrelas  objRS("cliques") = cliques  objRS("descricao") = descricao  objRS("adicionar") = adicionar      objRS.Update  objRS.MoveFirst  objRS.Close Set objRS = Nothing objConn.Close Set objRS = Nothing %>

preciso de ajuda o mais rapido possivel pessoal...

 

muito obrigado ae...

[ska_ska 0]

onde está:

where adicionar ='" & adicionar)

você naum tem q fechar a aspas simples?

where adicionar ='" & adicionar &"'")

tenta tb o seguinte...

onde está:

conn.Execute("UPDATE site set titulo='" & titulo & "',url ='" & url & "',categoria ='" & categoria & "',estrelas ='" & estrelas & "',cliques ='" & cliques & "',descricao ='" & descricao & "' where adicionar ='" & adicionar)

substitui por

[CODE]sql = "UPDATE site set titulo='" & titulo & "',url ='" & url & "',categoria ='" & categoria & "',estrelas ='" & estrelas & "',cliques ='" & cliques & "',descricao ='" & descricao & "' where adicionar ='" & adicionar &"'"conn.Execute(SQL)response.write sql

vai aparecer uma string SQL na tela... se naum solucionar o problema, posta pra gente essa STRING...

 

falow ;)