<%
=sys(3101,1256)
fref=orequest.querystring('fref')
if isnull(fref)
    fref=orequest.form('fref')
endif
if isnull(fref)
    return 'fref, fdet'
endif
det=orequest.querystring('det')
if isnull(det)
    det=orequest.form('det')
endif
if isnull(det)
    det=[0001]
ENDIF
select prof from (dbclocation+[details]) where allt(reffid)==fref and allt(srno)==det into cursor x
oResponse.ContentType = "text/plain charset:windows-1256"
oresponse.write(allt(prof))

%>