devo inviare una email a 4 indirizzi che però sono variabili

che estraggo da un db

codice:
Set Mail = Server.CreateObject("CDONTS.NewMail")

da = "messaggeria.viaggi@viaggi.it"
a =  ""&rs1.fields("mail_seg_settore")&""
a2=  ""&rs1.fields("mail_seg_ente")&""
ab = ""&rs1.fields("mail_dir_ente")&""
ac = ""&rs1.fields("mail_dir_settore")&""
titolo = "Inserimento Richiesta Viaggi"
mex = ciao

	Set MAIL = CreateObject("CDONTS.NewMail")
	MAIL.From = da
	MAIL.Subject = titolo
	
	MyBody = "<html><body><font face=Verdana size=2> E mail di conferma : richiesta viaggio inserita:(E' UN TEST NON RISPONDERE GRAZIE )
"
	MyBody = MyBody + "Data della richiesta:"& rs2.fields("data_ins") & " 
" & mex
	MyBody = MyBody + "Stato della richiesta:"& rs2.fields("stato") & " 
" & mex
	MyBody = MyBody + "Numero richiesta:"& rs2.fields("id") & " 
" & mex
	MyBody = MyBody + "Richiesta per :"& rs2.fields("luogo") & " 
" & mex
	MyBody = MyBody + "Centro di addebito :"& rs2.fields("cr") & " 
" & mex
	MyBody = MyBody + "Nome  :"& rs2.fields("nome") & " 
" & mex
	MyBody = MyBody + "Cognome:" & rs2.fields("cognome")& "
" & mex
	MyBody = MyBody + "Codice Individuale:" & rs2.fields("codice")& "
" & mex
	MyBody = MyBody + "Ente:" & rs2.fields("ente") & "
" & mex
	MyBody = MyBody + "Reparto:" & rs2.fields("settore") & "
" & mex
	MyBody = MyBody + "Motivo:" & rs2.fields("motivo") & "
" & mex
	MyBody = MyBody + "Note del richiedente:" & rs2.fields("note2") & "
" & mex
	    MyBody = MyBody + "</font></body></html>"
	MAIL.Body = MyBody
	MAIL.To = "a";"a2";   'riga 289   
	MAIL.CC = rs2.fields("email")
	MAIL.Bcc = ab ; ac ;
	MAIL.BodyFormat = 0
	MAIL.MailFormat = 0
	MAIL.Send
	set MAIL = nothing

l'errore che mi restituisce è
codice:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement

/viaggi/prenotazione_exe2.asp, line 289, column 13


Browser Type: