<%
Dim ErrMsg: ErrMsg = ""
if Request("txtEmail") <> "" then
'Response.write(email)
'Response.end
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Customize the following 5 lines with your own information. ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim CDO_ToAddress: ToAddress = "mncuk1@gmail.com" ' Change this to the email address you will be receiving your notices.
Dim CDO_SrvPort: CDO_SrvPort = 25
Dim CDO_SrvName: CDO_SrvName = "Futuretechsoft.co.uk" ' Change this to your actual Domain name.
Dim CDO_FromUser: CDO_FromUser = "info@Futuretechsoft.co.uk" ' Change this to the email address you will use to send and authenticate with.
Dim CDO_FromPass: CDO_FromPass = "" ' Change this to the above email addresses password.
Dim CDO_Rcvr_BCC: CDO_Rcvr_BCC = "mncuk1@gmail.com" ' Chagee this to send email to BCC address.
Dim CDO_enableBCC:CDO_enableBCC= false
Set Mailer = CreateObject("CDO.Message")
Mailer.Subject = Request("ddwnSubject")
Mailer.From = CDO_FromUser
Mailer.To = ToAddress
Mailer.HTMLBody = "Name: " & Request("txtName") & " " & "Company: " & Request("txtCompany") & " " & "Email: " & Request("txtEmail") & " " & "Message Body: " & Request("txtMessage")
if CDO_enableBCC = true Then
Mailer.Bcc = CDO_Rcvr_BCC
end if
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = CDO_SrvName
'Server port
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CDO_SrvPort
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Your UserID on the SMTP server
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = CDO_FromUser
'Your password on the SMTP server
Mailer.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = CDO_FromPass
Mailer.Configuration.Fields.Update
Dim bSendMailstatus
On Error Resume Next
bSendMailstatus= Mailer.Send
set Mailer=nothing
If Err.Number = 0 then
'Success scenario
ErrMsg = "Thank you, your message has been sent."
Else
ErrMsg = "Error occured while sending message."
End If
End if
%>
FutureTech Soft Ltd. - Contact us
