<% ' Created By CodeGrinders Incorporated ' Copyright © 2000 CodeGrinders, Incorporated - All rights reserved ' Web: www.codegrinders.com ' email: info@codegrinders.com ' All rights, title, and interest to the Source Code on the internet / extranet / intranet sites belongs to CodeGrinders, Inc. ' Distribution OR Reproduction of the source code is prohibited without a written authorization from CodeGrinders Incorporated. 'create the component instance Set Tools = Server.CreateObject("NETsilicon_SQL.Tools") Dim HTML_String session("ToolsKeyword") = request("ToolsKeyword") if (session("UserRestrictionID") = 3 Or session("UserRestrictionID") = 4) AND (ISNUMERIC(request("ToolsCreatedByUserID"))) then if request("ToolsCreatedByUserID") > 0 then session("ToolsCreatedByUserID") = request("ToolsCreatedByUserID") else session("ToolsCreatedByUserID") = "" end if else session("ToolsCreatedByUserID") = "" end if if session("UserRestrictionID") = 3 Or session("UserRestrictionID") = 4 then if request("ToolsStatusID") = "" OR request("ToolsStatusID") = "0" then session("ToolsStatusID") = "" else session("ToolsStatusID") = request("ToolsStatusID") end if else session("ToolsStatusID") = "" end if session("ToolsTypeID") = "1" session("ToolsMultiID2") = 3 session("ToolsMultiID1") = "" session("ToolsSortBy") = request("ToolsSortBy") session("ToolsCreatedStartDate") = FormatDateTime("1/1/00") session("ToolsCreatedEndDate") = FormatDateTime(now()) session("ToolsModifiedStartDate") = FormatDateTime("1/1/00") session("ToolsModifiedEndDate") = FormatDateTime(now()) %>