<%
  SQL= " SELECT * FROM promo WHERE scadenza = (Date()+7) "
  Set RS = Conn.Execute(SQL)
  If Not RS.EOF Then
  
  RS.MoveFirst
  Do While Not RS.EOF
  emailcliente2 = RS("emailcliente")
%>

<%

invioA = emailcliente2

....