<% dim rsArray, strSearchText, sqlText, strSearchOpt strSearchText = trim(Request("sw")) strSearchOpt = trim(Request("opt")) Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write "" Response.Write " " Response.Write "

" Response.Write "" Response.Write "" Response.Write " Search Result Page for C&F Agents " Response.Write "

" if strSearchText<>"" and strSearchOpt<>"" then if strSearchOpt=0 then sqlText = "select AIN, NAME, ADD1 from AIN where AIN like '" & strSearchText & "%'" elseif strSearchOpt=1 then sqlText = "select AIN, NAME, ADD1 from AIN where upper(NAME) like '%" & ucase(strSearchText) & "%'" elseif strSearchOpt=2 then sqlText = "select AIN, NAME, ADD1 from AIN where upper(ADD1) like '%" & ucase(strSearchText) & "%'" end if call getDBConnection(sqlText) rsArray = getRecordSet() if vartype(rsArray)<8192 or EndofFile=true then call printSorryMessage(0) else call printSearchResult(rsArray) end if else call printSorryMessage(1) end if sub printSearchResult(searchArray) Response.Write "" Response.Write "" Response.Write "

Number of matches found is " & (ubound(searchArray, 2)+1) & "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" for i=0 to ubound(searchArray, 2) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" next Response.Write "

AIN	Agent Name	Agent Address
" if vartype(searchArray(0, i))=1 or vartype(searchArray(0, i))=0 then Response.Write "UnDefined" else Response.Write searchArray(0, i) end if Response.Write "	" if vartype(searchArray(1, i))=1 or vartype(searchArray(1, i))=0 then Response.Write "Unknown" else Response.Write searchArray(1, i) end if Response.Write "	" if vartype(searchArray(2, i))=1 or vartype(searchArray(2, i))=0 then Response.Write "Unknown" else Response.Write searchArray(2, i) end if Response.Write "

" end sub sub printSorryMessage(messType) if messType=0 then Response.Write "" Response.Write "" Response.Write "

No matches were found with the given search options.

" elseif messType=1 then Response.Write "" Response.Write "" Response.Write "

Input options is/are empty or there may be an error!!! Please try again.

" end if end sub %>