Tantra Connection

<% if request("add")="true" then set que1=Server.CreateObject("ADODB.recordset") que_query="select * from FAQTMP " que1.Open que_query,ObjConn,adOpenDyanmic,adLockOptimistic que1.addnew que1("question")=request("question") que1("Email")=request("email") flag=1 que1.update que1.Close que1.Open "Select * From FAQTMP Where Email = '" & Request("email") &"'" Dim id id = que1("id") 'Mail Code By Sharad 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 Question Has Been Posted To Tantraconnection.com's FAQ Section. Following Are The" BodyMail = BodyMail & " Details.

Q: " BodyMail = BodyMail & Request("question") & "

" BodyMail = BodyMail & "Click Here To Accept And Publish This Faq On Your Site!

" BodyMail = BodyMail & "Click Here To Reject & Delete This Question From The Temp FAQ Repositary!

" BodyMail = BodyMail & "With Warm Regards,
Tantra Angel!" Dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "Tantra Angel" objCDOMail.To = "Sharad" objCDOMail.Subject = "Alert: New Affiliate Signup!" objCDOMail.Body = BodyMail objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Importance = 2 objCDOMail.Send Set objCDOMail = Nothing if request("admin")="true" then response.redirect "posfaq.asp" end if end if %> Tantra Connection

<% if flag=1 then %> Thanks for Posting Your Question . <%end if%>

Post Your Question

Email :-

Question :-