% ' 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"), Request.Form("email") sm1.setTo "Weavind", "weavind@weavind.co.za" sm1.setCc "", "" sm1.setBcc "test", "deon@dieselbrook.co.za" sm1.Subject = "Website Enquiry" ' using static for body sm1.setBody_Static_text "Name: " & (Request.Form("name")) & " " & (Request.Form("surname")) & "" & vbCRLF & "Company: " & (Request.Form("company")) & "" & vbCRLF & "" & vbCRLF & "Tel: " & (Request.Form("tel")) & "" & vbCRLF & "Fax: " & (Request.Form("fax")) & "" & vbCRLF & "E-mail: " & (Request.Form("email")) & "" & vbCRLF & "" & vbCRLF & "Enquiry:" & vbCRLF & "" & (Request.Form("enquiry")) & "" ' Attachments none sm1.sendMail "one" Response.Redirect "contactconfirm.htm" end if SM_mailAction = getMailAction() %>
|
|