HELP = ADODB.Recordset error '800a0bb9'

[UAZ]

Dove capperi sto sbagliando???
Voglio recuperare l'username dell'ultimo messaggio inserito e allora dichiaro il tutto:

<%
'Seleziono l'ultimo messaggio inserito
sql = "SELECT TOP 1 * FROM messaggi WHERE categoria = 'username' ORDER BY id_msg DESC"
set rs_last = Server.CreateObject("ADODB.Recordset")
rs_last.open sql, con
%>

richiamo il nome utente:
<%=rs_last("username")%>

e chiudo:
<%
rs.movenext
loop
%>

ERRORE:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/prova/index.asp, line 41

[maximum]

Così.

<% 
'Seleziono l'ultimo messaggio inserito 
sql = "SELECT TOP 1 * FROM messaggi WHERE categoria = 'username' ORDER BY id_msg DESC" 
set rs_last = Server.CreateObject("ADODB.Recordset") 
rs_last.open sql, con 

if not rs_last.eof then 
%> 

richiamo il nome utente: 
   <%=rs_last("username")%>

e chiudo: 
<% 
end if 
%>

[UAZ]

mhmmm non va ancora :master:
probabile che vada in conflitto qualcosa???
prima ho questo:

<%
sql = "SELECT * FROM categorie ORDER BY nome"
set rs = server.createobject("adodb.recordset")
rs.open sql, con2
do while not rs.eof

n = 0
sql = "SELECT * FROM messaggi WHERE id_categoria = " & rs("id_categoria")
set rs2 = server.createobject("ADODB.Recordset")
rs2.open sql, con2
do while not rs2.eof
n = n + 1
rs2.movenext
loop
%>

bla bla bla <%=(n)%>

<%
rs.movenext
loop
%>

[maximum]

Quest'ultimo blocco mi pare corretto,posta tutto il codice in sequenza (solo quello incriminato).

[UAZ]

Allora l'errore è:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/prova/index.asp, line 49 (la riga 49 è quella in rosso)

<%
sql = "SELECT * FROM categorie ORDER BY nome"
set rs = server.createobject("adodb.recordset")
rs.open sql, con2
do while not rs.eof

n = 0
sql = "SELECT * FROM messaggi WHERE id_categoria = " & rs("id_categoria")
set rs2 = server.createobject("ADODB.Recordset")
rs2.open sql, con2
do while not rs2.eof
n = n + 1
rs2.movenext
loop
%>
<%
'Seleziono l'ultimo messaggio inserito
sql = "SELECT TOP 1 * FROM messaggi WHERE categoria = 'username' ORDER BY id_msg DESC"
set rs_last = Server.CreateObject("ADODB.Recordset")
rs_last.open sql, con

if not rs_last.eof then
%>

bla bla bla <%=(n)%> <%=rs_last("username")%>

<%
end if
%>
<%
rs.movenext
loop
%>

[UAZ]

Vi spiego un po' meglio...
io ho una tabella categorie formata da "id_categoria", "nome"...
e una tabella messaggi formata da "id_msg", "id_categoria", "titolo", "username", "messaggio".

Ho la necessita di richiamare in una pagina l'ultimo "username" che ha inserito un messaggio. Non so più come fare

[maximum]

Ho fatto qualche modifica al codice, prova ora.

<% 
sql = "SELECT * FROM categorie ORDER BY nome" 
set rs = server.createobject("adodb.recordset") 
rs.open sql, con2 
do while not rs.eof 
	n = 0 
	sql_1 = "SELECT * FROM messaggi WHERE id_categoria = " & rs("id_categoria") 
	set rs2 = server.createobject("ADODB.Recordset") 
	rs2.open sql_1, con2 
	do while not rs2.eof 
		n = n + 1 
		rs2.movenext 
	loop 
	rs2.close
	set rs2 = nothing
	%> 
	<% 
	'Seleziono l'ultimo messaggio inserito 
	sql_3 = "SELECT TOP 1 * FROM messaggi WHERE categoria = 'username' ORDER BY id_msg DESC" 
	set rs_last = Server.CreateObject("ADODB.Recordset") 
	rs_last.open sql_3, con2 
	
	if not rs_last.eof then 
	%> 
	
	   bla bla bla <%=(n)%> <%=rs_last("username")%> 
	
	<% 
	end if 
        rs_last.close
        set rs_last = nothing
	%> 
	<% 
	rs.movenext 
loop 
rs.close
set rs = nothing
%>

[UAZ]

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/prova/index.asp, line 50

linea 50: rs_last.open sql_2, con2

[maximum]

Copia e riincolla il codice hai preso quello che poi ho modificato successivamente.

[UAZ]

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/prova/index.asp, line 50

linea 50: rs_last.open sql_3, con2