Uefor, manda imprimir la sentencia SQL, asi veremos en que no esta tomando valor
agrega las lineas en rojo, para pintar la sentencia y la pones aki para mirar que pasa
Cita: <%
on error resume next
Dim Ptr
Ptr = Request.Form("Ptr")
If Ptr = "Si" Then
Ptr=True
else
Ptr=False
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = MM_cnx_STRING
sql = "UPDATE Tabla1 SET Ptr = "&Ptr&" WHERE Id= "&Request.QueryString("Id")&""
set RS = Conn.Execute(sql)
response.write "Sentencia SQL="&SQL
response.end
Response.Write(" <table WIDTH='500'><tr><td WIDTH='500'><br><br><blockquote>Los datos se han actualizado con éxito!!! </blockquote><br><br></td></tr></table>")Conn.CloseSet Conn = Nothing%>