foxpro-gen-html-input

clos data
set dele on
store 'MENU' to mmm
use edward in 0
use result in 0
sele edward
r=''
r2=''
r3=''
r3a='stat="update '+mmm+' set '
r3b1='stat="insert into '+mmm+' ('
*stat="insert into menu (userid,password,divisionPermit,companyPermit) values ('" & q & "','"&mPassword&"',"&"'"&mdivisionPermit&"',"&"'"&mcompanyPermit&"');"
r3b2=''
i1=1
set memo to 200
dl=''
scan for name=mmm
? zdatabase
s1=allt(zdatabase)
s2=allt(label)
r=r+'<div>'+s2+'</div>'+chr(13)
r=r+'<div id="login-box-field">'+chr(13)
r=r+' <input '+chr(13)
r=r+' id="'+s1+'"'+chr(13)
r=r+' name="'+s1+'" '+chr(13)
r=r+' autocomplete=off '+chr(13)
r=r+' type="text" '+chr(13)
r=r+' class="form-login" '+chr(13)
r=r+' title="'+s1+'" value="" size="30" maxlength="30" />'+chr(13)
r=r+'</div>'+chr(13)
r2=r2+'_refreshv("'+s1+'",values['+allt(str(i1))+']);'+chr(13)
r3=r3+'m'+proper(s1)+'=Request.Form("'+s1+'")'+chr(13)
r3a=r3a+dl+s1+'='+"'"+'"&'+'m'+proper(s1)+'& "'+"'"
r3b1=r3b1+dl+s1
r3b2=r3b2+dl+chr(39)+'"&m'+proper(s1)+'&"'+chr(39)
dl=','
*divisionPermit='"&mdivisionPermit&"',companyPermit='"&mcompanyPermit&"',password='"&_mPassword&"' where userid='" & q &"';"'
i1=i1+1
endscan
r3a=r3a+' where Recordid='+chr(39)+'" & q &"'+chr(39)+';"'
? r3a
insertStatement= r3b1+') values (' +r3b2+')'+'"'
sele result
locate for allt(name)==allt(mmm)
if not found()
insert into result (name) values (mmm)
endif
replace html with r
replace ajax with r2
replace aspSave with r3+chr(13)+chr(13)+r3a+chr(13)+chr(13)+insertStatement
brow field aspSave,html,ajax, name