<% dim stadiumid stadiumid = Request.QueryString("stadium_id") if stadiumid = "" then stadiumid = Request.Form("stadium_id") end if if stadiumid = "" then error = "Feil. Stadioninfo kan ikke vises" end if %> Historisk øyeblikk

Historiske øyeblikk

Tilbake

<% SetLocale(1044) 'on error resume next dim conntemp, rstemp dim indx 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 mySQL="select * from event a, team b where a.home_team_id = b.team_id and a.stadium_id = " & stadiumid & " and historicgame = 1 order by match_date" set rstemp=conntemp.execute(mySQL) if rstemp.eof then %> Ingen historiske øyeblikk funnet.Kjenner du til historiske øyeblikk på <%= stadiumname%>? Legg inn en kommentar på høyresiden, eller send oss en e-post.
<% else strtemp2 = "" indx = 0 do while not rstemp.eof if not tmpeventid = "" then tmpeventid = tmpeventid & "," end if tmpeventid = tmpeventid & rstemp("event_id") if NOT (rstemp("match_type") = "") then response.write("" & rstemp("match_type") & " ") end if if NOT (rstemp("match_date") = "") then if CInt(Day(rstemp("match_date")))= 1 and CInt (Month(rstemp("match_date"))) = 1 then response.write("" & Year(rstemp("match_date"))) else response.write("" & rstemp("match_date")) end if else response.write("Ukjent årstall") end if response.write("
") if not rstemp("attendance") = "" then response.write(rstemp("attendance") & " tilskuere " ) end if response.write("
") response.write(rstemp("team_name")) if not rstemp("away_team") = "" then response.write(" - " & rstemp("away_team")) end if if not rstemp("score_home_team")="" OR rstemp("score_away_team")= "" then response.write(" " & rstemp("score_home_team") & " - " & rstemp("score_away_team")) end if response.write("") if not trim(rstemp("comments")) = "" then response.write("
" & rstemp("comments") & "") end if if NOT (rstemp("source") = "") then response.write("
Kilde: " & rstemp("source") & " ") end if response.write("

") rstemp.movenext indx = indx + 1 response.write("
") loop end if ' rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing %> Tilbake