<% 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 %>