<%
theType = request.querystring("thetype")
sqltext = "Select * From news ORDER BY theDate DESC"
rs.Open sqltext, Conn
%>
Morris Pickering & Sanner - Admin: News List
Morris Pickering & Sanner - News List
Select a Headline on the list to modify it's information.
<%
thecolor = 0
if NOT rs.BOF then
while NOT rs.EOF
ID = rs("id")
Headline = trim(rs("Headline"))
thecolor = thecolor + 1
if thecolor = 2 then
bgcolor="White"
thecolor=0
else
bgcolor="CCCCCC"
end if
if Headline <> "" then jsHeadline = replace(Headline,"'","")
response.write "| " & Headline & _
" | Update Headline | Delete Headline |
"
rs.movenext
wend
end if
%>