Scusate
ma non riesco a risolvere questo problema
ho un db con una tabella News

News

Id(contatore)
News(memo)
data(data)
InBy(testo)


devo modificare il campo news

<%
if session("admin")="true" then
else
response.redirect("msg.asp?tempo=3000&msg1=Non puoi entrare in questa sezione senza esserti autenticato.&redirect=index.asp")
end if
%>
<%
dim idb,StrOutput
idb=request("ida")
stroutput="Errore interno."

dim strCodedb
strCodedb="***"

if idb<>"" then
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("***.mdb")
strConn=strConn & ";pwd=" & strCodedb
Conn.Open (strConn)
strSql = "SELECT * FROM News WHERE id="&idb
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql,conn ,3,3

rs(1)= request.form("testo")
rs.update
strOutput ="Memorizzazione effettuata con successo"
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
end if


response.redirect("msg.asp?tempo=2000&msg1="&strOu tput&"&redirect1=ed_de.asp")
%>


mi dà questo errore su la riga 26 quella rs(1)=

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
ADODB.Recordset (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/poseidon76/edit2.asp, line 26


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Pagina:
POST 22 bytes to /poseidon76/edit2.asp

POST Data:
testo=rasfasf&B1=Invia

Ora:
venerdì 27 agosto 2004, 19.32.19


Informazioni aggiuntive:
Supporto Microsoft



cmq query string c'è

http://localhost/edit2.asp?ida=1




aiutatemi

grazie in anticipo