<%@ Language=VBScript %>

Watch and Caution Report

<% 'server.ScriptTimeout = 300 On Error Resume Next a = session("check") a = "officer" b = 0 if a <> "officer" and a <> "report" and a <> "useradmin" then b = 1 end if if b = 1 then Response.Redirect("login.htm") end if dim follow follow=Request("follow") 'if follow="true" or follow="" then ' navigate=Request.ServerVariables("HTTP_REFERER") ' navigate1=mid(navigate,Instrrev(navigate,"/")+1) ' if navigate1<>"reportleft.asp" and navigate1<>"WatchandCautionReport.asp" and navigate1<>"admin_reportleft.asp" then ' Response.Redirect("navigate.htm") ' end if 'end if criteria=Request("cmb_criteria") if criteria = "" then criteria = Request.Form("hcriteria") end if comp=Request("txt_search") if comp = "" then comp = Request.Form("hsearch") end if %>

<% if criteria = "" then %>
<% else if Request("cmb_criteria") = "ALL" then sql="select distinct cm.companycode, cm.companyname "&_ " from company_master cm, scrip_master sm where "&_ " cm.companycode = sm.companycode "&_ " order by lower(cm.companyname) " else sql="select distinct cm.companycode, cm.companyname "&_ " from company_master cm, scrip_master sm where "&_ " cm.companycode = sm.companycode and "&_ " lower(cm."&criteria&") like lower('"& Replace(comp,"'","''") &"%') "&_ " order by lower(cm.companyname) " end if Set rscomp=Server.CreateObject("Adodb.recordset") rscomp.Open sql,cn,adOpenDynamic,adLockOptimistic %> <%end if%>
Criteria Search String   <% if not rscomp.EOF then%>

Company Name    

<% If err.number <> 0 Then Response.Write err.number & " -----" & err.Description End if else Response.Write "

No records found

" end if %>