| Author |
 Topic  |
|
MaGraham
Senior Member
USA
1297 Posts |
 Posted - 21 December 2013 : 02:21:54
|
I LOVE the "Birthday" mod and it was one of the first mods I installed. However; it's displaying rather oddly now.
For the "upcoming" birthdays it's displaying January birthdays before the December birthdays. See bottom of graphic below.
Forgive me for using this huge picture of my "active.asp" that I used in another post. Someone had asked to see my active.asp after I did a bunch of changes so I posted a screen shot of it and my menu at the top so since I had that screen shot uploaded, I thought I'd reuse it.
I didn't even notice this problem until now so I'm not sure when it started but I know it was displaying properly earlier this month. And yes, the birthdays display the same on the default.asp.
Any ideas on what could cause this?
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 21 December 2013 : 02:29:34
|
Here's my inc_birthdays.asp if looking at it helps with this. 
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
 |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 21 December 2013 : 04:47:32
|
Try this (untested):
<%
'###############################################################################
'##
'## Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output. The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; if not, write to:
'##
'## Free Software Foundation, Inc.
'## 59 Temple Place, Suite 330
'## Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'## http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'## manderson@snitz.com
'##
'###############################################################################
'## MOD: Birthdays v1.0 for Snitz Forums v3.4
'## Author: Michael Reisinger (OneWayMule)
'## File: inc_birthdays.asp
'##
'## Get the latest version of this MOD at
'## http://www.onewaymule.org/onewayscripts/
'#################################################################################
Sub DisplayBirthdays(intRange,intAge)
Call DoHideCategory("Birthdays")
HideForumCat = strUniqueID & "HideCatBirthdays"
If Request.Cookies <> "Y" Then
strBDToday = Left(DateToStr(strForumTimeAdjust),8) & "000000"
strBDRecentDay = Mid(DateToStr(DateAdd("d",-intRange,strToDate(strBDToday))),5,4)
strBDUpcomingDay = Mid(DateToStr(DateAdd("d",+intRange,strToDate(strBDToday))),5,4)
strBDToday = Mid(strBDToday,5,4)
strsql = "SELECT MEMBER_ID, M_NAME, M_DOB FROM " & strMemberTablePrefix & "MEMBERS WHERE M_DOB<>'' AND M_STATUS=1 ORDER BY Right(M_DOB,4)"
Set rsBirthday = my_conn.Execute(strsql)
bolRecentBD = False
bolTodaysBD = False
bolUpcomingBD = False
If intRange = 1 Then
strRecentBD = "Yesterday: "
strUpcomingBD = "Tomorrow: "
Else
strRecentBD = "Recent: "
strUpcomingBD = "Upcoming: "
End If
strTodaysBD = ""
If NOT rsBirthday.EOF Then
arrBD = rsBirthday.GetRows()
bolBDFound = True
rsBirthday.Close
Else
bolBDFound = False
End If
Set rsBirthday = Nothing
If bolBDFound Then
For iBD = 0 to ubound(arrBD, 2)
intBDID = arrBD(0, iBD)
strBDName = chkString(arrBD(1, iBD),"display")
intTPPostcount = arrBD(2, iBD)
strDOB = Right(arrBD(2, iBD),4)
strBirthdate = strToDate(arrBD(2, iBD) & "000000")
If strDOB = strBDToday Then
If bolTodaysBD = True Then
strTodaysBD = strTodaysBD & ", "
End If
strTodaysBD = strTodaysBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strTodaysBD = strTodaysBD & DisplayUsersAge(strBirthdate) & " on "
End If
strTodaysBD = strTodaysBD & monthName(Datepart("m",strBirthDate)) & " " & day(strBirthDate) & ")"
bolTodaysBD = True
End If
If strBDRecentDay > strBDToday Then
If (strDOB > strBDRecentDay AND strDOB < "1231") OR (strDOB > "0101" AND strDOB < strBDToday) Then
If bolRecentBD = True Then
strRecentBD = strRecentBD & ", "
End If
strRecentBD = strRecentBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strRecentBD = strRecentBD & DisplayUsersAge(strBirthdate) & " on "
End If
strRecentBD = strRecentBD & monthName(Datepart("m",strBirthDate)) & " " & day(strBirthDate) & ")"
bolRecentBD = True
End If
Else
If strDOB < strBDToday AND strDOB >= strBDRecentDay Then
If bolRecentBD = True Then
strRecentBD = strRecentBD & ", "
End If
strRecentBD = strRecentBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strRecentBD = strRecentBD & DisplayUsersAge(strBirthdate) & " on "
End If
strRecentBD = strRecentBD & monthName(Datepart("m",strBirthDate)) & " " & day(strBirthDate) & ")"
bolRecentBD = True
End If
End If
If strBDUpcomingDay < strBDToday Then
If (strDOB =< strBDUpcomingDay AND strDOB >= "0101") OR (strDOB =< "1231" AND strDOB > strBDToday) Then
If bolUpcomingBD = True Then
strUpcomingBD = strUpcomingBD & ", "
End If
strUpcomingBD = strUpcomingBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strUpcomingBD = strUpcomingBD & DisplayUsersAge(strBirthdate)+1 & " on "
End If
strUpcomingBD = strUpcomingBD & monthName(Datepart("m",strBirthDate), true) & " " & day(strBirthDate) & ")"
bolUpcomingBD = True
End If
Else
If strDOB > strBDToday AND strDOB <= strBDUpcomingDay Then
If bolUpcomingBD = True Then
strUpcomingBD = strUpcomingBD & ", "
End If
strUpcomingBD = strUpcomingBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strUpcomingBD = strUpcomingBD & DisplayUsersAge(strBirthdate)+1 & " on "
End If
strUpcomingBD = strUpcomingBD & monthName(Datepart("m",strBirthDate), true) & " " & day(strBirthDate) & ")"
bolUpcomingBD = True
End If
End If
Next
End If
intBDRowSpan = 1
If bolRecentBD Then
intBDRowSpan = intBDRowSpan + 1
strRecentBD = strRecentBD & "."
End If
If bolTodaysBD Then
strTodaysBD = strTodaysBD & "."
Else
strTodaysBD = "None."
End If
If bolUpcomingBD Then
intBDRowSpan = intBDRowSpan + 1
strUpcomingBD = strUpcomingBD & "."
End If
End If
If Request.Cookies(HideForumCat) = "Y" Then
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><a href=""" & ScriptName & "?" & HideForumCat & "=N"">" & getCurrentIcon(strIconPlus,"Expand This Category","") & "</a> <b>Birthdays</b></font></td>" & vbNewLine
Else
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><a href=""" & ScriptName & "?" & HideForumCat & "=Y"">" & getCurrentIcon(strIconMinus,"Collapse This Category","") & "</a> <b>Birthdays</b></font></td>" & vbNewLine
End If
Response.Write " </tr>" & vbNewLine
If Request.Cookies(HideForumCat) <> "Y" Then
Response.write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strForumCellColor & """ colspan=""1"" rowspan=""" & intBDRowSpan & """ valign=""middle"">" & getCurrentIcon(strIconBirthdays,"","") & vbNewLine & _
" </td>" & vbNewLine
If (NOT bolTodaysBD) AND (NOT bolUpcomingBD) AND (NOT bolRecentBD) Then
Response.Write " <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(7,5) & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>None today." & vbNewLine
Else
Response.Write " <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(7,5) & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & strTodaysBD & "</font>" & vbNewLine & _
" </td></tr>" & vbNewLine
If bolUpcomingBD Then
strSqlC="SELECT COUNT(MEMBER_ID) AS CNT FROM " & strMemberTablePrefix & "MEMBERS WHERE (M_DOB<>'' AND M_STATUS=1 AND RIGHT(M_DOB,4)<'" & strTerm & "')"
Set rsC=my_conn.Execute(strSqlC)
intCnt=0
If not rsC.EOF Then
intCnt=rsC("Cnt")
strSql1="SELECT MEMBER_ID, M_NAME, M_DOB FROM " & strMemberTablePrefix & "MEMBERS WHERE (M_DOB<>'' AND M_STATUS=1 AND RIGHT(M_DOB,4)<'" & STRBDTODAY & "' AND RIGHT(M_DOB,4)<'" & strTerm & "') ORDER BY Right(M_DOB,4) ASC"
Set rsUp=my_Conn.Execute(strSql1)
If not rsUp.EOF Then
rsUp.MoveFirst
Do while not rsUp.EOF
strBD=strToDate(rsUp("M_DOB") & "000000")
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & profileLink(rsUp("M_Name"), rsUp("Member_ID")) & " (" & monthName(Datepart("m",strBD, true)) & " " & day(strBD) & ")"
intI=intI+1
If intI<intCnt Then Response.Write ", "
Response.Write "</font>" & vbNewLine
rsUp.MoveNext
Loop
rsUp.Close
End If
Set rsUp=Nothing
rsC.Close
End If
Set rsC=Nothing
Response.Write "</td></tr>"
End If
If bolRecentBD Then
Response.Write " <tr><td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(7,5) & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & strRecentBD & "</font></td></tr>" & vbNewLine
End If
End If
Response.Write " </tr>" & vbNewLine
End If
End Sub
%>
|
Edited by - Carefree on 02 January 2014 21:06:13 |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 21 December 2013 : 05:21:36
|
No, that displayed ALL of the members' birthdays, Carefree.
However; they were in the correct order! 
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
Edited by - MaGraham on 21 December 2013 05:22:19 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 21 December 2013 : 06:01:48
|
| I changed it when I realized I didn't allow for the cutoff period. Try latest version above, hopefully it's correct now. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 21 December 2013 : 06:15:06
|
That fixed it! 
PERFECT! 
Thank you so much, Carefree!
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 21 December 2013 : 06:50:11
|
| You're welcome. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 01 January 2014 : 10:34:54
|
Is it the norm for the "Birthday Mod" to display ALL of the birthdays for the entire year on January 1? LOL
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 01 January 2014 : 12:00:38
|
| That depends on how long you have it set to cover. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 01 January 2014 : 14:55:34
|
quote:
Originally posted by Carefree
That depends on how long you have it set to cover.
Well, how do I change the setting, Carefee?
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 01 January 2014 : 15:04:57
|
| It's in the "call birthdays" line you added to "default.asp". |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 01 January 2014 : 15:19:51
|
But that has "Call DisplayBirthdays(30,0)" so that shouldn't display the entire year, Carefree.
What am I missing?
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 02 January 2014 : 02:15:18
|
| Try changed file above, one line modified. |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 02 January 2014 : 09:57:32
|
This took care of the problem of it listing all of the birthdays for the entire year.
However; it now lists all of the birthdays for this month twice. It lists them all in perfect order but then lists them all again.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 03 January 2014 : 09:08:59
|
Here:
<%
'###############################################################################
'##
'## Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output. The "powered by" text/logo with a
'## link back to http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful but
'## WITHOUT ANY WARRANTY; without even an implied warranty of MERCHANTABILITY
'## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
'## for more details.
'##
'## You should have received a copy of the GNU General Public License along
'## with this program; if not, write to:
'##
'## Free Software Foundation, Inc.
'## 59 Temple Place, Suite 330
'## Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'## http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'## manderson@snitz.com
'##
'###############################################################################
'## MOD: Birthdays v1.0 for Snitz Forums v3.4
'## Author: Michael Reisinger (OneWayMule)
'## File: inc_birthdays.asp
'##
'## Get the latest version of this MOD at
'## http://www.onewaymule.org/onewayscripts/
'#################################################################################
Sub DisplayBirthdays(intRange,intAge)
Call DoHideCategory("Birthdays")
HideForumCat = strUniqueID & "HideCatBirthdays"
If Request.Cookies <> "Y" Then
strBDToday = Left(DateToStr(strForumTimeAdjust),8) & "000000"
strBDRecentDay = Mid(DateToStr(DateAdd("d",-intRange,strToDate(strBDToday))),5,4)
strBDUpcomingDay = Mid(DateToStr(DateAdd("d",+intRange,strToDate(strBDToday))),5,4)
strBDToday = Mid(strBDToday,5,4)
strsql = "SELECT MEMBER_ID, M_NAME, M_DOB FROM " & strMemberTablePrefix & "MEMBERS WHERE M_DOB<>'' AND M_STATUS=1 ORDER BY Right(M_DOB,4)"
Set rsBirthday = my_conn.Execute(strsql)
bolRecentBD = False
bolTodaysBD = False
bolUpcomingBD = False
If intRange = 1 Then
strRecentBD = "Yesterday: "
strUpcomingBD = "Tomorrow: "
Else
strRecentBD = "Recent: "
strUpcomingBD = "Upcoming: "
End If
strTodaysBD = ""
If NOT rsBirthday.EOF Then
arrBD = rsBirthday.GetRows()
bolBDFound = True
rsBirthday.Close
Else
bolBDFound = False
End If
Set rsBirthday = Nothing
If bolBDFound Then
For iBD = 0 to ubound(arrBD, 2)
intBDID = arrBD(0, iBD)
strBDName = chkString(arrBD(1, iBD),"display")
intTPPostcount = arrBD(2, iBD)
strDOB = Right(arrBD(2, iBD),4)
strBirthdate = strToDate(arrBD(2, iBD) & "000000")
If strDOB = strBDToday Then
If bolTodaysBD = True Then
strTodaysBD = strTodaysBD & ", "
End If
strTodaysBD = strTodaysBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strTodaysBD = strTodaysBD & DisplayUsersAge(strBirthdate) & " on "
End If
strTodaysBD = strTodaysBD & monthName(Datepart("m",strBirthDate)) & " " & day(strBirthDate) & ")"
bolTodaysBD = True
End If
If strBDRecentDay > strBDToday Then
If (strDOB > strBDRecentDay AND strDOB < "1231") OR (strDOB > "0101" AND strDOB < strBDToday) Then
If bolRecentBD = True Then
strRecentBD = strRecentBD & ", "
End If
strRecentBD = strRecentBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strRecentBD = strRecentBD & DisplayUsersAge(strBirthdate) & " on "
End If
strRecentBD = strRecentBD & monthName(Datepart("m",strBirthDate)) & " " & day(strBirthDate) & ")"
bolRecentBD = True
End If
Else
If strDOB < strBDToday AND strDOB >= strBDRecentDay Then
If bolRecentBD = True Then
strRecentBD = strRecentBD & ", "
End If
strRecentBD = strRecentBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strRecentBD = strRecentBD & DisplayUsersAge(strBirthdate) & " on "
End If
strRecentBD = strRecentBD & monthName(Datepart("m",strBirthDate)) & " " & day(strBirthDate) & ")"
bolRecentBD = True
End If
End If
If strBDUpcomingDay < strBDToday Then
If (strDOB =< strBDUpcomingDay AND strDOB >= "0101") OR (strDOB =< "1231" AND strDOB > strBDToday) Then
If bolUpcomingBD = True Then
strUpcomingBD = strUpcomingBD & ", "
End If
strUpcomingBD = strUpcomingBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strUpcomingBD = strUpcomingBD & DisplayUsersAge(strBirthdate)+1 & " on "
End If
strUpcomingBD = strUpcomingBD & monthName(Datepart("m",strBirthDate), true) & " " & day(strBirthDate) & ")"
bolUpcomingBD = True
End If
Else
If strDOB > strBDToday AND strDOB <= strBDUpcomingDay Then
If bolUpcomingBD = True Then
strUpcomingBD = strUpcomingBD & ", "
End If
strUpcomingBD = strUpcomingBD & profileLink(strBDName,intBDID) & " ("
If intAge = 1 Then
strUpcomingBD = strUpcomingBD & DisplayUsersAge(strBirthdate)+1 & " on "
End If
strUpcomingBD = strUpcomingBD & monthName(Datepart("m",strBirthDate), true) & " " & day(strBirthDate) & ")"
bolUpcomingBD = True
End If
End If
Next
End If
intBDRowSpan = 1
If bolRecentBD Then
intBDRowSpan = intBDRowSpan + 1
strRecentBD = strRecentBD & "."
End If
If bolTodaysBD Then
strTodaysBD = strTodaysBD & "."
Else
strTodaysBD = "None."
End If
If bolUpcomingBD Then
intBDRowSpan = intBDRowSpan + 1
strUpcomingBD = strUpcomingBD & "."
End If
End If
If Request.Cookies(HideForumCat) = "Y" Then
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><a href=""" & ScriptName & "?" & HideForumCat & "=N"">" & getCurrentIcon(strIconPlus,"Expand This Category","") & "</a> <b>Birthdays</b></font></td>" & vbNewLine
Else
Response.Write " <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(7,6) & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><a href=""" & ScriptName & "?" & HideForumCat & "=Y"">" & getCurrentIcon(strIconMinus,"Collapse This Category","") & "</a> <b>Birthdays</b></font></td>" & vbNewLine
End If
Response.Write " </tr>" & vbNewLine
If Request.Cookies(HideForumCat) <> "Y" Then
Response.write " <tr>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strForumCellColor & """ colspan=""1"" rowspan=""" & intBDRowSpan & """ valign=""middle"">" & getCurrentIcon(strIconBirthdays,"","") & vbNewLine & _
" </td>" & vbNewLine
If (NOT bolTodaysBD) AND (NOT bolUpcomingBD) AND (NOT bolRecentBD) Then
Response.Write " <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(7,5) & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>None today." & vbNewLine
Else
Response.Write " <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(7,5) & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & strTodaysBD & "</font>" & vbNewLine & _
" </td></tr>" & vbNewLine
If bolUpcomingBD Then
strSqlC="SELECT COUNT(MEMBER_ID) AS CNT FROM " & strMemberTablePrefix & "MEMBERS WHERE (M_DOB<>'' AND M_STATUS=1 AND RIGHT(M_DOB,4)>'" & STRBDTODAY & "')"
Set rsC=my_conn.Execute(strSqlC)
intCnt=0
If not rsC.EOF Then
intCnt=rsC("Cnt")
strSql1="SELECT MEMBER_ID, M_NAME, M_DOB FROM " & strMemberTablePrefix & "MEMBERS WHERE (M_DOB<>'' AND M_STATUS=1 AND RIGHT(M_DOB,4)>'" & STRBDTODAY & "') ORDER BY Right(M_DOB,4) ASC"
Set rsUp=my_Conn.Execute(strSql1)
If not rsUp.EOF Then
intI=0
rsUp.MoveFirst
Do while not rsUp.EOF
strBD=strToDate(rsUp("M_DOB") & "000000")
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & profileLink(rsUp("M_Name"), rsUp("Member_ID")) & " (" & monthName(Datepart("m",strBD, true)) & " " & day(strBD) & ")"
Response.Write ", "
Response.Write "</font>" & vbNewLine
rsUp.MoveNext
Loop
rsUp.Close
End If
Set rsUp=Nothing
rsC.Close
End If
Set rsC=Nothing
Response.Write "</td></tr>"
End If
If bolRecentBD Then
Response.Write " <tr><td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(7,5) & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & strRecentBD & "</font></td></tr>" & vbNewLine
End If
End If
Response.Write " </tr>" & vbNewLine
End If
End Sub
%>
|
Edited by - Carefree on 03 January 2014 19:12:42 |
|
|
|
MaGraham
Senior Member
USA
1297 Posts |
Posted - 03 January 2014 : 15:34:35
|
This doesn't list any of the upcoming birthdays, Carefree.
It lists "None" for today which is correct.
It lists all of the "Recent" birthdays and all of those are correct, too.
|
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley |
|
|
|
Topic |
|
|
|
