File manager - Edit - G:/PleskVhosts/cwh033.com/adityafindings.com/Newwww/InquirySendMail.asp
Back
<% sendUrl = "http://schemas.microsoft.com/cdo/configuration/sendusing" smtpUrl = "http://schemas.microsoft.com/cdo/configuration/smtpserver" dim nm nm=nm & "---------------------"& vbcrlf nm=nm & "YOUR INFO"& vbcrlf nm=nm & "---------------------"& vbcrlf nm=nm & "Name : " & Request("txtName") & vbcrlf nm=nm & "Email : " & Request("txtEmailID")& vbcrlf nm=nm & "Message : " & Request("txtReq")& vbcrlf '----------------------------------------------------------------------------------------------- '++++++++++++++++++++++++++++++++++++' '++++++++++++++++++++++++++++++++++++' 'Set the mail server configuration '++++++++++++++++++++++++++++++++++++' Set objConfig=CreateObject("CDO.Configuration") objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" objConfig.Fields.Update '++++++++++++++++++++++++++++++++++++' '++++++++++++++++++++++++++++++++++++' ' Create and send the mail '++++++++++++++++++++++++++++++++++++' Set objMail=CreateObject("CDO.Message") ' Use the config object created above Set objMail.Configuration=objConfig objMail.From = "enq-alert@adityafindings.com" objMail.To = "info@adityafindings.com" objMail.CC = "rashmi@graficali.co.in,solutions@graficali.com" objMail.Bcc = "shankar@cyberwebhotels.com,pratibha@cgsinfotech.com" objMail.Subject = "Contact form adityafindings.com" objMail.TextBody = nm objMail.Send '++++++++++++++++++++++++++++++++++++ '----------------------------------------------------------------------------------------------- url="index.html" response.redirect url %>
| ver. 1.4 |
Github
|
.
| PHP 5.4.45 | Generation time: 0.11 |
proxy
|
phpinfo
|
Settings