<%
newsletter = "-over"
%>
<%
status = request ("status")
if status = "" then status = "1"
InfoType = request ("InfoType")
if InfoType = "" then InfoType = "4"
sqltext = "SELECT id,Title,Summary,Date FROM Safety_New WHERE Status = " & 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 & _
replace(rs("Summary"),vbCrLf,"
") & "
View Newsletter
" & vbCrLf
rs.MoveNext
Loop
end if
rs.close
if theList = "" then theList = "No Items Found!"
%>
<% If Status = "1" then %>
View Archive Subscribe to Newsletter
<% End If %>
<%=theList%>
