Innebandy.no - NM 2010

<% ' ' 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 2010 - Floorball

   Fredag 16. april:
   20.00 Finale G17        Sarpsborg IBK    - Sveiva Innebandy     4- 8
 
   L�rdag 17. april:
   10.00 Finale J15        Slevik IBK       - Bygd� Monolitten IL  5- 4 sd
   12.30 Finale G15        Sarpsborg IBK    - Sveiva Innebandy     4- 2
   15.00 Finale J17-19     Slevik IBK       - Tunet IBK            6- 3
   18.00 Finale G19        Sveiva Innebandy - Tunet IBK           12- 4

   S�ndag 18. april:
   11.30 Finale Kvinner    Tunet IBK        - Sveiva Innebandy     5- 3
   14.30 Finale Menn       Tunet IBK        - Gjeller�sen IF       6- 3

Billettpriser: (Dagsbillett pr. dag.)
Fredag 16/4: Voksen kr.50,-. Barn under 16 �r kr.25,-. Barn under 6 �r gratis.
L�rdag 17/4: Voksen kr.100,- Barn under 16 �r kr.50,- Barn under 6 �r gratis.
S�ndag 18/4: Voksen kr.200,- Barn under 16 �r kr.100,- Barn under 6 �r gratis.

Forh�ndskj�p av NM-billetter til s�ndagen:
Gruppekj�p av NM-billetter kan gj�res ved bestilling av minimum 10 billetter.
Pris: Barn 100 kr og Voksne 200 kr
Bestilling sendes til e-post: erik.christoffersen@echas.no spesifiser antall Barn og Voksne
Innbetaling til kontonummer: 1627 15 74995
Onsdag 14. april er siste dag for forh�ndskj�p av billetter.
Billettene m� hentes senest 1 t f�r herrefinalen, dvs. innen kl. 1330 p� s�ndagen.
Ingen billetter refunderes.

- Akkreditering for presse/media -

- MENN - KVINNER -
- G19 - G17 - G15 - J17-19 - J15 -