<% sitelang= Session("sitelang") SetLocale(1044) %> <% orderbyfield = Request.querystring("orderbyfield") if orderbyfield = "" then orderbyfield = "attendance desc" end if %> <% =dict.Item(134) %>
<% if orderbyfield = "attendance desc, stadium_name" then %> <% =dict.Item(132) %> <%else %> <% =dict.Item(135) %> <%end if %> <% accessdb=server.mappath("../db/Stadiums.mdb") strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" strconn=strconn & accessDB & ";" colorset = split("#FFFFFF,#F5EB94",",") numcolors = ubound(colorset)+1 'on error resume next set conntemp=server.createobject("adodb.connection") conntemp.open strconn mySQL="select distinct attendance, status, stadium_name, source, match_date, match_type, team_name, away_team, f.stadium_id from event b, stadium f, record_attendance g, home_team h, team te where h.stadium_id=f.stadium_id and b.home_team_id = te.team_id and b.stadium_id=f.stadium_id and f.stadium_id=g.stadium_id and country='Norge' " if orderbyfield = "attendance desc, stadium_name" then mysql = mysql & " order by stadium_name, attendance desc" else mysql = mysql & " order by attendance desc" end if ' mySQL="select distinct attendance, b.event_id as evid,team_name, away_team, match_date, match_type, stadium_name, f.status as stadiumstatus, f.stadium_id from team d, event b, stadium f, record_attendance g where b.stadium_id=g.stadium_id and g.stadium_id=f.stadium_id and historicgame=1 and d.home_team_id = team_id and d.stadium_id=g.stadium_id and country='Norge' " ' mySQL="select distinct attendance, b.event_id as evid,team_name, away_team, match_date, match_type from team d, event b, record_attendance c, stadium f where b.home_team_id = d.team_id and b.stadium_id=c.stadium_id and b.stadium_id=f.stadium_id and team_recatt = true order by " & orderbyfield dim stadid() redim preserve stadid(0) stadindx = 0 newstad = true set rstemp=conntemp.execute(mySQL) if rstemp.eof then else do while not rstemp.eof for counter = 0 to ubound(stadid) if CSTr(stadid(counter))=CStr(rstemp("stadium_id")) then newstad = false exit for end if next if newstad = true then response.write("") if rstemp("status") = 1 then response.write("") else response.write("") end if response.write("") redim preserve stadid(stadindx) stadid(stadindx) = rstemp("stadium_id") stadindx = stadindx + 1 end if newstad = true rstemp.movenext loop end if %>
<% =dict.Item(127) %> <% =dict.Item(36) %> <% =dict.Item(130) %>
" & rstemp("attendance") & "" & rstemp("stadium_name") & "" & rstemp("stadium_name")& "" & rstemp("team_name") & " ") if not rstemp("away_team") = "" then response.write(" - " & rstemp("away_team") & " (") end if if not (rstemp("match_date") = "" or rstemp("match_type") = "" )then if not rstemp("match_date") = "" then dt = CStr(rstemp("match_date") ) else dt = "" end if if CInt(Day(dt))= 1 and CInt (Month(dt)) = 1 then response.write(Year(dt)) else response.write(dt) end if end if response.write(" " & rstemp("match_type") & "). ") if not rstemp("source") = "" then response.write("Kilde:" & rstemp("source") & "") end if response.write("
<% if orderbyfield = "attendance desc, stadium_name" then %> <% =dict.Item(132) %> <%else %> <% =dict.Item(135) %> <%end if %>