alterar registro no BD

[Reginaldo 0]

[/ASP][/ASP]tenho a seguinte lógica:

 

ASP [/tr][tr]<%@ Language=VBScript%>

 

<!-- #include file="Adovbs.inc"-->

 

<%

Dim Bdvisitantes

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

Bdvisitantes.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=adm/dados/usuarios.mdb;"

%>

 

<%

dim objerro, Procura, id

 

id = Request.QueryString("id")

procura="SELECT * FROM visitantes WHERE id = "&id&""

 

nome = Request("nome")

empresa = Request("empresa")

fone = Request("fone")

fax = Request("fax")

email = Request("email")

uf = Request("uf")

cnpj = Request("cnpj")

usuario = Request("usuario")

senha = Request("senha")

nivel = Request("nivel")

 

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

SQL = "UPDATE visitantes SET nome='"&nome&"',empresa='"&empresa&"',fone='"&fone&"',fax='"&fax&"',email='"&email&"',uf='"&uf&"',cnpj='"&cnpj&"',usuario='"&login&"',senha='"&senha&"',nivel='"&nivel&"' WHERE id='"&id&"'"

Recvisitantes.Open Bdvisitantes

Recvisitantes.execute (procura)

 

Response.Redirect("sucesso.asp")

%>

[/tr]

 

e recebo o seguinte erro:

 

Microsoft JET Database Engine error '80040e14'

 

Syntax error (missing operator) in query expression 'id ='.

 

/adm/altera2.asp, line 31

 

a linha 31 se refere á:

ASP [/tr][tr]Recvisitantes.execute (procura)[/tr]

 

se alguem puder ajudar com esse misterio por favor eu agradeço..

[Talassi 0]

Olá tente verificar o que eu alteri e veja se funciona:<%@ Language=VBScript%><!-- #include file="Adovbs.inc"--><%Dim Bdvisitantes,RecvisitantesSet Bdvisitantes= Server.CreateObject("ADODB.Connection")Bdvisitantes.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=adm/dados/usuarios.mdb;"Set Recvisitantes = Server.CreateObject("ADODB.RecordSet")%><%dim objerro, Procura, idid = Request.QueryString("id")procura="SELECT * FROM visitantes WHERE id=" & idSQL = "UPDATE visitantes SET nome='"&nome&"',empresa='"&empresa&"',fone='"&fone&"',fax='"&fax&"',email='"&email&"',uf='"&uf&"',cnpj='"&cnpj&"',usuario='"&login&"',senha='"&senha&"',nivel='"&nivel&"' WHERE id='"&id&"'"set Recvisitantes = Bdvisitantes.execute (procura)If Recvisitantes.Eof = False then nome = Request("nome") empresa = Request("empresa") fone = Request("fone") fax = Request("fax") email = Request("email") uf = Request("uf") cnpj = Request("cnpj") usuario = Request("usuario") senha = Request("senha") nivel = Request("nivel")End IfResponse.Redirect("sucesso.asp") %>