<%
idstring=nvl(orequest.form('id'),'')
TIMEGOT=strextract(idstring,'bulk','sps')
spotgot=val(strextract(idstring,'sps','spe'))
recordgot=val(strextract(idstring,'spers','re'))
theuniquetr=upper(strextract(idstring,'unis','unie'))
NYEAR=VAL(subst(timegot,1,4))
NMONTH=VAL(subst(timegot,5,2))
NDAY=VAL(subst(timegot,7,2))
NHOUR=VAL(subst(timegot,9,2))
NMINUTE=VAL(subst(timegot,11,2))
NSECOND=VAL(subst(timegot,13,2))
timesolved=datetime(NYEAR, NMONTH, NDAY, NHOUR, NMINUTE, NSECOND)
tsql=[select y.transid from (']+dbclocation+[cashsale') x inner join (']+dbclocation+[cashdata') y on (x.transid=y.transid) where x.dtime=timesolved and x.uniquetr=']+theuniquetr+[' into cursor recsmatch]
&tsql
do case  
    case _tally>=recordgot
        return 'THUMBUP'
    case _tally=0 
        RETURN 'MISSING'
    other 
        return 'DOUBT'+allt(transform(_tally)) 
ENDCASE
%>