<%
if request.Form <> "" then
if request.form("submit123") = "submit" then
dim objCDOSYSMail
dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Outgoing SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sales@freelancewebdeveloper.org"
' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ramlord"
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "deepesh@vishwatech.com"'fromEmail
objCDOSYSMail.To = "shailendra@vishwatech.com"
objCDOSYSMail.Subject = "PHONE NUMBER REMOVAL REQUEST"
objCDOSYSMail.HTMLBody = "New request for removal phone number "&request.form("txtAC")&"-"&request.form("EXCH")&"-"&request.form("PHONE")
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
end if
end if
%>
