<%
If Request.Form("Submit").Count > 0 Then
Dim objMessage
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout ") = 60
objMessage.Configuration.Fields.Update
With objMessage
.To = "ahsan@ifatec.net"
.From = Request.Form("txtEmail")
.Subject = ("FeedBack From IFATECH.COM")
.TextBody = Request.Form("txtName")& vbCrLf & Request.Form("txtAddress")& vbCrLf & Request.Form("txtFeedBack")
.Send
End With
End If
Set objMessage = Nothing
%>
