<%
function validateLogin(theUserName, thePassword)
	
	sqlString = "Select Password from Newsletter_Admin Where UserName = '" &theUserName& "'"
	
	set rs = con.execute(sqlString)
	
	if rs.eof then
	
		validateLogin = 1
		
	else
		tempPassword = trim(rs("Password"))
		
		if tempPassword <> thePassword then
			validateLogin = 2

		else
			validateLogin = 0
			session("Newsletter") = true
			session("Newsletter_UserName") = theUserName
		end if	
	end if
end function
%>