HG Litigation Services - Going Green!

<% Private Function ReturnUpcomingEventsRows() Dim sb, regEx set sb = NEW_StringBuilder Set regEx = New RegExp ' Get 3 Upcoming Events from DB DIM P_SQL, rs_UpcomingEvents P_SQL="SELECT TOP 3 EventID,[Event Name], [Event Date],Description, [start date],[end date],link FROM [whats New] WHERE [Event Date]>= '"&todaydate&"' ORDER BY [Event Date] ASC" set rs_UpcomingEvents=Server.CreateObject("ADODB.recordset") rs_UpcomingEvents.Open P_SQL, conn IF rs_UpcomingEvents.EOF or rs_UpcomingEvents.BOF then sb.Append "

No Events.

" ELSE sb.Append "" iRow=0 Do while NOT rs_UpcomingEvents.EOF If iRow Mod 2 = 0 Then rowcolor="whatsnewoddrow" else rowcolor="whatsnewevenrow" end if starttext="" endtext="" if(rs_UpcomingEvents("start date")<>"" and rs_UpcomingEvents("end date")<>"") then if((Year(rs_UpcomingEvents("start date"))=Year(rs_UpcomingEvents("end date"))) and (Month(rs_UpcomingEvents("start date"))=Month(rs_UpcomingEvents("end date")))) then starttext=MonthName(Month(rs_UpcomingEvents("start date"))) &space(1)& CStr(Day(rs_UpcomingEvents("start date"))) endtext=CStr(Day(rs_UpcomingEvents("end date"))) &", "& CStr(Year(rs_UpcomingEvents("start date"))) else if(Year(rs_UpcomingEvents("start date"))=Year(rs_UpcomingEvents("end date"))) then starttext=MonthName(Month(rs_UpcomingEvents("start date"))) &space(1)& CStr(Day(rs_UpcomingEvents("start date"))) endtext=MonthName(Month(rs_UpcomingEvents("end date"))) &space(1)& CStr(Day(rs_UpcomingEvents("end date"))) &", "& CStr(Year(rs_UpcomingEvents("end date"))) else starttext=MonthName(Month(rs_UpcomingEvents("start date"))) &space(1)& CStr(Day(rs_UpcomingEvents("start date"))) &", "& CStr(Year(rs_UpcomingEvents("start date"))) endtext=MonthName(Month(rs_UpcomingEvents("end date"))) &space(1)& CStr(Day(rs_UpcomingEvents("end date"))) &", "& CStr(Year(rs_UpcomingEvents("end date"))) end if end if end if sb.Append "" sb.Append ""&starttext&" - "&endtext&"

more" else sb.Append "more" end if sb.Append "" rs_UpcomingEvents.MoveNext iRow=iRow+1 LOOP END IF sb.Append "

"& rs_UpcomingEvents("Event Name")&"
" if(rs_UpcomingEvents("start date")<>"") then 'sb.Append ""&rs_UpcomingEvents("start date") &" - "& rs_UpcomingEvents("end date") &"

" ReturnUpcomingEventsRows = sb.ToString() End Function %> HG Litigation Services - Going Green!

		HOME // schedule reporter // client log-in // reporter log-in // Records Retrieval log-in

Go Green With HG!


	Going Green Information Check back soon for more info!


	home // reporter resources // client resources // services // online requests // contact // what's new // intranet // terms and conditions
	HG Litigation Services. © 2007-2008 HG Litigation Services. All rights reserved.