<% Response.Expires = 0 Dim i,j,ix,typeFl,mx,filn,opn %> <% IncludeItemCache Response.Write "

"> "> "> <% if vbNull <> VarType(FltArray) then mx1 = UBound(FltArray,1) for i = 0 to mx1%> " Response.Write "" Response.Write "" Response.Write "" next Response.Write "" end if %>

	Field Name	Operator	Value	And/Or
	Database	Equals	<% mx = UBound(Application("dbFriendlyName")) for i = 0 to mx Response.Write "" & Application("dbFriendlyName")(i) next %>	And
Del	<% OpName = Array("Equals","Not Equal","Greater Than","Greater Than or Equals","Less Than","Less Than or Equals","Contains","Not Contains") OpOp = Array("=","<>",">",">=","<","<=","LIKE","NOT LIKE") OpType = Array(1023,1023,1023,1023,1023,1023,4,4) ix = 0 filn = FltArray(i,0) opn = FltArray(i,1) mx = UBound(FldArray,2) for j = 0 to mx if FldArray(7,j) < 12 then Response.Write "" & FldArray(0,j) ix = ix + 1 end if next Response.Write "	" mx = UBound(OpName) for j = 0 to mx if TRUE then Response.Write "" & OpName(j) next Response.Write "		" if FltArray(i,3) = "And" then Response.Write "AndOr" else Response.Write "AndOr" end if Response.Write "
	Add

<% rem Response.Write "" %>