28/10/2006, 09:57
|
| | | Fecha de Ingreso: octubre-2006
Mensajes: 17
Antigüedad: 18 años, 6 meses Puntos: 0 | |
| Hola Orhasro Antes que nada gracias or tomarte tu tiempo en ayudarme. Mira puse esta linea
response.write Request.Form("checkbox")
response.end
me devuelve un 1 si el checkbox esta tildado y si esta destiltado no me devuelve nada.
Como obtuve un 1 puse lo sgte :
If (Request.Form("checkbox")) = "1" Then
sql = sql & "active=1"
End If
Y tampoco me esta funcionando.Despues escribi este codigo que te adjunto aqui abajo el cual me devuelve el valor del checkbox a mo for el cual si funciona
<%
If Tabla.Fields("Vigente") = TRUE then
%>
<input type="checkbox" name="checkbox" value="1" CHECKED>
<%
ELSE
%>
<INPUT TYPE="checkbox" NAME="checkbox" value="1">
<%
end IF
%>
Bueno la verdad es que ya me reeee marie porque no entiendo porque no me updetea la base de datos access donde el valor el Si/No.
Vuelvo a pegar mi codigo actual a ver si pueden identificar el error:
<!-- 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")) = "1" Then
sql = sql & "active=1"
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"
%> |