<% Dim rsMatch Dim strMatch, strDatum Dim intCounter, intShowAll ' sätts till 1 om alla ska visas intShowAll = Request.QueryString("ShowAll") If intShowAll = 1 Then strMatch = "SELECT `Serie`,`Hemmalag`,`Bortalag`,`Datum`,`Tid`,`Spelplats` FROM `tblSpelschema` ORDER BY `Datum`" Else strMatch = "SELECT `Serie`,`Hemmalag`,`Bortalag`,`Datum`,`Tid`,`Spelplats` FROM `tblSpelschema` WHERE Datum >= Now()" End If Set rsMatch = malmhaugRS(strMatch) If Not rsMatch.BOF Or Not rsMatch.EOF Or IsNull(rsMatch)Then ' skriv ut fältrubriker Response.Write "" For intCounter = 0 to rsMatch.Fields.Count-1 Response.Write "" Next Response.Write "" Do while not rsMatch.EOF ' skriv ut innehåll i databasen Response.Write "" For intCounter = 0 To rsMatch.Fields.Count-1 If Len(rsMatch.Fields(intCounter))=0 Or IsNull(rsMatch.Fields(intCounter)) Then Response.Write "" Else If Not rsMatch.Fields(intCounter).Name = "Datum" Then If Not rsMatch.Fields(intCounter).Name = "Tid" Then Response.Write "" End If End If If rsMatch.Fields(intCounter).Name = "Datum" Then strDatum = rsMatch(intCounter) strDatum = Replace(strDatum, "/", "-") Response.Write "" End If If rsMatch.Fields(intCounter).Name = "Tid" Then strDatum = rsMatch(intCounter) Response.Write "" End If End If Next rsMatch.MoveNext Response.Write "" Loop Else Response.Write "Inga kommande matcher finns i databasen" End If CloseDB(rsMatch) %>

Kommande matcher för alla lag i Malmhaug 2007-2008.							Visa alla matcher
Importerad från Skånes Innebandyförbund 2007-10-03. Kolla alltid den sidan för eventuella ändringar.
" & rsMatch.Fields(intCounter).Name & "
-	" & rsMatch(intCounter) & "	" & strDatum & "	" & FormatDateTime(strDatum, vbShortTime) & "