% ' Smart Mailer 1.0.6 ' Send on submit of form form1 if Request.ServerVariables("REQUEST_METHOD") = "POST" then Server.ScriptTimeout = 300 Set sm1 = new SmartMailer sm1.checkVersion "1.06" sm1.contentCharset = "us-ascii" Session.CodePage = sm1.getCodepage() sm1.smtpSetup "mail.imagesurveys.com", "", "", "" sm1.pickup = "" sm1.component = "aspemail" sm1.tmpFolder = "" sm1.embedImages = false sm1.progressBar = "" sm1.ignore_errors = false sm1.useQueue = false sm1.setFrom "Website Enquiry", Request.Form("email") sm1.setTo "info@imagesurveys.com", "info@imagesurveys.com" sm1.setCc "", "" sm1.setBcc "", "" sm1.Subject = "Enquiry from the Image Surveys Website" ' using static for body sm1.setBody_Static_html "" & (Request.Form("title")) & " " & (Request.Form("name")) & " " & (Request.Form("surname")) & "" & vbCRLF & "" & vbCRLF & "From" & vbCRLF & "" & vbCRLF & "Company:" & (Request.Form("company")) & "" & vbCRLF & "Telephone:" & (Request.Form("telephone")) & "" & vbCRLF & "E-mail:" & (Request.Form("email")) & "" & vbCRLF & "" & vbCRLF & "Has the following enquiry" & vbCRLF & "Enquiry:" & (Request.Form("enquiry")) & "" ' Attachments none sm1.sendMail "one" Response.Redirect "thankyou.htm" end if SM_mailAction = getMailAction() %>
|
|||||
|
|||||