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.
miren este es mi codigo:
<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>