hola tengo un duda de como puedo yo activar un check en una base de datos hecha en access mediante un sentencia sql en asp.
IDCDKey CDKey Active
01 A1 √ esta palomita indica cuando un campo ya ha cido activado
02 A2 y este campo en blanco indica cuando no esta activado,
lo que quiero es activar el campo cuando un usuario haya insertado un registro.
este es el codigo que yo estoy haciendo
<html>
<head><title>AxS Tracker</title></head>
<body background="imagenes/fondo.jpg" bgcolor="#000099">
<font color="#99ccff">
<%
Dim CDKey, Usuario, Password, Password2, Nombre, oConn, Sql2, Sql3, Sql, Active, RS
CDKey = Trim(Session("CDKey")) 'aqui se utiliza la variable
Usuario= request.form("Usuario")
CDKey= request.form("CDKey")
Password= request.form("Password")
Password2= request.form("Password2")
Nombre= request.form("Nombre")
CDKey = Replace(Session("CDKey"),"'","''")
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("CustomersData/DataBase/AxSRegistrar.mdb")
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open Sql, oConn
Sql= "Select Active From CDKeys"
If RS.Fields("Active") = "False" then
'sentencia sql para insertar los datos
If request.form("CDKey")= Session("CDKey") and request.form("Password") = request.form("Password2") then
Sql2= "Insert Into Usuarios values ('"&Usuario&"','"&CDKey&"','"&Password&"' )"
Sql3= "Insert Into Privilegios (CDKey,Usuario,Nombre) values ('"&CDKey&"','"&Usuario&"','"&Nombre&"')"
oConn.Execute(Sql2)
oConn.Execute(Sql3)
RS.Fields("Active") = "True"
response.write("<center> <h3> Se ha guardado el registro <br> <a href='Acceso2.asp'> regresar </a> </h3> </center>")
Else
Response.redirect "Registro3.asp"
End if
Else
if RS.Fields("Active") = "True" then
response.redirect("Acceso2.asp")
End If
End If
oConn.Close
Set oConn=Nothing
%>
</font>
</body>
</html>