<%
set century on
set date british
=sys(3031,1256)
*amonuntnum=6000
*amountfIG=[SIX THOUSANDS ONLY]
fref=allt(transform(orequest.querystring('fref')))
rref=allt(transform(orequest.querystring('rref')))
tcmd=[select * from ("]+dbclocation+[fileref]+[") where allt(reffid)=="]+fref+[" into cursor fcursor]
&tcmd
set nocptrans to sponnamea
thesponnamea=allt(sponnamea)
tcmd=[select * from ("]+dbclocation+[details]+[") where allt(reffid)=="]+fref+[" and allt(srno)=="]+rref+[" into cursor dcursor]
&tcmd
THEHOMEADR=ALLTRIM(UPPER(homeadr))+[ ]
If Not Empty(CITY) And Not UPPER(Alltrim(CITY)) $ THEHOMEADR
THEHOMEADR=THEHOMEADR+UPPER(Alltrim(CITY))+' '
ENDIF
If Not Empty(province) And Not Alltrim(UPPER(province)) $ THEHOMEADR
THEHOMEADR=THEHOMEADR+Alltrim(UPPER(province))+' '
ENDIF
THEHOMEADR=ALLTRIM(thehomeadr)
IF EMPTY(details.pop)
placeofpassport=[PAKISTAN]
else
SELECT name FROM countries WHERE code=details.pop INTO CURSOR xc
placeofpassport=UPPER(name)
ENDIF
tcmd=[select * from (']+addbs(oprop.appstartpath)+[countries]+[') into cursor 'tcountries' where code=dcursor.pop]
&tcmd
if _tally=0
issuedatcountry=[PAKISTAN]
ELSE
issuedatcountry=UPPER(NAME)
ENDIF
SELECT [DCURSOR]
%>
FXSoft™ AcBooks©
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>
<>