<% 'Create the e-mail server object 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.Update ' Update the CDOSYS Configuration Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = cStr(Request("email")) objCDOSYSMail.To = "sitaraplus98@hotmail.com" objCDOSYSMail.Subject = cStr(Request("subject")) objCDOSYSMail.HTMLBody = cStr("Name : " + Request("name") + "

Company : " + Request("company") + "

Phone : " + Request("phone") + "

Fax : " + Request("fax") + "

Email : " + Request("email")+ "

Message : " + Request("message") ) objCDOSYSMail.Send 'Close the server mail object Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.redirect "contacts.html" response.end %>