% If Request.Form("btnSend").Count > 0 Then Set objMessage = CreateObject("CDO.Message") objMessage.Subject = Request.Form("subject") objMessage.Contact = Request.Form("contact") objMessage.From = "support@welltodocentury.com" objMessage.To = Request.Form("To") objMessage.CC = "support@welltodocentury.com" objMessage.TextBody = "From: " & Request.Form("name") & vbCrLf & "Contact No: " & Request.Form("contact") & vbCrLf & "Message: " & vbCrLf & Request.Form("message") objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "180.92.187.178" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "support@welltodocentury.com" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "aoks5367" objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.Send Response.Redirect("contact.asp") End If %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||