'## NT authentication no additional password needed
if strAuthType = "db" then
	if not IsValidString(trim(Request.Form("Password"))) then
		Err_Msg = Err_Msg & "<li>You may not use any of these chars in your password  !#$%^&*()=+{}[]|\;:/?>,<' </li>"
	end if

	if trim(Request.Form("Password")) = "" then
		Err_Msg = Err_Msg &  "<li>You must choose a Password</li>"
	end if

	if Len(Request.Form("Password")) < 8 or Len(Request.Form("Password")) > 25 then
		Err_Msg = Err_Msg & "<li>Your Password can not be less than 8 or greater than 25 characters</li>"
	end if

	if Request.Form("Password") <> Request.Form("Password2") then
		Err_Msg = Err_Msg & "<li>Your Passwords didn't match.</li>"
	end if
end if

boolPwnumeric=0
boolPwalpha=0
for i=0 to 9
	if instr(trim(Request.Form("Password")),i)<>0 then
		boolPwNumeric=1
		exit for
	end if
next
for i=97 to 122
	if instr(trim(Request.Form("Password")),chr(i))<>0 or instr(trim(Request.Form("Password")),ucase(chr(i)))<>0 then
		boolPwalpha=1
		exit for
	end if
next
if boolPwnumeric=0 or boolPwalpha=0 then Err_Msg=Err_Msg&"<li>Your password must combination of alphanumeric characters.</li>"

'## NT authentication no additional password needed
'## Modified by Shaggy with assistance from pknaz and Nertz
if strAuthType = "db" then
	'## create variable to hold password
	dim boolPwalpha,boolPwletter,boolPwnumeric,strTempPass
	strTempPass=trim(request.form("password"))
	'## check for presence of "special" characters or spaces
	if not IsValidString(strTempPass) or instr(strTempPass," ")<>0 then Err_Msg=Err_Msg&"<li>You may not use spaces nor any of these characters in your password !#$%^&*()=+{}[]|\;:/?>,<'""</li>"
	'## redundant due to the check below
'	if strTempPass="" then Err_Msg=Err_Msg&"<li>You must choose a Password</li>"
	'## check password length. change eight for minimum allowed chracters and 25 for maximum allowed
	if len(strTempPass)<8 or len(strTempPass)>25 then Err_Msg=Err_Msg&"<li>Your Password can not be less than 8 nor greater than 25 characters.</li>"
	'## check password contains both alpha and numeric chracters
	boolPwnumeric=0
	'## comment/delete 1 line below to remove check for first chracter being alpha
	boolPwletter=0
	boolPwalpha=0
	for i=0 to 9
		if instr(strTempPass,i)<>0 then
			boolPwNumeric=1
			exit for
		end if
	next
	if boolPwNumeric=1 then
		for i=97 to 122
			'## comment/delete 5 lines below to remove check for first chracter being alpha
			if lcase(left(strTempPass,1))=chr(i) then
				boolPwletter=1
				boolPwalpha=1
				exit for
			end if
			'##
			if instr(lcase(strTempPass),chr(i))<>0 then
				boolPwalpha=1
				exit for
			end if
		next
	end if
	'## comment/delete 1 line below to remove check for first chracter being alpha
	if boolPwletter=0 then Err_Msg=Err_Msg&"<li>The first chracter of your password must be a letter.</li>"
	if boolPwnumeric=0 or boolPwalpha=0 then Err_Msg=Err_Msg&"<li>Your password must contain combination of alphanumeric characters and begin with a letter.</li>"
	'##
	'## check password is not the same as username
	if strTempPass=trim(Request.Form("Name")) then Err_Msg=Err_Msg&"<li>Your password cannot be the same as your username.</li>"
	'## chcek both password fields match
	if strTempPass<>trim(Request.Form("Password2")) then Err_Msg=Err_Msg&"<li>Your Passwords didn't match.</li>"
end if
'## end Shaggy's modifications