Tengo problemas con este codigo alguien que me ayude?

[El Jedi]

Amigos tengo problemas con este código estoy luchando hace doas días y no encuentro el error, ya me se de memoria el codigo.
A ver si alguien lo encuentra. Aquí les paso el codigo entero a ver si alguien lo puedo corregir y postearlo nuevamente.


sql = "select * from Tabla where Campo = '" & request.querystring("code") & "'"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "aca iria la conexion con la base de datos"
set RS = Conn.Execute(sql)

if (not RS.eof) then

Sql = "UPDATE Tabla"
Sql = Sql&" SET Campo = 0
Sql = Sql&" Campo1 = 'ACTIVO'
sql = sql&" WHERE Campo = '" & request.querystring("code") & "'"
set RS = Conn.Execute(sql)

end if

response.redirect "otrapagina.asp"
%>

Lo que quiero hacer es que cuando venga del vinculo que tiene el ID code, se chequee contra la base de datos y si esta allí que actualise el campo y lo reemplase por un 0 y que actualize a su ves otro campo que sería Campo1 y luego de eso que se redireccione a otra pagina si andubo todo bien.
Eso sería lo que quiero que haga a ver si alguien puede con esto.

Gracias anticipadas

[AlZuwaga]

cambiá toda la SQL por esta otra a ver que onda (para mi le faltaba, además de una coma fundamental para delimitar el campo1/valor1 del campo2/valor2, algunos espacios intermedios):


Sql = "UPDATE Tabla"
Sql = Sql & " SET Campo = 0, "
Sql = Sql & " Campo1 = 'ACTIVO'"
sql = sql & " WHERE Campo = '" & request.querystring("code") & "'"



aunque, para la próxima, sería una buena práctica poner el mensaje de error que te devuelve (algunas veces basta con leer el mensaje de error para poder identificarlo más facilmente)

saludos