<% ' You must hard code the Access table here tablename = "asdf" 'Don't need to edit below here unless you want to Set RS = ConnTemp.Execute("SELECT Headline,NewsItem,PostDate,Archive FROM " & TableName & " WHERE Archive = 'Yes' order by PostDate desc ") If RS.eof then response.write "There are no news articles in the database." ' response.write SQLstmt ConnTemp.close set ConnTemp=nothing response.end end if %> <% Do While Not RS.EOF %>

<%= RS.Fields("HeadLine").Value %>   <% if RS.fields("postdate") = date then response.write "New!" else response.write "" end if %>   <%= RS.Fields("PostDate").Value %>

<% NewsItem = RS.Fields("NewsItem") NewsItem = Replace(NewsItem, vbCrLf, " ") Response.Write NewsItem %>   <% RS.MoveNext Loop %>

<% RS.Close Set RS = Nothing ConnTemp.Close Set ConnTemp = Nothing %>