Advertisement Info  
NY Events Calendar  
New Coupons/Specials 
Classes & Courses  
 Online Videos  
NY Wellness Blog  
  User Forums  
Friends Network  
Natural Health News  
Add Listings  
Add Content  
NY Tees & Gifts  
Free Date NY  
Contact  



 New York Wellness Calendar 
 View NY Events
 Add Your Event

Community Forum
Daily Horoscope
Free Online Games
Free e-Cards
Article/Review Contribution Form



<% ELSE %>
<% IF request.Form("submitform")<>"yes" THEN %>
Name:
Email:
Website:
Article/Review Title:
Article Author:
Article Topic:
What type of content:
Paste Content Here:  
Thank you for sending the following information:

Name: <%=Request.Form("userName")%>
Email: <%=Request.Form("email")%>
Website: <%=Request.Form("website")%>
Title: <%=Request.Form("title")%>
Content Type: <%=Request.Form("content")%>
Author: <%=Request.Form("author")%>
Topic: <%=Request.Form("topic")%>
Content: <%=Request.Form("moreAboutYou")%>
<% IF Request.Form("understand")="Yes" THEN Response.Write"" ELSE Response.Write"

" END IF Response.Write"Thank you, your contributions are greatly appreciated." Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= "info@nywellnessguide.com" ' ****************************************************** ' change the email address below to whoever you want the email to go to ' ****************************************************** MyCDONTSMail.To= "info@nywellnessguide.com" MyCDONTSMail.Subject="NY Wellness Guide Article / Review Submission" MyBody = Request.Form("userName") & " has sent an email." & vbCrLf MyBody = MyBody & "Email: " & Request.Form("email") & vbCrLf MyBody = MyBody & "Website: " & Request.Form("website") & vbCrLf MyBody = MyBody & "Content Type: " & Request.Form("content") & vbCrLf MyBody = MyBody & "Article Title: " & Request.Form("title") & vbCrLf MyBody = MyBody & "Article Author: " & Request.Form("author") & vbCrLf MyBody = MyBody & "Article Topic: " & Request.Form("topic") & vbCrLf MyBody = MyBody & "Comments: " & Request.Form("moreAboutYou") & vbCrLf IF Request.Form("understand")="Yes" THEN MyBody = MyBody & "" & vbCrLf ELSE MyBody = MyBody & "" & vbCrLf END IF MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing END IF %>

If you have problems viewing this page, you can email us here.

Copyright©2004. All rights reserved. Webdesign by Ultratonic Designs. Contact Us.