Tengo un formulario que me recoge los datos de una base de datos:
<%
dim objrs_Prod
Set objrs_Prod = Server.CreateObject("ADODB.Recordset")
dim strSql_prod
strSql_prod ="SELECT tblproducto.idproducto, tblproducto.descripcion, tblproducto.imagen,"_
& "tblproducto.activa, tblproducto.ididioma from tblproducto where idproducto=" & Request.QueryString("idproducto")
Objrs_Prod.Open strSql_prod,ObjConn, , adLockPessimistic,adCmdText
%>
</HEAD>
<BODY>
<form method=post action="actualiza_prod.asp" >
<table width="19%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>id</td>
<td>
<input type="hidden" name="idproducto" value="<%=objrs_prod("idproducto" ;)%>"></td>
</tr>
<tr>
<td>descripcion</td>
<td>
<input type="text" name="descripcion" value="<%=objrs_prod("descripcion&quo t;)%>">
</td>
</tr>
<tr>
<td>imagen</td>
<td>
<input type="text" name="imagen" value="<%=objrs_prod("imagen")%& gt;">
</td>
</tr>
<tr>
<td>activo</td>
<td>
<input type="checkbox" name="activa" value="true" checked>
</td>
</tr>
<tr>
<td>idioma</td>
<td>
<input type="numeric" name="ididioma" value="<%=objrs_prod("ididioma") %>">
</td>
</tr>
</table>
<input type="reset" name=borrar> <input type="submit" name=enviar>
</form>
Y otra página que actualiza los cambios
<%
dim objrs_Prod, bolEncontrado
Set objrs_Prod = Server.CreateObject("ADODB.Recordset")
Objrs_Prod.Open "tblproducto", ObjConn, , adLockPessimistic, adCmdTable
objrs_Prod("descripcion") = Request.Form("descripcion")
objrs_Prod("imagen") = Request.Form("imagen")
objrs_Prod("activa") = Request.Form("activa")
objrs_Prod("ididioma") = Request.Form("ididioma")
objrs_Prod.update
objrs_Prod.close
Set Objrs_Prod = nothing
ObjConn.close
Set Objconn = nothing 4DK710nkc
%>
pero me da fallos con el campo "activa"