Casi lo tengo ya... lo que pasa es que solo me actualiza los datos en el caso de desmarcar el checkbox, si lo marco no me manda el valor True a la base de datos
Una última mano please
Código:
<%
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(" <table WIDTH='500'><tr><td WIDTH='500'><br><br><blockquote>Los datos se han actualizado con éxito!!! </blockquote><br><br></td></tr></table>")
Conn.Close
Set Conn = Nothing
%>