<% ' ' Put this in your asp file ' Response.Write (IncludeURL("http://www.domain.com/path/file.ext?params=value")) ' Function IncludeURL(URL) 'Create an Http object, use any of the four objects Dim Http ' Set Http = CreateObject("Microsoft.XMLHTTP") ' Set Http = CreateObject("MSXML2.ServerXMLHTTP") Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") ' Set Http = CreateObject("WinHttp.WinHttpRequest") 'Send request To URL Http.Open "GET", URL, False Http.Send 'Retrieves the response entity body as a string IncludeURL = Http.ResponseText End Function ' ' Put this in your asp file ' Response.Write (LastModified()) ' Function LastModified() ' Local variables Dim loFs, lsFile, lsPath, loFile, ldLast ' Create an instance of FileSystemObject object Set loFs = CreateObject("Scripting.FileSystemObject") ' Get the logical path of the current file ' (i.e. the file in which this code runs) lsFile = Request.ServerVariables("SCRIPT_NAME") ' Get the physical path of the file lsPath = Server.MapPath(lsFile) ' Get a handle/pointer to this file Set loFile = loFs.GetFile(lsPath) ' Get the "Last Modified" property of this file ldLast = loFile.DateLastModified ' Release the objects Set loFile = Nothing Set loFs = Nothing ' Write out the date in the long date ' format e.g. "MM/DD/YY" ' vbGeneralDate 0 Display a date and/or time. If there is a date part, display it as a short date. If there is a time part, display it as a long time. If present, both parts are displayed. ' vbLongDate 1 Display a date using the long date format specified in your computer's regional settings. ' vbShortDate 2 Display a date using the short date format specified in your computer's regional settings. ' vbLongTime 3 Display a time using the time format specified in your computer's regional settings. ' vbShortTime 4 Display a time using the 24-hour format (hh:mm). LastModified = CStr(FormatDateTime(ldLast, 1) & " " & FormatDateTime(ldLast, 4)) End Function ' ' Tracker for keeping score of hits to a site ' dir = string with path for this tracker ' Function Tracker(dir) ' Define some local stuff Dim path, date, ext, file, fso, fh, counter path = "C:/inetpub/vhosts/innebandy.no/httpdocs/web-data/tracker/" date = Year(now) & "_" & Right("00" & Month(now) ,2) & "_" & Right("00" & Day(now) ,2) ext = ".tracker" file = path & dir & "/" & date & ext ' Create FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' Read counter and increment if file exists If fso.FileExists(file) = True Then Set fh = fso.OpenTextFile(file) counter = CLng(fh.ReadLine) fh.Close counter = counter + 1 Else counter = 1 End if ' Write counter Set fh = fso.OpenTextFile(file, 2, true) fh.WriteLine(counter) fh.Close ' Release objects Set fso = Nothing Set fh = Nothing Tracker = CStr(counter) End Function %> Innebandy.no - World Floorball Championships 2000

World Floorball Championship 2000


WFC 2000

News

Programme

Guestbook

Tables

Match Statistics

Team Statistics

Player Statistics

Credits

All Star Team

WFC 2000 Ranking

Accomodation

Help

Information

Links

Rules

Souvenirs

Sponsors

Tickets

Venues

Federations
Norges Bandyforbund International Floorball Federation Norges Bandyforbund - Innebandy
Back Forward Open help page! Close this window!
WFC 2000

Welcome to the official World Floorball Championships 2000 Website.

After one week of great floorball, we have our champions, and again they come from Sweden. Congratulations!!

Germany wins division B and will be playing with the elite of the elite in division A next World Championships. Russia lost against Latvia and moves down to division B play.

To roundup the championships we've added a few pages.
Credits
All Star Team
WFC 2000 ranking
Picture gallery

Play off matches:
Division A
7th place: Russia vs Latvia: 4-5,
17:00 (@666) friday, Jordal Amfi
5th place: Norway vs Czech Republic: 5-2,
20:00 (@791) friday, Jordal Amfi
Semifinal 1: Sweden vs Switzerland: 8-2,
13:30 (@520) saturday, Jordal Amfi
Semifinal 2: Finland vs Denmark: 6-1,
16:30 (@645) saturday, Jordal Amfi
Bronze Final: Switzerland vs Denmark: 4-2,
12:30 (@479) sunday, Jordal Amfi
Final: Sweden vs Finland: 5-3,
15:30 (@604) sunday, Jordal Amfi

Division B 7th place: Hungary vs Australia: 4-5,
11:30 (@437)11:00 (@416) friday, Jordalhallen
5th place: Japan vs Great Britain: 3-4,
14:00 (@541) friday, Jordalhallen
Semifinal 1: Germany vs Estonia: 3-1,
17:00 (@666) friday, Jordalhallen
Semifinal 2: Austria vs Poland: 4-3,
20:00 (@791) friday, Jordalhallen
Bronze Final: Estonia vs Poland: 3-2,
11:30 (@437) saturday, Jordalhallen
Final: Germany vs Austria: 3-2,
14:30 (@562) saturday, Jordalhallen

For explanations of the codes, please refer to the help page.

If you have pictures from the championships that you would like to share with others, don't hesitate to send them to us.
Specs: jpeg/gif format, less than 300 kbytes.

Webmaster, wednesday 10:00

If you want to link to this site, use the following html-code:
<center><a href="https://innebandy.no/wfc2000/"><img src="https://innebandy.no/wfc2000/pics/buttons/logo.gif" width=100 heigth=100 border=0 alt="Offcial World Floorball Chamionships 2000 Website"></a></center><br>
Then you'll get this logo on your page:

Offcial World Floorball Chamionships 2000 Website


Questions or comments, please contact frank.nordseth@innebandy.no.
This page was last modified <% Response.Write (LastModified()) %> - Copyright © 2000-<%= Year(now) %>