Object krävs?

3 svar · 226 visningar · startad av CatZ 28 aug. 2002

CatZMedlem sedan jan. 20022 440 inlägg

Trådstart28 aug. 2002 23:32#1

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.

OveRRidEMedlem sedan feb. 200112 078 inlägg

29 aug. 2002 09:27#2

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

LarsGMedlem sedan dec. 200012 464 inlägg

29 aug. 2002 09:33#3

set div = lagen(0).distrikt

CatZMedlem sedan jan. 20022 440 inlägg

29 aug. 2002 14:49#4

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