Welcome to The 747 Bands home page. From performing as a duo up to a 6 peice ensemble 747 can create an unparalleled atmosphere and quality to enhance your next wedding, party or function. Read about us more in the Bio. So "GET ON BOARD" and "TAKE OFF" with THE 747 BAND!
tel: (02) 9586 0007 fx: (02) 9586 0007 mob: 0418 99 71 72 email: enquiries@747music.com
	2010 Special Offer! $100 off all Duos and Trio’s & $200 Off all 4 and 5 Piece Band Performances booked before June 2010.
		<% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count 'Create a File System Object variable Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Initialise a File Object with the path and name of text file to open Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) 'Open the visitor counter text file Set tsObject = filObject.OpenAsTextStream 'Read in the visitor number from the visitor counter file lngVisitorNumber = CLng(tsObject.ReadAll) 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Write the new visitor number to the text file tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'Display the hit count as text 'Response.Write(lngVisitorNumber) Next %>