Item cannot be found in the collection corresponding

8 svar · 449 visningar · startad av n1kke 9 aug. 2006

n1kkeMedlem sedan aug. 200634 inlägg

Frågan9 aug. 2006 14:05#1

<%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

TroxyMedlem sedan mars 20041 505 inlägg

9 aug. 2006 14:51#2

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

n1kkeMedlem sedan aug. 200634 inlägg

9 aug. 2006 14:57#3

			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

n1kkeMedlem sedan aug. 200634 inlägg

9 aug. 2006 14:58#4

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

TravoniMedlem sedan okt. 20041 556 inlägg

9 aug. 2006 15:20#5

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

n1kkeMedlem sedan aug. 200634 inlägg

9 aug. 2006 15:25#6

hur menar du? vad ska jag skriva då Travoni

@ndersMedlem sedan juni 200032 967 inlägg

9 aug. 2006 19:09#7

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

n1kkeMedlem sedan aug. 200634 inlägg

9 aug. 2006 20:44#8

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?

DenkanMedlem sedan juni 2002256 inlägg

9 aug. 2006 21:25#9

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