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:
Rispondi quotando
