User cache %CSP.Page 0 Parameter CSPFILE = "c:\cachesys\csp\admin1\GeoMobileConnector.csp"; /csp/admin1/GeoMobileConnector.csp Parameter FileTimestamp = "60323,48627"; 1 %Boolean " New From,lbTo,Subject,Body,BodyIsStream,blnHTML,msg,CustomMsg,sc,tmpStream Set From=$$$DflFrom Set lbTo=$LB("wv@vanhoecke.be") Set Subject="GEOmobileconn. " Set Body="" Set BodyIsStream=1 Set tmpStream="" Do IOToStream^vhLib(.tmpStream,$LB("CLASSM","%CSP.Utils","OnPage")) Set blnHTML=1 Set sc="" ; Send E-mail Set sc=$$SendMiniMailXtd^cspBasis.Library(From,lbTo,Subject,tmpStream,1,blnHTML) If 'sc ; Set errmsg=$$ParseStatus^vhLib(sc)_" From="_From d WLIP^vhDBG(15,"sc="_sc) Set tmpStream="" Quit ]]> 1 lbErrTypes cache ",$LB($$$EmailToSysOp),"CSP - Error - (GEO) "_$ZDT($H,4),"§DFL_HTML§",,1) Set %cspEHandler("PageLoadError","ACTIONS","ErrPage")=$LB("") Quit ]]> 1 %Status 1 %Boolean " Write !,!,$c(9,9) Write "" Write !,$c(9,9)_"My page body",! Write "" ]]> 1 %Boolean 1 %Boolean " Write !,!,"" Write !,"",! Write !,"" ]]> 1 %Boolean " Write ! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]>