<% If request("submit") <> "" THEN Set objEMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("https://internetkazanclari.webnode.com.tr/dene4em/") = 1 Confi("https://internetkazanclari.webnode.com.tr/dene4em/") = "C:inetpubmailrootpickup" Confi.Update Set objEMail.Configuration = objConfig objEMail.To = "i.sayat@hotmail.com" objEMail.From = Request("from") objEMail.Subject = Request("subject") objEMail.TextBody = Request("message") objEMail.Send Set objEMail = Nothing Response.Write("Message Sent") Else %>

From Email:
Subject:
Message:

<% End If %>