% ' Smart Mailer 1.0.7 ' Send on submit of form form1 if Request.ServerVariables("REQUEST_METHOD") = "POST" then Server.ScriptTimeout = 300 Set sm1 = new SmartMailer sm1.checkVersion "1.07" sm1.contentCharset = "us-ascii" Session.CodePage = sm1.getCodepage() sm1.smtpSetup "", "", "", "" sm1.pickup = "" sm1.component = "cdo" sm1.tmpFolder = "" sm1.embedImages = false sm1.progressBar = "" sm1.ignore_errors = false sm1.useQueue = false sm1.setFrom Request.Form("name"), "test@dcd-dorbyl.com" sm1.setTo "Deon", "deon@lkdesign.co.za" sm1.setCc "", "" sm1.setBcc "", "" sm1.Subject = "Feedback" ' using static for body sm1.setBody_Static_text "Name: " & (Request.Form("name")) & "" & vbCRLF & "Title:" & (Request.Form("radiobutton")) & "" ' Attachments none sm1.sendMail "one" Response.Redirect "../confirmation.htm" end if SM_mailAction = getMailAction() %>
|