<loop code=perl db=kunden>
foreach $v('Id','Firma','Abteilung','Strasse','NR','PLZ','Ort'){
  $$v=~s/([\\\'\"])/\\$1/gi;
}
out "insert into customer ( id,name,department_1,department_2,street,zipcode,city,country,contact,phone,fax,homepage,email,notes,discount,taxincluded,creditlimit,terms,customernumber,cc,bcc,business_id,taxnumber,sic_code,account_number,bank_code,bank,language,datevexport,itime,mtime,obsolete,username,user_password,salesman_id,c_vendor_id,klass,language_id,payment_id,taxzone_id,greeting,ustid 
) values('','$Firma','$Abteilung','','$Strasse $NR','$PLZ','$Ort','$Nation','','$Telefon','','','$EMail','$Nachricht','','','','$KundenId','','','','','','','','','','','','','','','','','','','','','','','',);";
</loop>