Permalink
Cannot retrieve contributors at this time
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
164 lines (119 sloc)
6.01 KB
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html><head><meta http-equiv="Content-Type"content="text/html; charset=iso-8859-1"><meta name="description"content="SCHIPHOL.NET is a platform linking companies based on Amsterdam Airport SCHIPHOL.This platform or campus network is provided by Schiphol Telematics for member companies.Schiphol Telematics provides all sort of data- and tele-com services at Schiphol Airport."><meta name="keywords"content="Schiphol Airport, Schiphol, airport, airline, Dutch airports"><meta name="GENERATOR" content="Microsoft FrontPage Express 2.0"><title>Welcome to SCHIPHOL.NET</title></head><body background="bg.gif" bgcolor="#101073" text="#FFFFFF"link="#FFFF00"><script language="JavaScript">function MM_swapImage() { //v1.0 var i,theObj,j=0,swapArray=new Array,oldArray=document.MM_swapImgData; for (i=0; i < (MM_swapImage.arguments.length-2); i+=3) { theObj = eval(MM_swapImage.arguments[(navigator.appName == 'Netscape')?i:i+1]) if (theObj != null) { swapArray[j++] = theObj; swapArray[j++] = (oldArray==null || oldArray[j-1]!=theObj)?theObj.src:oldArray[j]; theObj.src = MM_swapImage.arguments[i+2]; } } document.MM_swapImgData = swapArray; //used for restore}</script><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" width="111"height="100%"> <tr> <td align="right" valign="top" width="111" height="24%"><a href="about.htm" target="BODY"> <img src="netgr.gif" border="0" width="58" height="70" name="NETGR" alt="Over het SCHIPHOL.NET"></a></td> </tr> <tr> <td valign="top" width="111" height="14%"><a href="jobs.htm" target="BODY" onmouseover="MM_swapImage('document.SITES','document.SITES','airportjobs2.gif');MM_swapImage('document.NETGR','document.NETGR','sitesgr.gif')" onmouseout="MM_swapImage('document.SITES','document.SITES','airportjobs.gif');MM_swapImage('document.NETGR','document.NETGR','netgr.gif')"><img src="airportjobs.gif" border="0" width="111" height="36" name="SITES" alt="SPL Jobs"></a></td> </tr> <tr> <td valign="top" width="111" height="14%"><a href="news.htm" target="BODY" onmouseover="MM_swapImage('document.NEWS','document.NEWS','news2.gif');MM_swapImage('document.NETGR','document.NETGR','newsgr.gif')" onmouseout="MM_swapImage('document.NEWS','document.NEWS','news.gif');MM_swapImage('document.NETGR','document.NETGR','netgr.gif')"><img src="news.gif" border="0" width="111" height="36" name="NEWS" alt="SCHIPHOL NEWS (members only)"></a></td> </tr> <tr> <td valign="top" width="111" height="14%"><a href="guideframe.htm" target="BODY" onmouseover="MM_swapImage('document.GUIDE','document.GUIDE','guide2.gif');MM_swapImage('document.NETGR','document.NETGR','guidegr.gif')" onmouseout="MM_swapImage('document.GUIDE','document.GUIDE','guide.gif');MM_swapImage('document.NETGR','document.NETGR','netgr.gif')"><img src="guide.gif" border="0" width="111" height="36" name="GUIDE" alt="SCHIPHOL GUIDE (members only)"></a></td> </tr> <tr> <td valign="top" width="111" height="14%"><a href="aas.htm" target="BODY" onmouseover="MM_swapImage('document.AAS','document.AAS','aas2.gif');MM_swapImage('document.NETGR','document.NETGR','aasgr.gif')" onmouseout="MM_swapImage('document.AAS','document.AAS','aas.gif');MM_swapImage('document.NETGR','document.NETGR','netgr.gif')"><img src="aas.gif" alt="Amsterdam Airport Schiphol" border="0" width="111" height="36" name="AAS"></a></td> </tr> <tr> <td valign="top" width="111" height="14%"><a href="http://www.l0pht.com" target="ST" onmouseover="MM_swapImage('document.ST','document.ST','st2.gif');MM_swapImage('document.NETGR','document.NETGR','stgr.gif')" onmouseout="MM_swapImage('document.ST','document.ST','st.gif');MM_swapImage('document.NETGR','document.NETGR','netgr.gif')"><img src="st.gif" alt="Schiphol Telematics: www.st.nl" border="0" width="111" height="36" name="ST"></a></td> </tr> <tr> <td valign="top" width="111" height="6%"> </td> </tr> <td valign="top" width="111" height="14%"> <img src="advert_a1.gif" alt="hier uw logo?" border="0" width="70" height="70" border="1"> </td></tr></table></center></div><!-- scrolling message in status field --><script language="VBScript"> Dim ScrollTextCall StartScroll' ----------------- End Main ------------------------ Sub StartScroll' We populate the ScrollText variable with the string for the statusbar Marquee.' and then set the setTimeout routine to call the ScrollStatus subroutine Dim R Dim Cmd ScrollText = Space(50) + "Welcome to your Schiphol community pages.." + Space(20) ScrollText = ScrollText + "This site is provided for Schiphol based companies.." ScrollText = ScrollText + Space(10) + "These companies can place their own information on this site" ScrollText = ScrollText + Space(10) + "Read more about this site " ScrollText = ScrollText + "and how you can become a member " ScrollText = ScrollText + "under the upper right button (Schiphol.net)" Cmd="ScrollStatus" R=Window.setTimeout(Cmd, 150, "VBScript")End SubSub ScrollStatus ' This subroutine does the work. It moves one character off the left of the ' string and puts it on the end. Simulating a scrolling marquee. ' The scroll happens once every 1/4 of a second (250 Milliseconds). ' You have to reset the Timeout event or it only fires once. Dim Cmd Dim R ScrollText = Right(ScrollText,Len(ScrollText) - 1) + Left(ScrollText,1) Window.Status = ScrollText Cmd = "ScrollStatus" R=Window.setTimeout(Cmd, 150, "VBScript")End Sub</script></body></html> |