Our items are infused with intensely concentrated moonlight,
offering you the beauty and power of this ancient and
transformational energy. Offering you the ability to take
this energy with you and experience it in any moment of
your life
 

 





 


  

Best viewed with Internet Explorer at 1024x768 resolution.

'Test email submit form'
<% Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Moonlightinfusions.com" Mailer.FromAddress= "info@moonlightinfusions.com.com" Mailer.RemoteHost = "mail.moonlightinfusions.com" Mailer.AddRecipient "Info", "info@moonlightinfusions.com" Mailer.AddExtraHeader "X-MimeOLE:Produced yourdomain.com" Mailer.Subject = "Moonlightinfusions Form Submission" strMsgHeader = "Form information follows" & vbCrLf for each qryItem in Request.Form strMsgInfo = strMsgInfo & qryItem & " - " & request.Form(qryItem) & vbCrLf next strMsgFooter = vbCrLf & "End of form information" Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter if Mailer.SendMail then Response.Write "Form information submitted..." else Response.Write "Mail send failure. Error was " & Mailer.Response end if set Mailer = Nothing %>