<%

   Dim email, addylist

   addylist = Array( _
       "john@bigdogvending.com")


   for each key in request.form  
     eBody = eBody & key &": " &request.form(key) &chr(10)
   next

   for each email in addylist
     SET JMail           = Server.CreateObject("JMail.smtpmail")
     JMail.ServerAddress = "formmail.strongsecure.com"
     JMail.Sender        = request.form("from")  
     JMail.Subject       = request.form("subject")
     JMail.Body          = request.form("body")
' ---------------------------------------------------------------
' BEGIN ADDYS
     JMail.AddRecipient    email
' ---------------------------------------------------------------
     JMail.Execute
     SET JMail           = Nothing
   next  


%>

  Your message has been sent.