% ' ' 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 %>
|
Accomodation offers for spectators: Quality Hotel Sarpsborg Category: 1.class Adress: Bjørnstadveien 20, PB 173, 1713 Grålum Phone: +47 69 10 15 00 Fax: +47 69 10 15 01 Contact person: Marit Bjørndal Description: 15 Minutes walking dist. from Sparta Amfi Big and bright new conference hotel 210 rooms with TV, minibar and hairdryer Price: Nok 325/pers. double room incl. breakf. Nok 550/pers. single room incl. breakf. Nok 275/pers. triple room incl. breakf. Nok 250/pers. 4-bed room incl. breakf. Meals: Lunch: Nok 150/pers. incl. coffee. Dinner: Nok 200/pers. Other: Pools, sauna, solarium, fitness center. Restaurant, bar, library and saloons. Fredrikstad Motel & Camping Category: Simple standard. Adress: Torsnesveien 16, 1630 gamle Fredrikstad Phone: +47 69 32 05 32 Fax: +47 69 32 66 66 Contact person: Eivind Enger Description: Situated in the old town of Fredrikstad. 20 minutes walking distance from the centre of Fredrikstad with a short ferry-trip. 20 minutes bus-trip needed to get to Sarpsborg. Price: Nok 270/pers. double room incl. breakf. Nok 400/pers. single room incl. breakf. Nok 215/pers. in a 3-bed room incl. breakfast. Meals: Lunch and dinner will/can not be served. Other: Showers and toilets are in the hall. Cottages available at 250 Nok/2-pers., 350 Nok/3-4 pers. All have a simple standard with showers and toilets outside. Cooking possibilities, fridge and wash in each cottage. Drammen First Hotel Ambassadeur Category: 1.class Adresses: Strømsø Torg 7, 3044 Drammen Web: www.firsthotels.com E-mail: mette.dramdal@firsthotels.no Phone: +47 31 01 21 00 Fax: +47 31 01 21 11 Contact person: Mette Dramdal Description: 5 minutes walking distance to Drammenshallen Situated in the centre of Drammen. 230 rooms, all with cable TV and minibar. Price: Nok 670/pers. in a double room incl. breakfast,lunch and two-courses dinner Nok 840/pers. in a single room incl. breakfast, lunch and two-courses dinner Nok 620/pers. in a triple room incl. breakfast, lunch and two-courses dinner Nok 500/pers. in a triple room suite incl. breakfast. Meals: Lunch and dinner incl. in the lodging price. Other: No extra fee for meeting rooms. Swimming pool 500 m from the hotel. All guests get 20% off on the National Railway when staying at this hotel. Oslo Scandic Hotel Sjølyst Category: High class. Adress: Sjølyst Plass 5, 0212 Oslo Web: www.scandic-hotels.com Phone: +47 23 15 50 00 Fax: +47 23 15 50 01 Contact person: Gro Drage Description: Located just outside the centrum of the city, with 2 kilometres walking-distance to town. Price: Nok 330/pers. double room incl. breakfast buffet. Nok 485/pers. single room incl. breakfast buffet. Meals: Lunch and dinner also available just across the street. Other: TV in all rooms. Laundry service, safe, fitness-center and bar. 150 metres to the Railway-station where the trains for the international airport Gardermoen leave every 10 minutes or so. Rainbow Hotel Spectrum Category: High class. Adress: Brugt. 7, 0105 Oslo Phone: +47 22 17 60 30 Fax: +47 22 17 60 80 Contact person: Ulrika Hardick, ref.nr. 1088920 Description: Located right in the centrum of the city, with everything within walking distance. To get to Jordal Amfi: take the subway 4 minutes. The subway (T-bane) leaves about every 3-4 minutes to Ensjø Station (Jordal). Price: Nok 780/double room incl. breakfast at Thursday 18th and Sunday 21st. Nok 590/double room incl. breakfast at Friday 19th - Saturday 20th. Other: When you call to book/reserve a room, give them the reference number above: 1088920. Please notice that there aren’t any singlerooms available, just doublerooms. Bogstad Camping: Category: OK standard. Adress: Ankervn. 117, 0757 Oslo Web: www.bogstadcamping.no E-mail: mail@bogstadcamping.no Phone: +47 22 51 08 00 Fax: +47 22 51 08 50 Contact person: Hamid Description: Situated in the western part of Oslo with very beautiful surroundings. Bus transportation directly to the centrum of Oslo. Price: Cottages available from 500-800 Nok/4-pers. and 900 Nok/6 pers. Different standard for each of the three categories, dependent on the price. Shower, wc, kitchen and TV in the highest category. Norwegian host clubs: As an service to foreign visiting clubs, we will offer you the possibility to get in contact with norwegian host clubs. The host clubs will be able to offer you cheap accomodation in schools and private homes. The host clubs will have training opportunities and arrange friendly matches for you. For further information, contact Anne Wike in The Norwegian Bandy Federation. Questions or comments, please contact frank.nordseth@innebandy.no. This page was last modified <% Response.Write (LastModified()) %> - Copyright © 2000-<%= Year(now) %> |