<%@LANGUAGE = "VBSCRIPT"%> <% ' ================== ACADEMY FORMS v. 0.1 =============== DateTime = Now() 'Store current time as variable %> Printers in Accrington, Printers in Blackburn, Printers in Burnley, Printers in Preston, Printers in Lancashire
     
  homeabout usportfolioservicesnewsquote requestcontact us  
 
   
 
  corporate image solutions  
 
 
welcome to academy print & design
<% If Request.Querystring("send") = "True" Then fmFromname = Trim(Request.Form("fmFromName")) fmPosition = Trim(Request.Form("fmPosition")) fmCo = Trim(Request.Form("fmCo")) fmAddress1 = Trim(Request.Form("fmAddress1")) fmAddress2 = Trim(Request.Form("fmAddress2")) fmPCode = Trim(Request.Form("fmPCode")) fmFrom = Trim(Request.Form("fmFrom")) fmPhone = Trim(Request.Form("fmPhone")) fmFax = Trim(Request.Form("fmFax")) fmPType = Trim(Request.Form("fmPType")) fmNoOfPages = Trim(Request.Form("fmNoOfPages")) fmStock = Trim(Request.Form("fmStock")) fmIPages = Trim(Request.Form("fmIPages")) fmColours1 = Trim(Request.Form("fmColours1")) fmQty = Trim(Request.Form("fmQty")) fmFinishing = Trim(Request.Form("fmFinishing")) fmArtwork = Trim(Request.Form("fmArtwork")) fmSpecReq1 = Trim(Request.Form("fmSpecReq1")) fmTLetter = Trim(Request.Form("fmTLetter")) fmTBusCar = Trim(Request.Form("fmTBusCar")) fmTCompSlip = Trim(Request.Form("fmTCompSlip")) fmTConfSheets = Trim(Request.Form("fmTConfSheets")) fmOtherSpec = Trim(Request.Form("fmOtherSpec")) fmColours2 = Trim(Request.Form("fmColours2")) fmDIReq = Trim(Request.Form("fmDIReq")) fmArtSup = Trim(Request.Form("fmArtSup")) fmStockReq = Trim(Request.Form("fmStockReq")) fmSpecReq2 = Trim(Request.Form("fmSpecReq2")) fmOther = Trim(Request.Form("fmOther")) Call SendMail(fmFromname,fmPosition,fmCo,fmAddress1,fmAddress2,fmPCode,fmFrom,fmPhone,fmFax,fmPType,fmNoOfPages,fmStock,fmIPages,fmColours1,fmQty,fmFinishing,fmArtwork,fmSpecReq1,fmTLetter,fmTBusCar,fmTCompSlip,fmTConfSheets,fmOtherSpec,fmColours2,fmDIReq,fmArtSup,fmStockReq,fmSpecReq2,fmOther) Else Response.Write("Please complete the form below to request a quote. Fields with an asterisk are required.") End If %>
Your Details
Name
Position
Company
Street Address
Town & County
Postcode
Email*
Phone*
Fax
 
Brochures / Leafets etc.
Price Required for <%fmPType = "e.g. Brochures/Leaflet/etc"%>
No. of Pages (if Brochure)
Cover Stock
Inside Pages
No. of Colours
Quantity
Finishing Required <%fmFinishing = "e.g. Stitched/Perfect Bound/etc"%>
Artwork Supplied or Required
  To view our Artwork Supplied Specification Sheet
(opens in new window).
   
Special Requirements <%fmSpecReq1 = "e.g. Spot UV, Varnish, etc"%>
 
Stationery
Stationery Required Letterheads Business Cards
Compliment Slips Continuation Sheets
   
Other
No. of Colours
Design/Image Required
Artwork Supplied
  To view our Artwork Supplied Specification Sheet
(opens in new window).
 
Stock Required <%fmStockReq = "e.g. Gloss Art/Silk Art/Mait/etc"%>
(All quotes will be given on 100gsm superior white bond unless stated otherwise. Brochures/Cards are produced on 330gsm hero ivory board)
   
Special Requirements <%fmSpecReq2 = "e.g. Spot UV, Varnish, etc"%>
 
Other Details
 
 
 
     
about us  |  portfolio  |  services  |  news  |  quote request  |  contact us  |  site map
Academy Print & Design • Graphic House • Moorfield • Burnley Road • Altham • Accrington • Lancs • BB5 5TX • UK
Tel: 01254 300000 • Fax: 01254 300001 • E-mail: info@academy-print.co.uk
© Academy Print & Design 2006. Web Design by Academy Print & Design
<% 'Begin Routine to Send Mail Sub SendMail(smFromname,smPosition,smCo,smAddress1,smAddress2,smPCode,smFrom,smPhone,smFax,smPType,smNoOfPages,smStock,smIPages,smColours1,smQty,smFinishing,smArtwork,smSpecReq1,smTLetter,smTBusCar,smTCompSlip,smTConfSheets,smOtherSpec,smColours2,smDIReq,smArtSup,smStockReq,smSpecReq2,smOther) On Error Resume Next 'To catch any potential errors in the sending strErr = "" 'Init variable to store any error message If Len(smPhone) < 5 then strErr = "Phone Number Required!" End If If Len(smFrom) < 5 then strErr = "Email Address Required!" End If 'force the carbon copy field to be empty If Len(smCC) > 0 Then smCC = "" End If 'edit from line to include Name Company Phone and Email smEmail = smFrom If Len(smFromName) > 0 Then smFrom = "From: " & smFromName & "<" & smFrom & ">" End If 'edit subject line to read Price Request (from Academy Website) smSubject = "Price Request for Company: " & fmCo & " (from Academy Website Quote Form)" 'edit main message to include all form input fields smBody = ("Print Quote Request
Name: " & smFromname & "
Position: " & smPosition & "
Company: " & smCo & "
Address: " & smAddress1 & ", " & smAddress2 & ", " & smPCode & "
Email Address: " & smEmail & "
Phone: " & smPhone & "
Fax: " & smFax & "
Price Required For: " & smPType & "
Number of Pages: " & smNoOfPages & "
Stock: " & smStock & "
Inside Pages: " & smIPages & "
Colours: " & smColours1 & "
Quantity: " & smQty & "
Finishing: " & smFinishing & "
Artwork Supplied or Required: " & smArtwork & "
Special Requirements: " & smSpecReq1 & "
Stationery Required: Letterheads? " & smTLetter & "
Business Cards? " & smTBusCar & "
Compliment Slips? " & smTCompSlip & "
Continuation Sheets? " & smTConfSheets & "
Other (Specified): " & smOtherSpec & "
Number of Colours: " & smColours2 & "
Design/Image Required: " & smDIReq & "
Artwork Supplied: " & smArtSup & "
Stock Required: " & smStockReq & "
Special Requirements: " & smSpecReq2 & "
Other Details: " & smOther) smTo = "info@academy-print.co.uk" If strErr = "" Then 'If form data has passed basic validation then send Set iMsg = CreateObject("CDO.Message") With iMsg .To = smTo .From = smFrom .Subject = smSubject .HTMLBody = smBody .Send End With 'Clean Up Set iMsg = Nothing If Err > 0 Then 'If a server/component error occurred Response.Write("Mail Not Sent! Please try again or resort to email. Error(s) Occurred:") Response.Write("