Index: ORGAWWWSHOWROOM.mac.rou =================================================================== diff -u -r734 -r2415 --- ORGAWWWSHOWROOM.mac.rou (.../ORGAWWWSHOWROOM.mac.rou) (revision 734) +++ ORGAWWWSHOWROOM.mac.rou (.../ORGAWWWSHOWROOM.mac.rou) (revision 2415) @@ -34,7 +34,7 @@ . Set Land=$P(rec,D,8) . Set Land=$S(Land=1019:1,Land=1147:2,1:3) . Set Data(Land_PostNr_KLNm)=KLNm_L_PostNr_L_Gemeente_L_Straat_L_TelNr_L_URL_L_Land_L_OpenDeur_L_BeginDtm_L_EindDtm - + Set Dir="\\NOTES01\c$\" Set FileNm="adresData.js" Set Dev=0 @@ -56,10 +56,11 @@ set err=$$SendFile^FTP(Dir_FileNm,"testWWW/Orgalux/",FileNm,"192.168.100.2","Tineke","T!neKe") If $L(err) Do Quit . Set Status=$$SendMiniMail^vhLib("CACHE01@VANHOECKE.BE",$LB("PV@VANHOECKE.BE"),$ZN_" : ftp mistlukt naar test WWW, ftp naar WWW niet uitgevoerd","Fout : "_err) - + ; versturen naar WWW Set err=$$SendFile^FTP(Dir_FileNm,"WWW/Orgalux/",FileNm,"192.168.100.2","Tineke","T!neKe") Set:$L(err) Status=$$SendMiniMail^vhLib("CACHE01@VANHOECKE.BE",$LB("PV@VANHOECKE.BE"),$ZN_" : ftp mistlukt naar WWW","Fout : "_err) - + Quit + \ No newline at end of file