'*********************************************************
'*	This page is property of indosoftnet.com
'*	If you would like to use any or all of the code on
'*	this page please include this disclamer. 
'*
'*	Email:	services@indosoftnet.com
'*********************************************************
Sub Window_Onload()
	setTimeout "indosoftViewer", 2000, "VBSCRIPT" 
End Sub

Sub indosoftViewer()
	On Error Resume Next
	Call indosoftViewerText.filters.item(0).Apply()
	Randomize
	indosoftViewerText.style.intAdvertisement = indosoftViewerText.style.intAdvertisement + 1
	If indosoftViewerText.style.intAdvertisement = 15 Then indosoftViewerText.style.intAdvertisement = 1
	intTransition = Int(23 * Rnd + 1)
	Speed = 5000
	Duration = 1.000
	Select Case indosoftViewerText.style.intAdvertisement
		Case 1
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt"">Welcome in the <font color=red>NEW </font>World of <br><font color=blue>indosoftnet.com</font></span></b>"
		Case 2
			Speed = 3000
			Duration = 0.500		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:14pt;color:purple"">We've got it all right here!!!</span></b>"
		Case 3
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:16pt;font-weight:bold;color:green"">Offshore Facility - Save upto 51%</span></b>"
		Case 4
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:24pt;font-weight:bold;color:blue"">Outsourcing</span></b>"
		Case 5
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:24pt;font-weight:bold;color:green"">Consultants</span></b>"
		Case 6
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:24pt;font-weight:bold;color:red"">Web Development</span></b>"
		Case 7
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:24pt;font-weight:bold;color:navy"">E-Commerce</span></b>"
		Case 8
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:18pt;font-weight:bold;color:purple""> Software Development</span></b>"
		Case 9
			Speed = 3000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:24pt;font-weight:bold;color:red""><a href=""domain.htm"">Web Hosting</span></b>"
		Case 10
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:9pt"">We provide<br><font color=green>Technically Skilled Personal</font> to augment your development teams for both short term & long term requirements</span></b>"
		Case 11
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=red>Jobs! Jobs! Jobs!<br><a href=""careers.htm"">Check it out</a>.</a></span></b>"
		Case 12
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=navy>Check out our new <a href=""ss.htm"">Support Services</a>.</a></span></b>"
		Case 13
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=blue>Feel free in choose</font> any of<br>our Webhosting Packages.</span></b>"
		Case 14
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=red>Jobs</font> - Get notified instantly when<br>your post has been replied to.</span></b>"
		Case 15
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=purple>Fabulaus Discount!</font><br>Save upto 51%</span></b>"
	End Select
	indosoftViewerText.filters.item(0).Transition = intTransition
	indosoftViewerText.filters.item(0).play(Duration)
	setTimeout "indosoftViewer", Speed, "VBSCRIPT" 
End Sub