<% @ Language=VBScript LCID=2057 %> <% Option Explicit %> <% NTSDir = "advg" : AppDir = "newsletter" %> <% Dim Values : Set Values = Request.QueryString %> <% Server.ScriptTimeout = 2147483647 ' Max value allowed Dim SamplesFolder, SubFolder, RandomNum, i, Thumb1, Thumb2 SamplesFolder = PhysicalPath & NTSDir & "\" & AppDir & "\extras\templatebuilder\samples\" ReDim SamplesArr(1000) i = 0 Set Folder = FSO.GetFolder(SamplesFolder) For Each SubFolder In Folder.SubFolders If (SubFolder.Name <> "") And (IsNumeric(SubFolder.Name)) Then SamplesArr(i) = SubFolder.Name i = i + 1 End If Next Set Folder = Nothing ReDim Preserve SamplesArr(i - 1) 'SamplesArr = BubbleSort(SamplesArr, "NUM") Randomize : RandomNum = Int((9999 * Rnd) + 1) ' Prevent image cacheing %> FREE Email Newsletter Templates | Advantage Mailer
Shadow Shadow
020 3114 0021 | hi@advantagemailer.co.uk
members login     
Email marketing

free email templates

Sign up to our email newsletter
Request a free trial and experience the benefits for yourself!
Name *
Company
Email Address *
Phone
Please subscribe me to newsletter
Sign up to our email newsletter

Quote  Using advantage mailer we can
     email offers directly from our website
     in minutes  Quote
Dream Holidays

Free email newsletter templates

Yes No programming or coding required
Yes Easy to customise
Yes Add your own logo & images
Yes Add your own text
Yes Email us to we'll create your perfect template

All of our free email templates can be completely customised before sending, you can change text, fonts, images and logos'. Our free templates are intended to give you idea's about what design's are possible.

You can customise any template when you come to send your emails, or we can help you, plus, don't forget many of our plans include a free custom designed template!

Click on any template to send a test email to yourself.

<% For i = 0 To UBound(SamplesArr) Thumb1 = "" : If FSO.FileExists(SamplesFolder & SafeDir(SamplesArr(i)) & "\___preview-120.jpg") Then Thumb1 = "/advg/newsletter/extras/templatebuilder/samples/" & SafeDir(SamplesArr(i)) & "/___preview-120.jpg" Thumb2 = "" : If FSO.FileExists(SamplesFolder & SafeDir(SamplesArr(i)) & "\___preview-400.jpg") Then Thumb2 = "/advg/newsletter/extras/templatebuilder/samples/" & SafeDir(SamplesArr(i)) & "/___preview-400.jpg" %>
Free email template thumb
<% Next %>

<% Set FSO = Nothing %>