<% =ContentTitle %>

<% =ContentDetails %> <% If NOT isEmpty(Request("nid")) AND isNumeric(Request("nid")) Then sqlQuery = "SELECT * FROM events WHERE onflag='Y' AND publishedsites LIKE '%" & thispublishedwebsite & "%' AND newsid=" & sqlinject(Request("nid")) Else sqlQuery = "SELECT * FROM events WHERE onflag='Y' AND publishedsites LIKE '%" & thispublishedwebsite & "%' order by sequenceno, newsid" End If Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = MM_STRING objRS.Source = sqlQuery objRS.CursorType = 0 objRS.CursorLocation = 2 objRS.LockType = 1 objRS.Open() If Not objRS.EOF Then Do WHILE NOT objRS.EOF If date() <= objRS("ExpiryDate") Then %>

<% =objRS("headline") %>

" alt="<% =objRS("headline") %>" title="<% =objRS("headline") %>" style="float: right; margin: 5px; padding: 5px; border: 1px; background-color: #eee;" /><% =objRS("NewsStory") %>

<% End If objRS.MoveNext Loop End If objRS.Close %>