admin
so ya want to edit a level? ya have to find it 1st!

<% dim look_for look_for = Request.Form("look_for") if Request.QueryString("submitted") = "yes" then %> <% dim tigResults, id set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) query = "select id, str_title, str_filename, " & _ "str_type, str_author, str_author_email, nmb_comments, bit_archived " & _ "from q3a_levels where " & _ "(str_author_email like '%" & look_for & "%') or " & _ "(str_author like '%" & look_for & "%') or " & _ "(str_type like '%" & look_for & "%') or " & _ "(str_filename like '%" & look_for & "%') or " & _ "(str_title like '%" & look_for & "%')" & _ "order by str_title" 'Response.Write("Query = [" & query & "]
") set tigRS = tigCON.Execute(query) if (tigRS.EOF) then %> Nothing in the database matches your search, try again? <% else tigResults=tigRS.getRows() 'dump to an array end if tigRS.close tigCON.close if isarray(tigResults) then Response.Write("tigResults is an array
") if ubound(tigResults,2) = 0 then 'then do a redirect! Response.Write("") end if for i=0 to ubound(tigResults,2) id = tigResults(0,i) %> <% if tigResults(7,i) then %> <% else %> <% end if %> <% next end if %>
level filename author type comments Un/Archive
<%=tigResults(1,i)%> <%=tigResults(2,i)%> <%=tigResults(4,i)%> <%=tigResults(3,i)%> <%=tigResults(6,i)%>ArchivedNot Archived
<% end if %>