![]() |
Sergey Kornilov admin 8/28/2004 |
Hi, ' advanced search if Request.Form("action")="AdvancedSearch" then sWhere="" For i = 1 To Request.Form("SearchFor").Count strSearchFor=UCase(Trim(Request.Form("SearchFor")(i))) strSearchFor2=UCase(Trim(Request.Form("SearchFor2")(i))) if strSearchFor<>"" then if sWhere="" then sWhere=" where 1=1" strSearchOption=Trim(Request.Form("SearchOption")(i)) sWhere = sWhere & " and UCase(" & AddWrappers(Request.Form("FieldName")(i)) & ") " & StrWhere(Request.Form("FieldName")(i), strSearchFor, strSearchOption, strSearchFor2) end if next if InStr(strSQL, " where ") > 0 then sWhere = " and (" & Mid(sWhere, 8) & " ) " strSQL = strSQL & sWhere end if
|
|
501074 9/15/2004 |
Thanks, |
![]() |
Sergey Kornilov admin 9/15/2004 |
Hi, |