strSQL = "SELECT M_DOB FROM " & strTablePrefix & "MEMBERS_PENDING " & _
			"WHERE M_NAME = '" & strNewMemberName & "'"
    set rsAdult = Server.CreateObject("ADODB.Recordset")
    rsAdult.open strSql, my_Conn
    if not rsAdult.EOF then 
    	Member_DOB = rsAdult("M_DOB")
    	MMAge = DateDiff("yyyy", DOBToDate(Member_DOB), Date)
    end if
		rsAdult.close
		set rsAdult = Nothing
		if MMAge < 21 then
			USERGROUP_ID = 8
			MEMBER_TYPE = 1
			set rsClr = my_Conn.execute(strSql)
			if not rsClr.BOF and not rsClr.EOF then
				strSql = "INSERT INTO " & strTablePrefix & "USERGROUP_USERS " &_
					"(USERGROUP_ID, MEMBER_ID, MEMBER_TYPE) VALUES "
				myConn.execute(strSql)
			end if
			rsClr.close
			set rsClr = Nothing
		else

    strSQL = "SELECT MEMBER_ID, M_KEY, M_DOB FROM " & strMemberTablePrefix & "MEMBERS_PENDING " & _
			 " WHERE M_KEY = '" & key & "'"
    set rsAdult = Server.CreateObject("ADODB.Recordset")
    rsAdult.open strSql, my_Conn
    if rsAdult.EOF or rsAdult.BOF then
    	'do nothing
    else
    	MDOB = rsAdult("M_DOB")
    	MMAge = DateDiff("yyyy", DOBToDate(MDOB), Date)
    end if
		rsAdult.close
		set rsAdult = Nothing