Object krävs?

följande kod

		i = 0
		sql = "select * from dnLag where lagDistrikt = '" & Request.Querystring("lagDistrikt") & "' "
		set rs = dbCom.Execute(sql)
		if not (rs.BOF and rs.EOF) then
			do while not rs.EOF
			set lagen(i) = new lagObj
			lagen(i).setData(rs.Fields("lagID").Value)
			i = i + 1
			rs.MoveNext
			loop
		else
			response.write "Inga lag/matcher hittades"
		end if

Ger detta felmeddelande Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/test/index.asp, line 30

och blocket som avses är detta:

 div = lagen(0).distrikt
   m = 0
   for i = 0 to UBound(lagen)
     [b]if lagen(i).distrikt <> div then[/b] <<--- rad 30
       call SorteraLag(m, i -1)
       div = lagen(i).distrikt
       m = i
     end if
   next
   call SorteraLag(m, i -1)
	%>

Fattar ingenting.... tar jag bort querystringen så funkar det, men det skulle betyda att alla lagen (typ 80st) presenteras på en sida och det blir lite segt.

Hrm. Det kan inte vara så att 'div' är ett reserverat ord?

set div = lagen(0).distrikt

LarsG:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: '[string: "Norra"]'
/test/index.asp, line 27

OveRRidE:
Nej div är inte ett reserverat ord

Funktionen som hämtar distrikt ser ut såhär

sql = "select * from dnLag where lagID = " & lagID & ""
set rs = dbCom.Execute(sql)
if not (rs.BOF and rs.EOF) then
 distrikt = rs.Fields("lagDistrikt").Value
 lagNamn = rs.Fields("lagNamn").Value
end if