Item cannot be found in the collection corresponding

<%Set rs = Conn.execute(sql)
			sql = "select * from panda where id=" & Request.QueryString("id")
			Set rs = Conn.Execute("SELECT COUNT(gbId) As newposts FROM panda_gb WHERE gbRead=0 AND gbId=" &Session("userid"))
			Dim new_gb
				new_gb = Rs("newposts")
			rs.Close
			response.write "Inloggad som "&Rs("admin")&" <b>" & Session("user") & "</b><br><br>-<a href='?page=profile&id=" & Session("userid") & "'> Presentation</a><br>- Meddelande (0)<br>- <a href='?page=profile&id=" & Session("userid") & "&user=gb'>Gästbok</a> (" & new_gb & ")<br>- Blogg<br>- Inställningar<br>- Klotterplank<br><br><b><a href=?action=logout>Logga ut</a></b>"
			
				
End if%>

admin kolumen finns i panda databasen

vad är fel?

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/preview/hoger.asp, line 38

Du stänger ju ditt recordset med rs.Close.
Sedan har du dessutom döpt två recordset till samma sak, nämligen rs.

			Set rs = Conn.Execute("SELECT COUNT(gbId) As newposts FROM panda_gb WHERE gbRead=0 AND gbId=" &Session("userid"))
			Dim new_gb
				new_gb = Rs("newposts")
			rs.Close

det är den som stängs

får exakt samma felmeddelande när jag tar bort den

Du kör execute före du har fyllt variabeln, "sql"

hur menar du? vad ska jag skriva då Travoni

Du kan inte heller kalla båda recordseten samma sak.
Det andra recordsetet skriver över det första. Byt namn på det inre.

jag kom nog på en egen lösning

men vill fortfarande veta hur man öppnar 2 databaser i samma kod

någon som kan göra en bas?

goddammit..

Dim sql1, sql2, rs1, rs2

' Hämta inlägg från användarens gästbok
sql1 = "SELECT * FROM panda_gb WHERE gbId=" &Request.Querystring("id")
Set rs1 = Conn.Execute(sql1)

' Hämta användarinfo från gästbokens ägare
sql2 = "SELECT * FROM panda WHERE id=" &Request.Querystring("id")
Set rs2 = Conn.Execute(sql2)

' Använd dina skapade recordsets
Response.Write("<h1>Nedan listas " & rs2("UserName") & "'s gästboksinlägg:</h1>")

Do Until rs1.EOF
   Response.Write("<p>" & rs1("Message") & "</p>")
   rs1.MoveNext
Loop

' Stäng objekten
rs1.Close
rs2.Close