quote:

---

Rick,

Add the line in red to the following function. That fixes it.

Function Date_FillBoxWithYears( nDefault )
if nDefault = "Year" then nDefault = 0
nDefault = Cint(nDefault)
Dim nYear
nDefault = Cint(nDefault)

Cheers Az

-------
Eagles fly!, but weasels don't get sucked into jet engines.

---

quote:

---

ok i uploaded my forum on 7host for now for testing
is this mod updated and completed so i can test?

---

quote:

---

Can anyone teach me Chinese?

Az

-------
Eagles fly!, but weasels don't get sucked into jet engines.

---

Well, I might translate it when I have time but not now.
you can add Asian language pack for IE, then you can see those characters correctly in IE instead of a mess. probabally you can figure out something.

Chinese calendar is a combination of lunar and solar. the months are lunar months but they have Jieqi also, which is the 24 positions of earth in its orbit, such as the date/time when day/night are of same lenght of time. this is of solar system.

Chinese calendar has a special method to mark the year/month/date, which is "jia, yi, bing, etc" in the birthday mod, also includes the Jieqi mentioned above. This is complicated when people use this to predict your life. they think as earth moving in the universe, people are affected by where the earth is. this is quite like western astrology but Chinese track it to the time/date/month/year you are born instead of on which months you are born. If you believe in astrology, I think the Chinese way is better. well, they do think you can change your life even you were born at a bad time. Isn't that nice?

When my site's up I'll have some articles dedicated to this and related mystery theories. I'll post a notice in the community forum then.

the current Chinese calendar using the method started at 722BC, never changed and broken, which is the longest yet known method used continuously. this together with the practice of the ancient Chinese people to note down the changing of signs of the stars, help astronomists a lot. they then can know when a comet came before, when there was a solar eclipse etc.

I think the acient Indians in Mexico developed the best solar calendar system, known for its accuracy.

Hope you guys are ineterested in this.

Edited by - bjlt on 29 November 2001 08:13:47

quote:

---

Found a few little bug's which I have fixed.

The new code for displaying in default.asp and so on has been added.

File updated at source above. (well when Kind Mr Stim changes it for me)

Thanks Az

-------
Eagles fly!, but weasels don't get sucked into jet engines.

---

if (strAge = "1" and Trim(rs("M_AGE")) <> "") then
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Age: </font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(rs("M_AGE"), "display") %></font></td>
     </tr>
<%
		end if

					if strAge = "1" then
%>					
					<tr>
						<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Age: </font></b></td>
						<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT  name="Age" size="7" value="<% =ChkString(RS("M_AGE"), "display") %>"></font></td>
					</tr>
<%
					end if

'##################  concep86 / Azaniah birthday mod ####################
	if intBirthday = "1" then
		blist2 = ""
		bSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME," & strMemberTablePrefix & "MEMBERS.MEMBER_ID," & strMemberTablePrefix & "MEMBERS.M_BIRTHDATE "
		bSql = bSql & "FROM " & strMemberTablePrefix & "MEMBERS "
		bSql = bSql & "WHERE " & strMemberTablePrefix & "MEMBERS.M_BIRTHDATE LIKE '____" & intThisMonth & doublenum(intPrintDay) & "'"
		bSql = bSql & "AND " & strMemberTablePrefix & "MEMBERS.M_HIDEAGE = 0"

		set rsBirthday = my_conn.execute(bSql)

		do while not rsBirthday.eof
		blist2 = blist2 & rsBirthday("M_NAME") & ","
		rsBirthday.movenext
		loop
		rsBIRTHDAY.close
		set rsBIRTHDAY = Nothing
	end if
'##################  concep86 / Azaniah birthday mod ####################

<% '##################  concep86 / Azaniah birthday mod #################### %>
<% if intBirthday = "1" then %>
          <tr>
            <td bgColor=<% =strPopUpTableColor %> align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Age: </font></b></td>
		<% if(HideAge = 0) then %>
<% ' Calculations for various birthday functions
			strBirthdate = rs("M_BIRTHDATE") & "000001"
			strBirthdate = strToDate (strBirthdate)

 abbreviatted code 

		<% else %>
            <td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">No age specified...</font></td>
		<% end if %>		
          	</tr>
<% end if %>
<% '##################  concep86 / Azaniah birthday mod #################### %>