27/10/2006, 08:22
|
| | | Fecha de Ingreso: octubre-2006
Mensajes: 17
Antigüedad: 18 años, 6 meses Puntos: 0 | |
| update y checkbox
HOla.Soy newbie en ASP.Tengo el sgte problema tengo una tabla access con un valor si\no.Tengo el form y demas.Yo hago una busqueda que me levanta los datos de esta base de datos al form, dodne ahi tenfgo un checkbox que se llama checkbox. Resulta que por otro lado en ese mismo form tengo el boton de update que me updeta todos los texbox.Pero lo que no me funciona es el del checkbox.Les paso el codigo a evr si alguien puede darme una mano
<!-- definimos el lenguaje a utilizar -->
<%@ Language="VBScript" %>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<!-- comienza el script -->
<%
'definimos la variable de conexion
Dim Conexion,Tabla
Dim lngRecordNo 'Holds the record number to be updated
lngRecordNo = CLng(Request.Form("textfield"))
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base.mdb")
'definimos la variable de carga de datos
Dim sql, cid, sqll
cid=Request.Form("textfield")
sql="UPDATE tabla1 SET "
sql=sql & "IdDoc='" & Request.Form("textfield") & "',"
sql=sql & "Revision='" & Request.Form("textfield2") & "',"
sql=sql & "Titulo='" & Request.Form("textfield3") & "',"
sql=sql & "Fecha='" & Request.Form("textfield4") & "',"
If (Request.Form("checkbox")) = True Then
sql = sql & "active='Yes'"
End If
sql=sql & "Documento='" & Request.Form("textfield6") & "'"
sql=sql & " WHERE IdDoc='" & cid & "'"
on error resume next
Conexion.Execute sql
if err<>0 then
response.write("No update permissions!")
else
response.write("Record " & cid & " was updated!")
end if
response.write Request.Form("checkbox")
response.end
Conexion.close
Response.Redirect "Menu.html"
%> |