sub window_onload()
	end sub
	
	Sub GetDate(objMe)
		
		strThisElement = objMe.getattribute("IndexVal")
		retVal = window.showModalDialog ("includes/calDraw1.asp?Locale=Set",,"dialogWidth:248px;dialogHeight:225px;status: no;unadorned: yes;help: no;scroll:no")
				
		'If retVal <> "" Then
		'	document.all(strThisElement).value = retVal
		'End If		
	End Sub