Voy a explicar primero bien q es lo q quiero q haga la pagina. Es una pagina para modificar noticias.
En la base de datos tengo tres campos: IdFecha(autonumerico) Fecha(fecha) y Noticia(texto)
Reescribo el codigo ya q lo he estado retocando:
CODIGO:
<body>
<%
Dim conexion, rs, sql, codigo
set conexion=Server.CreateObject("ADODB.Connection")
conexion.open "Provider=Microsoft.jet.oledb.4.0; Data source="&Server.MapPath("../db/db1.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM noticias ORDER BY Fecha DESC"
set rs=conexion.execute(sql)
codigo=Request.QueryString("id")
%>
<form action="" method="get" name="noticias_mod" id="noticias_mod">
<table width="100%" border="0" cellspacing="10">
<tr>
<td><select name="FechaNoticia" id="FechaNoticia" onChange="window.location=this.value">
<option>Elige una noticia</option>
<% while not rs.eof %>
<option value="_admin_n_mod.asp?id=<%=rs("IdFecha")%>"><%= rs("Fecha")%></option>
<% rs.movenext
wend %>
</select></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td>
<%
'CONCERNIENTE A LA SELECCION
Dim rs2, IdSql
set rs2=Server.CreateObject("ADODB.Recordset")
IdSql="SELECT * FROM noticias WHERE IdFecha=codigo"
set rs2=conexion.execute(IdSql)
%>
<textarea name="TextoNoticia" cols="35" rows="5" wrap="VIRTUAL" id="TextoNoticia"><%=Codigo%><%=rs2("Noticia")%></textarea></td>
</tr>
<tr>
<td> </td>
<td align="right"><input type="submit" name="Submit" value="Modificar noticia"> ¡
Y el error q me da es:
Tipo de error:
Microsoft JET Database Engine (0x80040E10)
No se han especificado valores para algunos de los parámetros requeridos.
/plantilla/admin/_admin_n_mod.asp, línea 40
Creo q el problema puede radicar en el campo autonumerioc de la base de datos. Algo asi he estado leyendo por foros.