Checkbox validador

[tammander]

Código:

<%

   valor = CInt(len(Request.Form("checkbox")) > 0) * -1

      	  
     set con = Server.CreateObject("ADODB.Connection")
     set rs = Server.CreateObject("ADODB.RecordSet")

      con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mes/galerias/galerias.mdb")
      SQL = "UPDATE pizarra SET valor = "  & valor & " where valor like '%"&valor&"%';"
      
     on error resume next
     con.execute(SQL)
     if err.number <> 0 then
           response.write("Error: " & err.description)
           response.flush()
     else
           con.close()
           set con = nothing
           on error goto 0
           Response.Redirect("modificadormural.asp")
     end if

%>

Un saludo