function file=web_db_write(dbname_txt,db)	

nameField=fieldnames(db(1));

numFields=length(nameField);
numRec=length(db);

irec=1;
file{irec}=num2str(numFields);

for iField=1:numFields
	irec=irec+1;
	file{irec}=nameField{iField};
end

irec=irec+1; file{irec}=''; % add empty line between records

for n=1:numRec
  for iField=1:numFields
	irec=irec+1; 
	str=['file(irec)=db(n).',nameField{iField},';'];
	eval(str);
  end
irec=irec+1; file{irec}=''; % add empty line between records
end


tmp=[];
fid=fopen(dbname_txt,'w');
for i=1:length(file)
	tmp=file{i};
	fprintf(fid,'%s\n',tmp);
end
fclose(fid);