Erro Na Atualização

[Guest Eloisa]

Boa noite,

Estou fazendo uma atualização no Banco de dados e ela só está fazendo a atualizacao quando eu não uso o Where. Se eu não usar o where minha tabela não é atualizada.

Eis o meu código:

<%

Option Explicit

Response.Expires = 0

Dim objConn, strQuery, sql_query, RsQuery,sql

Dim nome, cod,localizacao,informacao, construcao, terreno, preço, id, ObjRs

cod = Request.Form("cod")

nome = Request.Form("nome")

localizacao = Request.Form("localizacao")

informacao = Request.Form("informacao")

terreno = Request.Form("terreno")

construcao = Request.Form("construcao")

preço = Request.Form("preço")

id = Request.Form("id")

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & Server.MapPath("dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "UPDATE fotos SET cod = '"&cod&"', nome = '"&nome&"', localizacao='"&localizacao&"', informacao='"&informacao&"', terreno='"&terreno&"', construcao='"&construcao&"', preço='"&preço&"' WHERE nome ="&nome

On error Resume Next

Set ObjRs = objConn.Execute(strQuery)

objConn.close

Set objRs = Nothing

Set objConn = Nothing

if err = 0 Then

response.redirect "sucesso.asp"

end if

%>

O que eu posso estar fazendo de errado?

Desde já agradeço.

Eloisa Dias

[JCMPJ]

Conserta isso:

WHERE nome = '" & nome & "'"

Tem que ter as aspas simples.

Comente a linha -- On error Resume Next -- para que mostre o erro caso ocorra um.