09. februar 2004 - 11:12Der er
11 kommentarer og 2 løsninger
fejl i kode
Hvorfor får jeg dette problem: error '80020009' Exception occurred.
/pages/user_admin.asp, line 540
-------------------------------------------
i denne kode:
<% SQL = "SELECT id, teamleader, name, website, members, description, seekmembers, logo FROM teams WHERE id = " & RS("team") set RSteam = conn.execute(SQL)
if Not RSteam.EOF Then desc = RSteam("description") Else desc = "N/A" end if
Din kode ser lidt underlig ud. Du har en "if not RSteam.EOF Then", men du bruger også RSteam uden for din if sætning. Så hvis din RSteam er helt tom fejler din kode i "if RS("id") = RSteam("teamleader") then" linjen også er det ikke nok at tilføje &"". Det burde bare have været en "Either BOF or EOF is True...." fejl.
Noget i denne retning: <% do while not RS.eof SQL = "SELECT id, teamleader, name, website, members, description, seekmembers, logo FROM teams WHERE id = " & RS("team") set RSteam = conn.execute(SQL) if Not RSteam.EOF Then desc = RSteam("description") if RS("id") = RSteam("teamleader") then teamleader = RSteam("teamleader") teamname = RSteam("name") website = RSteam("website") dim members members = RSteam("members") if desc <> "" then desc = replace(desc,"''","'") desc = replace(desc,"<br>",vbcrlf) end if SQL = "SELECT id, nick FROM members WHERE team = " & RSteam("id") set RSmembers = conn.execute(SQL) ..... gør noget med RSmembers...... ..... end if Else desc = "N/A" end if RS.MoveNext loop %>
Har også taget RS løkken med, da jeg går ud fra at du også har sådan en...
<% SQL = "SELECT id, teamleader, name, website, members, description, seekmembers, logo FROM teams WHERE id = " & RS("team") set RSteam = conn.execute(SQL)
If Not RSteam.EOF Then desc = RSteam("description") Else desc = "N/A" End If
somsagt er det fordi RSteam er tom, hvilket koden længere oppe skulle klare. Ellers skal vi til at lave "grim" kode....
SQL = "SELECT id, teamleader, name, website, members, description, seekmembers, logo FROM teams WHERE id = " & RS("team") set RSteam = conn.execute(SQL) If Not RSteam.EOF Then desc = RSteam("description") Else desc = "N/A" End If
If Not RSteam.EOF Then if RS("id") = RSteam("teamleader") then teamleader = RSteam("teamleader") teamname = RSteam("name") website = RSteam("website")
dim members members = RSteam("members")
if desc <> "" then
desc = replace(desc,"''","'") desc = replace(desc,"<br>",vbcrlf) end if
SQL = "SELECT id, nick FROM members WHERE team = " & RSteam("id") set RSmembers = conn.execute(SQL) ...... ...... (end if) end if
Dette burde også løse problemet. Så er der dobbelttjek på RSteam.eof (hvad jeg kalder grim kode). Der manglede også en "end if" efter "set RSmembers = conn.execute(SQL)" som jeg har taget med, men jeg går ud fra at du har den senere i din kode.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
