<%
c=1
set AnnLst = server.CreateObject ("ADODB.Recordset")
str="select * from event_info where event_category_id=1 and event_sub_category ='"&subcat&"' and event_status=1 order by event_start_date desc"
set AnnLst = adoConn.Execute(str)
%>
<% if not AnnLst.EOF then%>
<%while not AnnLst.EOF%>
<%
tmp=FormatDateTime(AnnLst.Fields("event_start_date"),1)
arrVal= split(tmp,",")
tmp=FormatDateTime(AnnLst.Fields("event_end_date"),1)
arrVal1= split(tmp,",")
%>
| <%=c%> |
<%=AnnLst("event_title")%>
(Date :- <%= right(trim(arrVal(1)),2)& "-" & left(trim(arrVal(1)),3) & "-" & left(trim(arrVal(2)),4)%>
<% if DateDiff("d",AnnLst.Fields("event_start_date"), AnnLst.Fields("event_end_date")) > 0 then %>
to <%= right(trim(arrVal1(1)),2)& "-" & left(trim(arrVal1(1)),3) & "-" & left(trim(arrVal1(2)),4)%>
<% end if %>
<% if AnnLst.Fields("event_start_hr") <> "hh" then %>
, Time :- <%=AnnLst("event_start_hr")%>:<%=AnnLst("event_start_min")%> <%=AnnLst("event_start_am_pm")%> to <%=AnnLst("event_end_hr")%>:<%=AnnLst("event_end_min")%> <%=AnnLst("event_end_am_pm")%>)
<% else Response.write ")" end if %>
|
| |
<%=left(AnnLst("event_desc"), 175)%>... |
 |
| Read More about >> |
|
<%
c=c+1
AnnLst.MoveNext()
Wend
%>
<%else%>
| No current event at the moment. Go to Archives for past events. |
<%end if%>
|
