<%
whatsnew = "-over"
%>
<%
status = request ("status")
if status = "" then status = "1,3"
InfoType = request ("InfoType")
if InfoType = "" then InfoType = "3"
sqltext = "SELECT id,Title,Date,Summary FROM Safety_New WHERE Status IN (" & Status & ") AND InfoType = " & InfoType & " ORDER BY Date DESC"
rs.open sqltext,conn,2,2
if NOT rs.BOF then
Do While not rs.eof
theList = theList & "" & trim(rs("Title")) & "
" & vbCrLf & _
rs("Date") & "
" & vbCrLf & "![](/images/upload/sm" & InfoType & "/newsletter" & rs("id") & ".jpg)
" & _
replace(rs("Summary"),vbCrLf,"
") & "
" & vbCrLf
rs.MoveNext
Loop
end if
rs.close
if theList = "" then theList = "No Items Found!"
%>
<% If Status = "1,3" then %>
View Archive
<% End If %>
<%=theList%>
