'*********************************************************
'*	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>HOSTING 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"">New Domain Register!!!</span></b>"
		Case 3
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:16pt;font-weight:bold;color:green"">Manage Domain</span></b>"
		Case 4
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:18pt;font-weight:bold;color:blue"">Transfer Domain</span></b>"
		Case 5
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:18pt;font-weight:bold;color:green"">Corporate Domain</span></b>"
		Case 6
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:18pt;font-weight:bold;color:red"">Web Development Solutions</span></b>"
		Case 7
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:20pt;font-weight:bold;color:navy"">E-Mail Solutions</span></b>"
		Case 8
			Speed = 1000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:18pt;font-weight:bold;color:purple""> Shared Hosting</span></b>"
		Case 9
			Speed = 3000
			Duration = 0.200		
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:20pt;font-weight:bold;color:red"">Hosting On WIN2K </span></b>"
		Case 10
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:9pt"">We provide<br><font color=green>8 Domain + 200MB space on WIN2K  </font> 100 pop email all with a web based interface for both mail service & hosting services</span></b>"
		Case 11
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=red>Have a look on Payment Gateway</a>.</a></span></b>"
		Case 12
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=navy>Check out our new Corporate Domain 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> Hosting Package.</span></b>"
		Case 14
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=red> Get notified instantly when<br>your domain is going to expire!!.</font></span></b>"
		Case 15
			indosoftViewerText.InnerHTML = "<b><span style=""font-size:12pt""><font color=purple>Fabulaus Discount!</font><br>JOin Our Reseller Hosting</span></b>"
	End Select
	indosoftViewerText.filters.item(0).Transition = intTransition
	indosoftViewerText.filters.item(0).play(Duration)
	setTimeout "indosoftViewer", Speed, "VBSCRIPT" 
End Sub