<%
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open MM_connMembership_STRING
START_DATE = year(now) & right("00" & month(now),2) & right("00" & day(now),2) & "000000"
'& right("00" '& hour(now),2) & right("00" & minute(now),2) & right("00" & second(now),2)
sSQL = "SELECT * FROM Event WHERE START_DATE >= '" & START_DATE & "' ORDER BY START_DATE ASC"
getRecordSet_Readonly sSQL, RS
if not RS.eof then
EVENT_TITLE = RS("EVENT_TITLE")
end if
RS.close
set RS = nothing
%>
<%=EVENT_TITLE%>
|
