<%  
mailler="mail1@mail.com;mail2@mail.com"   
dizimail=Split(mailler,";" )  
diziboyut=Ubound(dizimail)  
For i=0 To diziboyut  
If a="" Then a=CInt(dizimail(0))  
Response.Write a   
Next  
%>