[Resolvido] Enviar 1 Formulario Para Varios Emails

tem mais codigo mais eu preciso fazer o seguinte que ester formulario com os campos sejam enviado ele envia pra um email so ja mas quero

que envie para 2 emails ou mais ao msm tempo !!

ja tentei criar outra variavel mais nao funciona ja tentei colocar ; e tbm nao funciona !!!

alguem tem uma Ideia ai pra me passar ?

mensagem = Replace(mensagem,chr(13),"<br>") 'Trocando o caractere 13 (ENTER) por quebra de linha
 mensagem = Replace(mensagem, vbCrLf, "<BR>") ' Inserindo a quebra de linha
 mensagem = Replace(mensagem, " ", " ")

 Function EnviaMail2(vbody, vToNome, vToEmail, vFromNome, vFromEmail, vAssunto)
	Dim objMessage
	Dim vResultado
	vResultado = 0
	Set objMessage = CreateObject("CDO.Message")
	'On Error Resume Next
	objMessage.Subject = vAssunto
	objMessage.From = vFromNome & " <" & vFromEmail & ">"
	objMessage.To = vToNome & " <" & vToEmail & ">"
	objMessage.HTMLBody = vbody
	objMessage.Configuration.Fields.Item("[http://schemas.microsoft.com/cdo/configuration/sendusing")](http://schemas.microsoft.com/cdo/configuration/sendusing) = 2
	objMessage.Configuration.Fields.Item("[http://schemas.microsoft.com/cdo/configuration/smtpserver")](http://schemas.microsoft.com/cdo/configuration/smtpserver) = "server-1.netguestdns.com.br"
	objMessage.Configuration.Fields.Update
	objMessage.Send
	if err.number <> 0 then
 vResultado = 0
	else
 vResultado = 1
	end if
	set objMessage = nothing
	EnviaMail2 = vResultado
 End Function

 'Corpo da Mensagem
 strBody = "Olá"

 'Nome Destinatário
 strToNome = "Marketing"
 'Email Destinatário
 strToEmail = "marketing@proar.aero"

 'Nome do Rementente
 strFromNome = nome
 'Email do Rementente (conta cadastrada no smpt do cliente)
 strFromEmail = email

 'Assunto da mensagem
 strAssunto = "Avaliação"

 If EnviaMail2(strBody, strToNome, strToEmail, strFromNome, strFromEmail, strAssunto) = 1 then
	strResultSend = "Sua mensagem foi enviada com sucesso!"
 Else
	strResultSend = "Sua mensagem não foi enviada. Verifique os parâmetros"
 End if

 response.Write strResultSend
 response.End

%>