AYuda porfa
Publicado por Ramon (11 intervenciones) el 26/10/2006 22:38:10
Tengo el sgte codigo que em updatea la tabla .Me esta funcionando perfecto salvo el checkbox alguien podria ver el codigo y decirme q esta pasando .Me lei todo !!! Y no puedo darle solucion
<!-- 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
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"
%>
<!-- 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
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"
%>
Valora esta pregunta
0