Sub OpenGuestBook()
		'Dim sReturn
		
		'sReturn = window.showModalDialog("GuestBook1/guest_book.asp","","dialogWidth:750px;dialogHeight:400px;scroll:yes;status:no;help:no")
		window.open "GuestBook1/guest_book.asp","GuestBookWindow", "menubar=0,resizable=1,scrollbars=1,width=800,height=350"
	End Sub

	Sub ShowGuestBook()
		'Dim sReturn
		
		'sReturn = window.showModalDialog("GuestBook1/show_guest_book.asp","","dialogWidth:800px;dialogHeight:600px;scroll:yes;status:no;help:no")
		window.open "GuestBook1/show_guest_book.asp","ShowGuestBook", "menubar=0,resizable=1,scrollbars=1,width=800,height=700"
	End Sub

	Sub AddToPeoplesHelp()
		window.open "GuestBook1/add_to_peoples_help.asp","add_2_peoples_help", "menubar=0,resizable=1,scrollbars=1,width=800,height=500"
	End Sub

	Sub ShowPeopleHelpTable()
		sWidth=window.screen.availWidth 
		sWidth=sWidth-10
		sHight=window.screen.availHeight
		sHight=sHight-40

		window.open "GuestBook1/show_peoples_help_table.asp","ShowPeoplesHelpTable", "menubar=0,resizable=1,scrollbars=1,width=" & sWidth & ",height=" & sHight
	End Sub

	
	Sub ShowDetails(sFilePath)
		Dim sWin
		'msgbox sFilePath
		IF 	sFilePath = "" THEN	
			exit sub
		END IF
		sWin= window.open (sFilePath,"","toolbar=no,scrollbars=yes,resizable=yes")
	End Sub
	
	Sub OpenAkivaPage()
		Dim sReturn
		
		'sReturn = window.showModalDialog(optSelectFile.value,"","dialogWidth:800px;dialogHeight:600px;scroll:yes;status:no;help:no")
		'window.open   optSelectFile.value
		window.location.href  = optSelectFile.value
	End Sub

	Sub OverRow(sObj)
		sObj.className  = "ScrollSelectedText"
	End Sub

	Sub LeaveRow(sObj)
		sObj.className  = "ScrollNormalText"
	End Sub
	'---------------------
	Sub SelectMainButton(sObj)
		'msgbox sObj
		document.getElementById(sObj).className  = "sel_mb"
		'sObj.className  = "sel_mb"
	End Sub
	
	Sub UnSelectMainButton(sObj)
		'msgbox sObj
		document.getElementById(sObj).className  = "mb"

		'sObj.className  = "mb"
	End Sub
	
	Sub ShowAboutSite()
		'Dim sReturn
		
		'sReturn = window.showModalDialog("about_site.html","","dialogWidth:800px;dialogHeight:750px;scroll:yes;status:no;help:no")
		
		'sWidth=window.screen.availWidth 
		'sWidth=sWidth-10
		'sHight=window.screen.availHeight
		'sHight=sHight-50

		window.open "about_site.html","AboutSiteWindow", "menubar=0,resizable=1,width=850,height=750"				
				
	End Sub

	Sub ShowNasledie()
		'Dim sReturn
		'sReturn = window.showModalDialog("nasledie.html","","dialogWidth:800px;dialogHeight:750px;scroll:yes;status:no;help:no")
		
		sWidth=window.screen.availWidth 
		sWidth=sWidth-10
		sHight=window.screen.availHeight
		sHight=sHight-50

		window.open "nasledie.html","NasledieWindow", "menubar=0,toolbar=1,resizable=1,scrollbars=1,width=" & sWidth & ",height=" & sHight  & ",top=0,left=0"
		window.opener = self
	End Sub	

	Sub ShowContacts()
		'Dim sReturn
		'sReturn = window.showModalDialog("contacts.html","","dialogWidth:800px;dialogHeight:750px;scroll:yes;status:no;help:no")
		
		sWidth=window.screen.availWidth 
		sWidth=sWidth-10
		sHight=window.screen.availHeight
		sHight=sHight-50

		window.open "contacts.html","ContactsWindow","menubar=0,resizable=1,width=800,height=600"
		window.opener = self
	End Sub	

	Sub ShowMenuSP()
		sWidth=window.screen.availWidth 
		sWidth=sWidth-10
		sHight=window.screen.availHeight
'msgbox sHight
		'sTop = (Cint(sHight)  - 150) / 2
		sHight = sHight - 50
		sLeft  = (sWidth - 450) / 2
		

		window.open "SearchPeople/menu_sp.html","ShowMenuSP", "menubar=0,resizable=0,scrollbars=0,width=450,height=150,left=" & sLeft & ",top=200"
	End Sub


	Sub ShowFindPeople()
		sWidth=window.screen.availWidth 
		sWidth=sWidth-10
		sHight=window.screen.availHeight
		sHight=sHight-50

		window.open "../SearchPeople/show_search_people.asp","ShowFindPeople", "menubar=0,toolbar=1,resizable=1,scrollbars=1,width=" & sWidth & ",height=" & sHight  & ",left=0,top=0"
	End Sub

	Sub WriteToFindPeople()
		sWidth=window.screen.availWidth 
		sWidth=sWidth-10
		sHight=window.screen.availHeight
		sHight=sHight-50
		sLeft  = (sWidth - 800) / 2

		window.open "../SearchPeople/search_people.asp","WriteToFindPeople", "menubar=0,resizable=0,scrollbars=1,width=800,height=320,left=" & sLeft & ",top=200"

	End Sub