%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If Request.Form("subMain") <> "" Then %> <% Set objCDO = Server.CreateObject("CDONTS.NewMail.1") objCDO.From = "sam stuff" objCDO.To = "smccaskill@bokapowell.com" objCDO.cc = "smccaskill@bokapowell.com" objCDO.Subject = "Request for Information" objCDO.Body = "The following has been submitted" & vbCrLf & "Email Address:" & Trim(Request.Form("txtEmailAddress")) objCDO.Send Set objCDO = Nothing %> <%End If %>