P
|
paulyap2k 8/26/2008 |
Hi Sergey, Here is the sample code. Paste it into ListOnLoad event and enjoy. It could use some formatting like highlighting search phrase or field names. Also it doesn't add AND or OR between search parameters if you search for multiple criteria. strSearch="" |
F
|
fenhow 5/15/2009 |
Hi, i tried this and it works however the reults are showing: |
J
|
Jane 5/25/2009 |
ASPRunnerPro 6.1 dim start1,end1 strSearch="" if REQUEST("a")="advsearch" then doAssignment asearchfield,postvalue("asearchfield") if not asp_isarray(asearchfield) then set asearchfield = CreateDictionary1(0,asearchfield) end if GetCollectionBounds asearchfield,start1,end1 for field=start1 to end1 gfield=asearchfield(field) asopt=postvalue("asearchopt" & GoodFieldName(asearchfield(field))) value1=postvalue("value" & GoodFieldName(asearchfield(field))) if value1="" then value1=postvalue("value" & GoodFieldName(asearchfield(field)) & "[]") ttype=postvalue("type" & GoodFieldName(asearchfield(field))) value2=postvalue("value1" & GoodFieldName(asearchfield(field))) if value2="" then value2=postvalue("value1" & GoodFieldName(asearchfield(field)) & "[]") nnot=postvalue("not" & GoodFieldName(asearchfield(field))) if nnot="on" then nnot = "not" else nnot="" end if if bValue(value1) or asopt="Empty" then strSearch = strSearch & " " & ttype & " " strSearch = strSearch & gfield & " " & nnot & " " & asopt & " " if bValue(value1) then strSearch = strSearch & value1 else strSearch = strSearch & combinevalues(value1) end if if bValue(value2) then strSearch = strSearch & " and " & value2 end if next end if if strSearch<>"" then _ response.write "Your search was for " & strSearch |
V
|
vdrecchio 2/8/2010 |
Should this snippet also work for 6.2?? |