<%
sqltext = "Select * From Careers Order By Title"
rs.Open sqltext, Conn
%>
Morris Pickering & Sanner - Admin: Job List
Morris Pickering & Sanner - Careers List
Select a career on the list to modify it's information.
<%
thecolor = 0
if NOT rs.BOF then
while NOT rs.EOF
ID = rs("id")
Title = trim(rs("Title"))
thecolor = thecolor + 1
if thecolor = 2 then
bgcolor="White"
thecolor=0
else
bgcolor="CCCCCC"
end if
jsTitle = replace(Title,"'","")
response.write "| " & Title & _
" | Update Job | Delete Job |
"
rs.movenext
wend
end if
%>