strMail = strMail & rs("Email") & ";"