#INCLUDE WCONNECT.H
DEFINE CLASS MeetingsOld AS rbPage
Function Page()
This.Data()
This.Content = This.MeetingsHTMLTable()
This.PageTitle = [Past Meetings]
This.Merge("TemplatePage.htm")
USE IN (SELECT('qResult'))
EndFunc
HIDDEN FUNCTION Data()
LOCAL ldToday
ldToday = date()
Select mdate, bctopic, bcdescript, mt, mtdescript, ;
bspeaker as bcspeaker, ;
mspeaker as mtspeaker ;
from (Site.DataPath + "Meetings.dbf") ;
LEFT OUTER JOIN (Site.DataPath + "Speaker.dbf") as begin ON begin.speakerid = bspeakerid ;
LEFT OUTER JOIN (Site.DataPath + "Speaker.dbf") as main ON main.speakerid = mspeakerid ;
Where ( mDate < ldToday ) AND NOT EMPTY(mDate);
Order by mdate DESC;
Into Cursor qResult NOFILTER readwrite
SELECT qResult
Replace bcspeaker WITH [] FOR ISNULL(bcspeaker)
Replace mtspeaker WITH [] FOR ISNULL(mtspeaker)
GO Top
ENDFUNC
HIDDEN FUNCTION MeetingsHTMLTable()
Local lnOldArea
Local lcName
Local lcPass
Local loPopup
Local lcSiteID
Local lnSeconds
Local lnRecordCount
Local loHTML, loCGI, llRowStarted
LOCAL lcContent
lcContent = ""
llRowStarted = .f.
lnOldArea = Select()
lnRecordCOunt = _TALLY
If RecCount("qResult") <> 0
lcContent = [<b><font size="4">Past Meetings</font></b><br><Table width="610">]
Select qResult
SCAN
lcContent = lcContent + ;
[<tr> ] + CHR(13) + ;
[ <td width="10%" bgcolor="#C0C0C0" bordercolor="#969696">] + dtoc(qResult.mDate) + [</td> ] + CHR(13) + ;
[ <td width="45%" bgcolor="#C0C0C0"> ] + CHR(13) + ;
[ <p align="left"><font color="#000000">Jump Start</font></td> ] + CHR(13) + ;
[ <td width="45%" bgcolor="#C0C0C0"> ] + CHR(13) + ;
[ <p align="left"><font color="#000000">] + qResult.BCSpeaker + [</font> </td> ] + CHR(13) + ;
[</tr> ] + CHR(13) + ;
[<tr> ] + CHR(13) + ;
[ <td width="10%" rowspan="5"> </td> ] + CHR(13) + ;
[ <td width="93%" colspan="2" bgcolor="#C0C0C0"> ] + CHR(13) + ;
[ <p align="left"><font color="#000000">] + qResult.BCTopic + [</font> </td> ] + CHR(13) + ;
[</tr> ] + CHR(13) + ;
[<tr> ] + CHR(13) + ;
[ <td width="93%" colspan="2">] + qResult.BCDescript + [<P> </td> ] + CHR(13) + ;
[</tr> ] + CHR(13) + ;
[<tr> ] + CHR(13) + ;
[ <td width="45%" bgcolor="#C0C0C0"> ] + CHR(13) + ;
[ <p align="left"><font color="#000000">Main Topic</font></td> ] + CHR(13) + ;
[ <td width="45%" bgcolor="#C0C0C0"> ] + CHR(13) + ;
[ <p align="left"><font color="#000000">] + qResult.MTSpeaker + [</font> </td> ] + CHR(13) + ;
[</tr> ] + CHR(13) + ;
[<tr> ] + CHR(13) + ;
[ <td width="93%" colspan="2" bgcolor="#C0C0C0"> ] + CHR(13) + ;
[ <p align="left"><font color="#000000">] + qResult.MT + [</font> </td> ] + CHR(13) + ;
[</tr> ] + CHR(13) + ;
[<tr> ] + CHR(13) + ;
[ <td width="93%" colspan="2">] + qResult.MTDescript + [<p> </td> ] + CHR(13) + ;
[</tr> ] ;
ENDSCAN
Else
lcContent = [Stay tuned for upcoming meetings]
Endif
Select (lnOldArea)
RETURN lcContent+[</table>]
EndFunc
ENDDEFINE
csCodeParser v0.9 stats: 130 lines in 0.00 seconds.