primera pagina
<HTML>
<HEAD>
<TITLE>Actualizar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Actualizar un registro</h1>
<br>
<%
Dim Conn, RS
Set Conn=Server.CreateObject("adodb.connection")
Set RS=Server.CreateObject("adodb.recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("videoclub.mdb")
%>
<FORM METHOD="POST" ACTION="actualizar2.asp">
Nombre<br>
<%
'Creamos la sentencia SQL y la ejecutamos
sSQL="Select codigo From peliculas Order By codigo"
set RS = Conn.Execute(sSQL)
%>
<select name="codigo">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("codigo")%>
<%RS.movenext
Loop
%>
</select>
<br>
Disponibilidad<br>
<INPUT TYPE="TEXT" NAME="estado"><br>
<INPUT TYPE="SUBMIT" value="Arrendar">
</FORM>
</div>
</BODY>
</HTML>
segunda pagina
<TITLE>Actualizar2.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
codigo=Request.Form("codigo")
estado= Request.Form("estado")
Dim Conn, RS
Set Conn=Server.CreateObject("adodb.connection")
Set RS=Server.CreateObject("adodb.recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("videoclub.mdb")
'Ahora creamos la sentencia SQL
sSQL="Update peliculas Set estado='" & estado & "' Where codigo='" & codigo & "'"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
<h1><div align="center">Registro Actualizado</div></h1>
<div align="center"><a href="actualizar2.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>
el problema es el siguiente:
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.
/video/actualizar2.asp, línea 19