external VDSIPP.DLL,706026714503|Doyle Montgomery
DIALOG CREATE,Update Website,,,210,120,
DIALOG ADD, STYLE,stybtn1,arial,8,CB,,,
DIALOG ADD, STYLE,grp1,arial,8,CB,white,white,
DIALOG ADD, STYLE,btntxt1,tahoma,,bc,,black
DIALOG ADD, STYLE,stytxt1,arial,8,lb,,ltblue
DIALOG ADD, STYLE,stytxt2,tahoma,8,LB,,black
DIALOG ADD, STYLE,stytxt3,arial,8,lb,,dkblue
DIALOG ADD,STYLE,Bold,MS Sans Serif,8,B
DIALOG ADD, STYLE,lsttxt1,tahoma,8,L,,black
DIALOG ADD,GROUP,g1,1,1,208,118,,,grp1
DIALOG ADD,LIST,LIST1,5,5,200,30
%%pb = 0
DIALOG ADD,PROGRESS,pbar,37,5,200,15,%%pb
DIALOG ADD,CHECK,cbox,58,11,165,25,Update rate changes only,1,stytxt3
DIALOG ADD,button,conbtn,90,9,84,20,Connect,btntxt1
DIALOG ADD,button,disbtn,90,115,84,20,Exit,btntxt1
rem dialog disable,disbtn x
DIALOG SHOW
:evloop
wait event
goto @event(%e)
  wait 0.1,event
  %E = @event()
  	goto %E



:conbtnbutton
list create,1
dialog enable,disbtn
	dialog disable,conbtn
INTERNET FTP,CREATE,Update PFG,-1,0,691,460
INTERNET FTP,AUTHENTICATE,dave,"plainsme"
INTERNET FTP,CONNECT,ftp.plainsmen.net,21
%z = "Connected..."
	list add,list1,%z
	wait 1
		%%pb = 1
		  dialog set,pbar,%%pb
		  	wait 2
	list clear,list1
	
INTERNET FTP,TRANSFERMODE,0
%z = "ASCII Transfer mode"
	list add,list1,%z
	  wait 2
list clear,list1
	%%pb = 2
	dialog set,pbar,%%pb


INTERNET FTP,CHANGEDIR,www
%z = "Directory change (www)"
	list add,list1,%z
	wait 2
list clear,list1
	%%pb = 3
	dialog set,pbar,%%pb
	  
	
INTERNET FTP,CHANGEDIR,css
%z = "Directory change (css)"
	list add,list1,%z
  wait 2
  list clear,list1
	%%pb = 4
	dialog set,pbar,%%pb
  
%%cnt = 0

%%cnt = @SUCC(%%cnt)
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z	
INTERNET FTP,PUTFILE,c:\pfg\RATES.HTM,rates.htm
wait 2
INTERNET FTP,NOOP
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
	list clear,list1
	%%pb = 7
	dialog set,pbar,%%pb
%%cb = @dlgtext(cbox)
if @null(%%cb)
goto doall
else
goto bail
end

:doall
%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\ABOUT.HTM,about.htm
wait 1
INTERNET FTP,NOOP
%e = "   Transfer...ok"
	list add,list1,%e
	  wait 2
  list clear,list1
  %%pb = 14
  dialog set,pbar,%%pb	

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\LABOUT.HTM,labout.htm
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
  %%pb = 21
  dialog set,pbar,%%pb

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\REFI.HTM,refi.htm
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
    %%pb = 28
	dialog set,pbar,%%pb
	
%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\moreinfo.html,moreinfo.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
    %%pb = 35
	dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\convloans.html,convloans.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 42
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\fhaloans.html,fhaloans.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1		
    %%pb = 49
	dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\103spec.html,103spec.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 56
	  dialog set,pbar,%%pb  
	
%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\jumbo.html,jumbo.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 63
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\invsrent.html,invsrent.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 70
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\infodnpymnt.html,infodnpymnt.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 77
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\infocshbck.html,infocshbck.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 84
	  dialog set,pbar,%%pb  

%%cnt = @SUCC(%%cnt)	
%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\infocrntmtg.html,infocrntmtg.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 91
	  dialog set,pbar,%%pb
	  
%%cnt = @SUCC(%%cnt)	



%z = "Uploading file" "("%%cnt")"..."
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\pfg\membermoreinfo.html,membermoreinfo.html
wait 1
INTERNET FTP,NOOP
	list add,list1,%e
	  wait 2
  list clear,list1
      %%pb = 100
	  dialog set,pbar,%%pb	    

:bail
%%dolog = "Writing log file..."
	list add,list1,%%dolog
		  wait 2
%q = "Upload complete..."
	list add,list1,%q
      %%pb = 100
	  dialog set,pbar,%%pb	
%%log = @INTERNET(FTP,VIEWLOG)
list create,4
LIST ADD,4,%%log
LIST SAVEFILE,4,c:\pfg\ftplog.txt

INTERNET FTP,DISCONNECT
INTERNET FTP,DESTROY
	dialog disable,conbtn
 	dialog enable,disbtn
		 goto evloop
:disbtnbutton
:close
exit