<% dim flag if len(Request("submit"))>0 then Dim rsinfo flag=0 set rsinfo=Server.CreateObject("ADODB.RECORDSET") rsinfo.ActiveConnection=objConn rsinfo.LockType=3 rsinfo.open("Select * from Articles") rsinfo.addnew rsinfo("PostedBy")=Request("authorname") rsinfo("PostedOn")=Date() rsinfo("Email")=Request("email") rsinfo("Content")=Request("content") rsinfo("URL")=Request("url") rsinfo("Title")=Request("title") rsinfo("Image")=Request("imagename") rsinfo("category")=Request("category") rsinfo.update rsinfo.close set rsinfo=nothing Dim BodyMail BodyMail = "" BodyMail = BodyMail & "Dear Administrator,

          " BodyMail = BodyMail & "              " BodyMail = BodyMail & "             " BodyMail = BodyMail & "Hi!
" BodyMail = BodyMail & "I'm The Angel Of Your Website, And I'm Writing You This Mail To Inform You That" BodyMail = BodyMail & " A New Article Has Been Just Posted To Tantraconnection.com. Following Are The" BodyMail = BodyMail & " Details.

Posted By: " BodyMail = BodyMail & Request.Form("authorname") BodyMail = BodyMail & "
On Date: " BodyMail = BodyMail & Date() BodyMail = BodyMail & "
His/Author E-Mail: " BodyMail = BodyMail & Request.Form("e-mail") BodyMail = BodyMail & "
Category: " BodyMail = BodyMail & Request.Form("category") BodyMail = BodyMail & "
Title Is: " BodyMail = BodyMail & Request.Form("title") BodyMail = BodyMail & "
Article Content Is: " BodyMail = BodyMail & Request.Form("content") BodyMail = BodyMail & "
Author Website: " BodyMail = BodyMail & Request.Form("url") BodyMail = BodyMail & "

-------------- End Of Details. Thank You!

With Warm Regards,
Tantra Angel." Dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "Tantra Angel" objCDOMail.To = "Janet" objCDOMail.Subject = "Alert: New Affiliate Signup!" objCDOMail.Body = BodyMail objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Importance = 2 objCDOMail.Send Set objCDOMail = Nothing flag=1 end if %> Tantra Connection
button3  
<%if flag=1 then%>

Thank you for submitting your article for consideration for posting on the Tantra Connection web site. We'll review it for content and see if it aligns with our vision and is appropriate for this site. You'll be sent notification of our decision.

<% end if %>

Post Article

Go Back

Author Name

Author Email Address

Category

 <% set category=Server.CreateObject("ADODB.recordset") category.Open "Select * from tblcategorymaster",objconn,adOpenStatic,adLockReadOnly %>

Title

Content

 

Image
 (Upload a Image  that you want to put with content)

    (Click upload to select an image and upload)

URL

 

 

ARTICLES |  FAQ | HEAL | TESTIMONIALS | SUCCESS STORIES

 VISION | TELL YOUR FRIENDS | RATE US
 

©Copyright 2003 TantraConnection.com

Best viewed at 1024 x 800 pixels.
Contact Webmaster