% Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adCmdTable = 2 Const adCmdText = 1 strSQL = "SELECT * FROM news where nid=" & Request("news")& " " 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, "
")%>