TOTAL QUALITY SOLUTION provider under ONE WINDOW

BROCHURES
 
<% set rec=server.CreateObject("adodb.recordset") rec.open "News", conn newsid=request.QueryString("newsid") if newsid<>"" then newsid=cint(newsid) else newsid=rec.fields("NewsID") end if rec.filter="NewsID=" & newsid response.write("News") %>
[ <%=rec.fields("Dated")%> ]
<%=rec.fields("Headlines")%>
<%=replace(rec.fields("Details"), vbcrlf, "

")%>

<% if session("user")="Admin" then %> <% end if%> <% rec.filter="" do while not rec.EOF %> <% if session("user")="Admin" then %> <% end if%> <% rec.movenext loop %>
[ <%=rec.fields("Dated")%> ]
<%=rec.fields("Headlines")%>
<%=left(rec.fields("Details"), 50)%>...
" class="one">more>>
')">  ')">