<% dim adoCn dim strSQL set adoCn = Server.CreateObject("ADODB.Connection") adoCn.Open strConn dim adoRs set adoRs = Server.CreateObject("ADODB.Recordset") if Request.QueryString("action")="Desc" then strSQL = "Select * From Category order by CatName Desc" Else strSQL = "Select * From Category order by CatName Asc" End If %> <% adoRs.Open strSQL, adoCn, 3, 1, &H0001 %> <% If adoRs.RecordCount = 0 Then %> <% Response.End Else End IF %> <% dim TrColor If TrColor="white" Then TrColor="#efefef" Else TrColor="white" END IF %>


             
<% adoRs.Close set adoRs = nothing adoCn.Close set adoCn = nothing %>