<%@LANGUAGE="VBSCRIPT"%> <% dim vTimeout vTimeOut = server.ScriptTimeout 'get default vaule & set it back later Response.expires = -1 Response.CacheControl = "Private" Response.AddHeader "pragma","no-cache" if (Request.ServerVariables("CONTENT_LENGTH") >0) Then Dim varMail dim sSubject sSubject = "EF: " & request.form("subject") dim sBody sBody = "From " & request.form("yourName") & vbcrlf & vbcrlf _ & request.form("textBody") & "" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = request.form("email") cdoMessage.To = "support@e-fervour.com" 'cdoMessage.Cc = "admin@e-fervour.com" cdoMessage.Subject = sSubject cdoMessage.TextBody = sBody cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.redirect ("emailSent.html") end if %> Contact Us
   Contact Us
 
       
 
  Your Name
  Email
  Subject
   
           Your Message