<% If request("submit") <> "" THEN Set objEMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" Confi.Update Set objEMail.Configuration = objConfig objEMail.To = "webcontact@cactuscountryrv.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 %>