<% Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adCmdTable = 2 Const adCmdText = 1 strSQL = "SELECT TOP 1 * FROM news order by articledate desc" listid = Request("news") Dim objRS Set objRS = Server.CreateObject ("ADODB.Recordset") objRS.Open strSQL, connStr, adOpenForwardOnly, adLockReadOnly, adCmdText %> <% If not objrs("photo")="" then %>

<%End If%>

<%= objrs("ArticleDate")%> - <%= replace(objrs("article"), vbCrLf, "
") %>