<% sitelang= Session("sitelang") SetLocale(1044) %> <% dim max dim indx max = request.querystring("max") if max = "" then max = 100 end if indx =0 'on error resume next accessdb=server.mappath("../db/Stadiums.mdb") strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" strconn=strconn & accessDB & ";" set conntemp=server.createobject("adodb.connection") conntemp.open strconn ' on error resume next mySQL="select count(*) as tot from stadium_visits" set rstemp=conntemp.execute(mySQL) totalvisits = rstemp("tot") mySQL="select a.stadium_name, a.stadium_id, Capacity_total, Capacity_seats, capacity_chairs, Capacity_bench, community, status from stadium a, stadium_status b where a.stadium_id = b.stadium_id and country = 'Norge' " ' mySQL="select stadium_name, stadium_id, Capacity_total, community, status from stadium where country = 'Norge' " if request.querystring("league")="es" then mysql = mysql & " and eliteserie_now " end if if request.querystring("league")="1d" then mysql = mysql & " and firstdiv_now = true " end if if request.querystring("league")="2d" then mysql = mysql & " and seconddiv_now = true " end if if request.querystring("league")="ts" then mysql = mysql & " and toppserie_now = true " end if if request.querystring("league")="1w" then mysql = mysql & " and firstdivw_now = true " end if mysql = mysql & " order by Capacity_total desc" 'response.write(mySQL) set rstemp=conntemp.execute(mySQL) %> Tilskuerkapasitet
Tilskuerkapasitet på norske baner. Finner du feil? Kontakt oss! <% if rstemp.eof then stadiumid = "" method = "insert" response.write("
Under utarbeidelse") else response.write("") do while not rstemp.eof and indx < max if not (rstemp("Capacity_total")="") then response.write("") if not rstemp("Capacity_seats") = "" then response.write("") else response.write("") end if if rstemp("status") = 1 then response.write("") elseif rstemp("status") = 2 then response.write("") end if response.write("") end if indx = indx + 1 rstemp.movenext loop end if %>
" & rstemp("Capacity_total") & " (" & rstemp("Capacity_seats") & " seter )" & rstemp("stadium_name") & "" & rstemp("stadium_name") & "" & rstemp("community") & "
<% if max < 10000 and request.querystring("league")="" then %>
<% =dict.Item(124) %>. <%=dict.Item(21)%>. <% end if %> <% rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing %>