Innebandy.no - NM 2007

<% ' ' 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 - NM 2007 - Floorball

Årets NM-finaler spilles i Skedsmohallen i Lillestrøm helgen
21.-22.april med Fjerdingby IBK som teknisk arrangør.

NM er en fest FOR ALLE
Skedsmohallen tar 2500 tilskuere og drømmen er at alle som har et hjerte som banker for innebandy tar en tur denne dagen for å være med på å lage innebandyfest.
Fjerdingby har tatt mål av seg å lage det beste NM-arrangementet som noen gang har vært presentert, men uten mange livlige publikummer blir det en tam affære. Bli med, støtt sporten, ta turen til Skedsmohallen den 21. og 22. april, vi trenger akkurat deg tilstede.

Billettpriser
Dagsbillett pr. dag.
Voksen kr. 100,-
Barn under 16 år kr. 50,-

Billetten kjøpes i Skedsmohallen den aktuelle dagen. Når man går inn i selv hallområdet vil billetten bli stemplet. Sørg samtidig å få stempel på hånda for å kunne gå ut og inn av hallen. Både stempel og stemplet billett må kunne forevises ved innpassering til hallområdet.

Hoteller
Det jobbes i disse dager med å skaffe til vei best mulige overnattingspriser til de som ønsker å ha et slikt tilbud under NM-helgen. Følg med på denne siden for kommende informasjon.

Stander, underholdning og SMS-avstemning
I tillegg til mye god innebandy vil du i Skedsmohallen få se diverse salgstander fra leverandører med nytt utstyr, spillstasjon og speedshooting.

Det jobbes også med å skape en helt spesiell ramme rundt innmarsj, pauseunderholdning og premieutdelinger. Vær med og opplev en innbandyfest som ikke har spart på kruttet. Vi lover heftig lys, røyk og pyro.

I år er det DU som publikummer skal bestemme hvem som er banens beste spiller. Benytt mobilen, følg instruksen i programbladet og kår den du mener er best i hver NM-finale.