<%
Response.Expires = 0
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Comm = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
rcolist = "BugID,Status," & Session("FieldList")
if Session("FieldSort") <> "" then
rcosort = " ORDER BY " & Session("FieldSort")
else
rcosort = ""
end if
rem Response.Write Session("FieldList") & Session("FieldSort")
rfilt = Session("Filter")
rem Response.Write Request.QueryString
Conn.Open Session("DSN")
if rfilt = "" then
rfilt = "Status = 'x'"
end if
Comm.CommandText = "Select "+rcolist+" from bugs where "+rfilt+rcosort
Set Comm.ActiveConnection = Conn
Set RS.Source = Comm
Response.Write ""
Response.Write ""
RS.Open
of = 0
for each n in RS.Fields
if of < 2 then
if of = 1 then
Response.Write " | "
else
Response.Write " | "
end if
else
Response.Write "" & n.Name & " | "
end if
of = of + 1
next
Response.Write "
"
r = 0
do until RS.EOF
Response.Write ""
fSt = TRUE
of = 0
for each n in RS.Fields
if of = 0 then
Response.Write "" & n.Value & " | "
ElseIf of = 1 then
Select Case n.Value
Case "Closed"
s = "clo.gif"
Case "Resolved"
s = "res.gif"
Case else
s = "act.gif"
End Select
Response.Write " & s & chr(34) & ) | "
else
Response.Write "" & n.Value & " | "
end if
of = of + 1
next
Response.Write "
"
RS.MoveNext
r = r + 1
loop
RS.close
Response.Write "
"
conn.close
%>