REM VBScript source code

	REM Vanuit HTML file openenen van een aspx file via script op de client!
	
	REM window.open("bottom.aspx?bExcel=1")
	REM window.parent.frames("bottom").navigate "bottom.aspx?bExcel=1"								
	
	public sub txt1_onclick()
		document.frmSelect.txt1.select
	End Sub
	
	public sub btnSearch_onclick()
		document.frmSelect.target="_self"
	End Sub
					
	public sub rbtLan_onclick()		
		document.frmSelect.target="_self"
	End Sub
	
	public sub rbtLan_onchange()
		document.frmSelect.target="_self"
	End Sub
	
	public sub rbtSearch_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	public sub rbtSearch_onchange()
		document.frmSelect.target="_self"
	End Sub
	
	public sub cboThema_onchange()
		document.frmSelect.target="_self"					
	End Sub	

	public sub cboThema_onclick()
		document.frmSelect.target="_self"					
	End Sub	
					
	public sub cboDataSet_onchange()
		document.frmSelect.target="_self"					
	End Sub							

	public sub cboDataSet_onclick()
		document.frmSelect.target="_self"					
	End Sub							
	
	Public sub btnDV_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnDV_A_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSV_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSV_A_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnDR_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnDR_A_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSR_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSR_A_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnDS_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnDS_A_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSS_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSS_A_onclick()
		document.frmSelect.target="_self"
	End Sub

	Public sub btnDG_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnDG_A_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSG_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSG_A_onclick()
		document.frmSelect.target="_self"
	End Sub

	Public sub btnDP_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnDP_A_onclick()
		document.frmSelect.target="_self"
    End Sub
	
	Public sub btnSP_onclick()
		document.frmSelect.target="_self"
	End Sub
	
	Public sub btnSP_A_onclick()
		document.frmSelect.target="_self"
	End Sub								
									
	Public sub btnGet_onclick()
			Dim sM, iT, sTAB, xTAB, i
			
			xTAB = vbTAB
			If document.frmSelect.lstT_V.options.length = 0 _
			And document.frmSelect.lstT_R.options.length = 0 _
			And document.frmSelect.lstT_S.options.length = 0 _
			And document.frmSelect.lstT_G.options.length = 0 _
			And document.frmSelect.lstT_P.options.length = 0 Then
				'If document.frmSelect.rbtLan(0).Checked = True Then							
				REM	MsgBox("Indien mogelijk zal dataset " & Trim(document.frmSelect.cboThema.options(document.frmSelect.cboThema.selectedIndex).Text) & " worden getoond!")												
				'ElseIf document.frmSelect.rbtLan(1).Checked = True Then	
				'	MsgBox("If possible dataset " & Trim(document.frmSelect.cboThema.options(document.frmSelect.cboThema.selectedIndex).Text) & " will be displayed!")								
				'End If
			Else
				sM = ""	: iT = 0
																		
				If document.frmSelect.lstT_V.options.length = 0 Then
				'And document.frmSelect.rbtLan(0).Checked = True Then
					if iT > 0 Then
						sTAB = ""
						For i=1 To iT
							sTAB=sTAB & xTAB
						Next
					End If
					iT = iT + 1								
					sM=sM & sTAB & "alle variabelen," & vbCRLF
											
					REM MsgBox("alle variabelen zullen worden getoond!")
				'ElseIf document.frmSelect.lstT_V.options.length = 0 _
				'And document.frmSelect.rbtLan(1).Checked = True Then
				'	if iT > 0 Then
				'		sTAB = ""
				'		For i=1 To iT
				'			sTAB=sTAB & xTAB
				'		Next
				'	End If
				'	iT = iT + 1								
				'	sM=sM & sTAB & "all variables," & vbCRLF
					REM MsgBox("all variables will be displayed!")																										
				End If
				
				If document.frmSelect.lstT_R.options.length = 0 Then
				'And document.frmSelect.rbtLan(0).Checked = True Then
					if iT > 0 Then
						sTAB = ""
						For i=1 To iT
							sTAB=sTAB & xTAB
						Next
					End If
					iT = iT + 1								
					sM=sM & sTAB & "alle items m.b.t." & lcase(REG.innerHTML) & "," & vbCRLF																			
					REM MsgBox("alle items m.b.t." & lcase(REG.innerHTML) & " zullen worden getoond!")	
				'ElseIf document.frmSelect.lstT_R.options.length = 0 _
				'And document.frmSelect.rbtLan(1).Checked = True Then
				'	if iT > 0 Then
				'		sTAB = ""
				'		For i=1 To iT
				'			sTAB=sTAB & xTAB
				'		Next
				'	End If
				'	iT = iT + 1								
				'	sM=sM & sTAB & "all items " & lcase(REG.innerHTML) & "," & vbCRLF
					REM MsgBox("all items " & lcase(REG.innerHTML) & " will be displayed!")
				End If
				
				If document.frmSelect.lstT_S.options.length = 0 Then
				'And document.frmSelect.rbtLan(0).Checked = True Then
					if iT > 0 Then
						sTAB = ""
						For i=1 To iT
							sTAB=sTAB & xTAB
						Next
					End If
					iT = iT + 1								
					sM=sM & sTAB & "alle items m.b.t." & lcase(SBI.innerHTML) & "," & vbCRLF														
					REM MsgBox("alle bedrijfsgroepen zullen worden getoond!")
				'ElseIf document.frmSelect.lstT_S.options.length = 0 _
				'And document.frmSelect.rbtLan(1).Checked = True	Then
				'	if iT > 0 Then
				'		sTAB = ""
				'		For i=1 To iT
				'			sTAB=sTAB & xTAB
				'		Next
				'	End If
				'	iT = iT + 1								
				'	sM=sM & sTAB & "all firm classes," & vbCRLF
					REM MsgBox("all firm classes will be displayed!")								
				End If
				
				If document.frmSelect.lstT_G.options.length = 0 Then
				'And document.frmSelect.rbtLan(0).Checked = True Then
					if iT > 0 Then
						sTAB = ""
						For i=1 To iT
							sTAB=sTAB & xTAB
						Next
					End If
					iT = iT + 1								
					sM=sM & sTAB & "alle items m.b.t." & lcase(GKL.innerHTML) & "," & vbCRLF																			
					REM MsgBox("alle grootteklassen zullen worden getoond!")
				'ElseIf document.frmSelect.lstT_G.options.length = 0 _
				'And document.frmSelect.rbtLan(1).Checked = True	Then
				'	if iT > 0 Then
				'		sTAB = ""
				'		For i=1 To iT
				'			sTAB=sTAB & xTAB
				'		Next
				'	End If
				'	iT = iT + 1								
				'	sM=sM & sTAB & "all size classes," & vbCRLF 
					REM MsgBox("all size classes will be displayed!")					
				End If
				
				If document.frmSelect.lstT_P.options.length = 0 Then
				'And document.frmSelect.rbtLan(0).Checked = True Then
					if iT > 0 Then
						sTAB = ""
						For i=1 To iT
							sTAB=sTAB & xTAB
						Next
					End If
					iT = iT + 1								
					sM=sM & sTAB & "alle items m.b.t." & lcase(PER.innerHTML) & "," & vbCRLF								
					REM MsgBox("alle jaren of perioden zullen worden getoond!")	
				'ElseIf document.frmSelect.lstT_P.options.length = 0 _
				'And document.frmSelect.rbtLan(1).Checked = True Then
				'	if iT > 0 Then
				'		sTAB = ""
				'		For i=1 To iT
				'			sTAB=sTAB & xTAB
				'		Next
				'	End If
				'	iT = iT + 1								
				'	sM=sM & sTAB & "all years or periods,"	& vbCRLF
					REM MsgBox("all years or periods will be displayed!")												
				End If
			End If
			If sM <> "" Then
				'If document.frmSelect.rbtLan(0).Checked = True Then							
					sM = Left(SM,-3+Len(sM)) & vbCRLF & vbCRLF & "zullen worden getoond!"	
				'ElseIf document.frmSelect.rbtLan(1).Checked = True Then
				'	sM = Left(SM,-3+Len(sM)) & vbCRLF & vbCRLF & "will be displayed!"
				'End If										
				MsgBox(sM)
			End If							
			document.frmSelect.target="_blank"																								
	End Sub