sub ShowPassword()
	window.open "Password.aspx", "_blank"
	document.Form1.txtEmailAddress.focus()
end sub

sub DisableRequiredFields()
	Dim e
	set e = document.getElementById("txtEmailAddress")
	e.style.color = "#ffffff"
	
	set e = document.getElementById("txtConfirm")
	e.style.color = "#ffffff"
	
	document.Form1.txtEmailAddress.value="New@New.New"
	document.Form1.txtConfirm.value="New"
	
end sub

sub window_onload()
	document.Form1.txtEmailAddress.focus()
	'call SetColor ("lblNewPassword", true)
	'document.Form1.txtNewPassword.Disabled=true
	document.Form1.txtEmailAddress.value=""
	document.Form1.txtConfirm.value=""
end sub

Sub SetColor(byval strField, byval bDisable)
	Dim e
	set e = document.getElementById(strField)
	if bDisable then
		e.style.color = "#c0c0c0"
	else
		e.style.color = "#000000"
	end if
End Sub

sub ShowNewPass
	'if document.Form1.txtNewPassword.Disabled=true then
	'	if trim(document.Form1.txtEmailAddress.value)<>"" and trim(document.Form1.txtConfirm.value)<>"" then
	'		'call SetColor ("lblNewPassword", false)
	'		document.Form1.txtNewPassword.Disabled=false
	'		document.Form1.txtNewPassword.focus
	'	elseif trim(document.Form1.txtEmailAddress.value)="" then
	'		alert("You must enter your email address before you can change your password.")
	'		document.Form1.txtEmailAddress.focus
	'	elseif trim(document.Form1.txtConfirm.value)="" then
	'		alert("You must enter your current password in order to change your password.")
	'		document.Form1.txtConfirm.focus
	'	end if
	'else
		'call SetColor ("lblNewPassword", true)
		'document.Form1.txtNewPassword.value=""
		'document.Form1.txtNewPassword.Disabled=true
	'end if
end sub