<%
add = request.querystring("add")
table = request.querystring("table")
if Table <> "" then
fl = left(Table,1)
fl = ucase(fl)
Table = fl & right(Table,(len(Table)-1))
end if
column = request.querystring("column")
order = request.querystring("order")
PageTitle = "Admin - " & table
sqltext = "Select * From " & table
if column <> "" then sqltext = sqltext & " ORDER BY " & column
rs.Open sqltext, Conn
%>
Morris Pickering & Sanner - Admin
<%
thecolor = 0
if NOT rs.BOF then
' thedate = date
' thedate = replace(thedate,"/","")
while NOT rs.EOF
Name = trim(rs(column))
Id = rs("Id") * 1
thecolor = thecolor + 1
if thecolor = 2 then
bgcolor="CCCCCC"
thecolor=0
else
bgcolor="FFFFFF"
end if
if Name <> "" then jsName = replace(Name,"'","")
if jsName <> "" then jsName = replace(jsName,"""","")
response.write "| " & Name & _
" | Update | Delete | "
' if lcase(table) = "studies" then
' StrRandomize CStr(Now) & CStr(Rnd) & Id
' filename = GeneratePassword(10)
'response.write " Upload TOC | Upload Study | "
' end if
response.write "
"
rs.movenext
wend
end if
%>