Dim strMailler, splitMail, item
strMailler = "mail1@domain.com; mail2@domain.net"   
splitMail = Split(strMailler, ";")

For Each item in splitMail
	item = Trim(item)
	Response.Write item & "<br /><br />"
Next