|
<%
dim look_for
look_for = Request.Form("look_for")
if Request.QueryString("submitted") = "yes" then
%>
level |
filename |
author |
type |
comments |
Un/Archive |
<%
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)
%>
<%=tigResults(1,i)%> |
<%=tigResults(2,i)%> |
<%=tigResults(4,i)%> |
<%=tigResults(3,i)%> |
<%=tigResults(6,i)%> |
<% if tigResults(7,i) then %>
Archived |
<% else %>
Not Archived |
<% end if %>
<%
next
end if
%>
<%
end if
%>
|