Några ideér hur jag sak lösa detta?

4 svar · 326 visningar · startad av cyeclone 29 juli 2005

cyecloneMedlem sedan dec. 2004143 inlägg

Trådstart29 juli 2005 12:31#1

Hejsan!
Jag sitter och håller på med en cup hemsida, nu har jag kommit till schemat. Schemat kommer att se ut så här: http://www.bjerkenius.se/cup/bilder/schema8.gif
Jag skulle behöva lite hjälp med att lista ut alla lagen som ska vara med. Tänkte mig något sånt här:

    i=0
	Do Until RecSet.EOF 
	
	i=i+1
	
	team+i=RecSet("irckanal")
	teampoints+i=RecSet("points1")
	
	RecSet.MoveNext
	Loop
	RecSet.Close

Sedan bara skriva ut de oilka variablerna i rutorna..
Någon som har något bättre förslag, eller har lust att hjälpa mig så att allt blir rätt? Får just nu felmeddelandet:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'team'

Mvh,
Rickard

GuffaMedlem sedan juni 2004533 inlägg

29 juli 2005 12:50#2

Jag tror att du är ute efter en array:

Dim team(41) '42 poster
Dim teampoints(41)

i=0
Do Until RecSet.EOF 
	
	team(i)=RecSet("irckanal")
	teampoints(i)=RecSet("points1")

	i=i+1
	
	RecSet.MoveNext
Loop
RecSet.Close

cyecloneMedlem sedan dec. 2004143 inlägg

29 juli 2005 12:58#3

Jo det kan ha varit det jag är ute efter
Men din kod fungerar inte, nu kommer det inget felmeddelande men det visas heller ingen information. Det skrivs inte ut nått, har koden <%Response.Write team1 %>. PS ändrade i=0 TILL i=1.

HELA KODEN:

Dim team(7) '8 poster
Dim teampoints(7)

i=1
Do Until RecSet.EOF 
	
	team(i)=RecSet("irckanal")
	teampoints(i)=RecSet("points1")

	i=i+1
	
	RecSet.MoveNext
Loop
RecSet.Close

Antar att jag gjorde rätt med dim team(7) där?

Någon som vet vad felet är nu?

flexishMedlem sedan jan. 200548 inlägg

29 juli 2005 13:17#4

När du skriver ut en specifik array skall numret vara inom parentes

<%= team(1) %>

GuffaMedlem sedan juni 2004533 inlägg

29 juli 2005 17:08#5

cyeclone skrev:

ändrade i=0 TILL i=1.

Ändra tillbaka. Index för en array börjar alltid på noll i VBScript. Dina åtta poster är alltså numrerade ifrån noll till sju.