% 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 rtelephone=CV("Telephone") 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@resellerhostingindia.com" msg.FromName ="Reseller Hosting India" msg.MailServerUserName = "info@resellerhostingindia.com" msg.MailServerPassWord = "uk321" ' To [do not use equals sign (=)] msg.AddRecipient remail,rname ' BCC for information msg.AddRecipientBCC "obiztek@yahoo.com" msg.AddRecipientBCC "info@resellerhostingindia.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 &_ "- Web Hosting (Linux /Windows) ::" & CV("pC1") & vbCrLf &_ "- Web Hosting (Linux /Windows) ::" & CV("pC2") & vbCrLf &_ "- Business Development ::" & CV("pC3") & vbCrLf &_ "- Reseller Hosting (Linux/ Windows ) ::" & CV("pC4") & vbCrLf &_ "- Name ::" & rname & vbCrLf &_ "- Email ::" & remail & vbCrLf &_ "- Telephone ::" & rtelephone & vbCrLf &_ "- Address ::" & raddress & vbCrLf &_ "- Message ::" & rmessage & vbCrLf & vbCrLf &_ "We will come back to you soon,thanks." & vbCrLf & vbCrLf &_ "============================================================" & vbCrLf &_ " ResellerHostingIndia.com - Affordable Reseller Web Hosting Solutions Provider" & vbCrLf &_ "============================================================" 'End composing the message ' Sending & checking for errors if any if not msg.Send("resellerhostingindia.com" ) then Response.write "
" & msg.log & "" & vbCrLf else Call DOGO("docontactform.asp") end if ' Sent 'Start sending the confirmation email End If End If %>
|
|