teşekkürler CInt komutuda hata verdi ama şu şekilde yapınca düzeldi
mailler2="mail1@mail.com;mail2@mail.com"   
dizimail=Split(mailler2,";" )  
diziboyut=Ubound(dizimail)  

For i=0 To diziboyut  
If a="" Then a=dizimail(i)  
Response.Write a