external VDSIPP.DLL,706026714503|Doyle Montgomery

list create,2
list loadfile,2,c:\websites\pfg\newmem.txt
LIST seek,2,0
%%uid = @ITEM(2)
LIST SEEK,2,1
%%lg = @ITEM(2)

rem GET MEMBER PHOTO FROM LIST 2
rem LIST SEEK,2,2
rem %%pho = @ITEM(2)

list create,7
list loadfile,7,c:\websites\pfg\newlisting.txt
LIST seek,7,0
%%lst1 = @ITEM(7)
LIST SEEK,7,2
%%lst2 = @ITEM(7)
LIST SEEK,7,4
%%lst3 = @ITEM(7)

DIALOG CREATE,Create member account,,,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
rem DIALOG ADD,edit,f1,5,5,200,20
rem DIALOG ADD,edit,f2,25,5,200,20
rem DIALOG ADD,edit,f3,45,5,200,20
DIALOG ADD,LIST,LIST1,15,5,200,30

%%pb = 0
DIALOG ADD,PROGRESS,pbar,57,5,200,15,%%pb
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,Create member account,-1,0,691,460
INTERNET FTP,AUTHENTICATE,doyle,"gautier"
INTERNET FTP,CONNECT,ftp.chaskell.com,21
%z = "Connected..."
	list add,list1,%z
	wait 1
		%%pb = 7
		  dialog set,pbar,%%pb
		  	wait 2
	list clear,list1
	INTERNET FTP,NOOP


gosub chkcon	
INTERNET FTP,TRANSFERMODE,1
%z = "Setting Binary Transfer mode"
	list add,list1,%z
	  wait 2
list clear,list1
	%%pb = 14
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP

gosub chkcon	
INTERNET FTP,CHANGEDIR,www
rem gosub chkcon
%z = "Directory change (www)"
	list add,list1,%z
	wait 2
list clear,list1
	%%pb = 21
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP

gosub chkcon	
INTERNET FTP,CHANGEDIR,css
%z = "Directory change (css)"
	list add,list1,%z
	wait 2
list clear,list1
	%%pb = 28
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP

gosub chkcon
INTERNET FTP,CHANGEDIR,randb
%z = "Directory change (randb)"
	list add,list1,%z
  wait 2
  list clear,list1
	%%pb = 35
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP

gosub chkcon	
INTERNET FTP,MAKEDIR,%%uid
%z = "Create directory ("%%uid")"
	list add,list1,%z
  wait 2
  list clear,list1
	%%pb = 42
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP

gosub chkcon
INTERNET FTP,CHANGEDIR,%%uid
%z = "Directory change ("%%uid")"
	list add,list1,%z
  wait 2
  list clear,list1
	%%pb = 49
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP

gosub chkcon

%%cnt = 0
%%cnt = @SUCC(%%cnt)


%z = "Transfering file: ("%%lg")"
	list add,list1,%z
	INTERNET FTP,PUTFILE,c:\websites\pfg\realtorlogos\%%lg,%%lg
  wait 2

%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
  list clear,list1
	%%pb = 56
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP

gosub chkcon

rem MEMBER PHOTO
rem %z = "Transfering file: ("%%pho")"
rem 	list add,list1,%z
rem INTERNET FTP,PUTFILE,c:\websites\pfg\%%pho,%%pho
rem   wait 2
rem %e = "   Transfer...ok"
rem 	list add,list1,%e
rem 	wait 1
rem   list clear,list1
rem 	%%pb = 63
rem 	dialog set,pbar,%%pb
rem 	INTERNET FTP,NOOP
rem gosub chkcon

%z = "Transfering file: ("%%lst1")"
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\websites\pfg\%%lst1,%%lst1
  wait 2
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
  list clear,list1
	%%pb = 70
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP	

gosub chkcon
%z = "Transfering file: ("%%lst2")"
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\websites\pfg\%%lst2,%%lst2
  wait 2
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
  list clear,list1
	%%pb = 77
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP
	
gosub chkcon
%z = "Transfering file: ("%%lst3")"
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\websites\pfg\%%lst3,%%lst3
  wait 2
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
  list clear,list1
	%%pb = 84
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP		
	
gosub chkcon
%z = "Setting ASCII Transfer mode"
	list add,list1,%z
	  wait 2
list clear,list1
	%%pb = 91
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP
	
INTERNET FTP,TRANSFERMODE,0

gosub chkcon
%z = "Transfering file: ("%%uid" - realtor.html")"
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\websites\pfg\%%uid\realtor.html,realtor.html
	wait 2
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
  list clear,list1
	%%pb = 95
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP
	
gosub chkcon
%z = "Transfering file: ("%%uid" - listings.html")"
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\websites\pfg\%%uid\listings.html,listings.html
	wait 2
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
  list clear,list1
	%%pb = 97
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP
	
gosub chkcon
%z = "Transfering file: ("%%uid" - userupdate.php3")"
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\websites\pfg\%%uid\userupdate.php3,userupdate.php3
	wait 2
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
  list clear,list1
	%%pb = 98
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP
	
gosub chkcon
%z = "Transfering file: ("%%uid" - userpage.php3")"
	list add,list1,%z
INTERNET FTP,PUTFILE,c:\websites\pfg\%%uid\userpage.php3,userpage.php3
	wait 2
%e = "   Transfer...ok"
	list add,list1,%e
	wait 1
  list clear,list1
	%%pb = 100
	dialog set,pbar,%%pb
	INTERNET FTP,NOOP	

:bail
%%dolog = "Writing log file..."
	list add,list1,%%dolog
		  wait 2
%q = "Disconnecting..."
	list add,list1,%q
      %%pb = 0
	  wait 1
  list clear,list1	  
	  dialog set,pbar,%%pb
	  INTERNET FTP,NOOP
	  
%%log = @INTERNET(FTP,VIEWLOG)
list create,4
LIST ADD,4,%%log
LIST SAVEFILE,4,c:\websites\pfg\newmemlog.txt

INTERNET FTP,DISCONNECT
INTERNET FTP,DESTROY
	dialog disable,conbtn
 	dialog enable,disbtn
%q = "Account" for %%uid created..."
	list add,list1,%q
      %%pb = 100
	  dialog set,pbar,%%pb		
		 goto evloop
:disbtnbutton
:close
exit

:chkcon
%%con = @INTERNET(FTP,CONNECTED)
if @null(%%con)
	list clear,list1
	beep
	wait 1
	beep
	wait 1	
	beep
	%z = "Reconnecting..."
	list add,list1,%z
INTERNET FTP,CREATE,Create member account,-1,0,691,460
INTERNET FTP,AUTHENTICATE,doyle,"gautier"	
INTERNET FTP,CONNECT,ftp.chaskell.com,21
	%z = "Reconnected..."
	list add,list1,%z
exit
else
exit