Just nu är det <%= Application("raknareJustnu") %> besökare på sidan

<% Dim rsMatch Dim strMatch, strDatum Dim intCounter ' visa matcher kommande veckan Dim Datum1, Datum2 Datum1 = Now Datum2 = DateAdd("d", "8", Datum1) ' veckans matcher strMatch = "SELECT `Serie`,`Hemmalag`,`Bortalag`,`Datum`,`Tid`,`Spelplats` FROM `tblSpelschema` WHERE `Datum` > Now() AND `Datum` < '" & Datum2 & "'" Set rsMatch = malmhaugRS(strMatch) If Not rsMatch.BOF And Not rsMatch.EOF And Not IsNull(rsMatch) Then Do while not rsMatch.EOF ' skriv ut innehåll i databasen 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 Response.Write "" rsMatch.MoveNext Loop Else Response.Write "" End If CloseDB(rsMatch) %>

Matcher denna vecka:

-

" & rsMatch(intCounter) & "

" & strDatum & "

" & FormatDateTime(strDatum, vbShortTime) & "

Inga matcher denna vecka.

Spelschema