% If Len(Request.Form("OK")) > 0 or Request.ServerVariables("REQUEST_METHOD") = "POST" then %> <% Dim id id=Server.URLEncode(Request.QueryString("id")) Dim rsubject rsubject=CV("Subject") Dim remail remail =CV("Email") Dim rname rname=CV("Name") Dim rtelephone rwebsite=CV("Website") Dim raddress raddress=CV("Address") Dim rmessage rmessage=CV("Message") If Not Err_Msg_Status Then '---------------------------------------------------------------- 'Start sending the cnfirmation email 'Declarte & Create the JMail(v4) message Object Dim msg set msg = Server.CreateOBject( "JMail.Message" ) 'Set logging to true to ease any potential debugging 'And set silent to true as we wish to handle our errors ourself 'Set priority msg.Logging = true msg.silent = true msg.priority = 1 'From msg.From="info@reliableranking.com" msg.FromName ="Reliable Ranking" ' To [do not use equals sign (=)] msg.AddRecipient remail,rname ' BCC for information msg.AddRecipientBCC "info@obiztek.com" 'Subject msg.Subject ="Acknowledgement Dated " & Date() 'Start composing the message msg.Body = ""&_ "==========================================================" & vbCrLf &_ " Acknowledgement " & vbCrLf &_ "==========================================================" & vbCrLf & vbCrLf &_ "We have received your comments with the following details :- " & vbCrLf& vbCrLf &_ "- Search Engine Ranking Services ::" & CV("pC1") & vbCrLf &_ "- Search Engine Submission Services ::" & CV("pC2") & vbCrLf &_ "- Business Development ::" & CV("pC3") & vbCrLf &_ "- Others ::" & CV("pC4") & vbCrLf &_ "- Name ::" & rname & vbCrLf &_ "- Email ::" & remail & vbCrLf &_ "- Website ::" & rwebsite & vbCrLf &_ "- Address ::" & raddress & vbCrLf &_ "- Message ::" & rmessage & vbCrLf & vbCrLf &_ "We will come back to you soon,thanks." & vbCrLf & vbCrLf &_ "============================================================" & vbCrLf &_ " reliableranking.com - Top Search Engine Ranking services backed with money back gurantee" & vbCrLf &_ "============================================================" 'End composing the message ' Sending & checking for errors if any if not msg.Send("reliableranking.com" ) then Response.write "
" & msg.log & "" & vbCrLf else Call DOGO("dowriteusform.asp") end if ' Sent 'Start sending the confirmation email End If End If %>
![]() |
search engine optimization services - seo consultants - seo services firm
|
|
|||||||||||||||||||||||||||||||||||||||||||||
| reliableranking.com :Search Engine Optimization, Search Engine Ranking, Search Engine Submission Services : India | ||||||
|
|