Sample of ASP pages created by Ultradev

<%
var NewsRecentRecordset = Server.CreateObject("ADODB.Recordset");
NewsRecentRecordset.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[pathname]/ENGLextranet.mdb";
NewsRecentRecordset.Source = "SELECT NewsID, NewsEventTitle, NewsShort, NewsReleaseDate, EventDate, EventTime, EventLocation, PermanentItem, DesktopGeneral FROM DeptNews WHERE DesktopGeneral = '"+ NewsRecentRecordset__MMColParam.replace(/'/g, "''") + "' AND PermanentItem = '"+ NewsRecentRecordset__MMColParam2.replace(/'/g, "''") + "' ORDER BY NewsReleaseDate DESC";
NewsRecentRecordset.CursorType = 0;
NewsRecentRecordset.CursorLocation = 2;
NewsRecentRecordset.LockType = 3;
NewsRecentRecordset.Open();
var NewsRecentRecordset_numRows = 0;
%>

<TABLE width="97%" border="0" align="center">
<TR>
<TD><%=(NewsPermanentRecordset.Fields.Item("NewsShort").Value)%><I>&nbsp;<B><I>
<% if (NewsPermanentRecordset.Fields.Item("EventDate").Value !== "") %><FONT size="-1">
     <%=(NewsPermanentRecordset.Fields.Item("EventDate").Value)%>
<% if (NewsPermanentRecordset.Fields.Item("EventTime").Value !== "") %>,&nbsp;
    <%=(NewsPermanentRecordset.Fields.Item("EventTime").Value)%>
<% if (NewsPermanentRecordset.Fields.Item("EventLocation").Value !== "") %>,&nbsp;
     <%=(NewsPermanentRecordset.Fields.Item("EventLocation").Value)%></FONT></I></B><FONT color="#CC6600" size="-1">
</FONT></I></TD>
</TR>
</TABLE>