<% if request.querystring("mode") = "submit" then dim strThankyou,HTML,msg strThankyou = "http://www.dmcplc.co.uk/products/thankyou.asp" HTML = "" HTML = HTML & "" HTML = HTML & "Send Mail with HTML" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & DateAdd("h",5,Time()) & " - " HTML = HTML & "Purchase enquiry

" HTML = HTML & "
  • Product - "&Request.Form ("theproduct")&"
    • " HTML = HTML & "
  • Customer Name - "&Request.Form ("name")&"
    • " HTML = HTML & "
  • Company Name - "&Request.Form ("Company")&"
    • " HTML = HTML & "
  • Email - "&Request.Form ("Email")&"
    • " HTML = HTML & "
  • Telephone - "&Request.Form ("Telephone")&"
    • " HTML = HTML & "
  • Location - "&Request.Form ("location")&"
    • " HTML = HTML & "
  • No. of Employees - "&Request.Form ("employees")&"
    • " HTML = HTML & "
  • Job Title - "&Request.Form ("jobtitle")&"
    • " HTML = HTML & "
  • Source - "&Request.Form ("source")&"
    • " HTML = HTML & "
  • Enquiry - "&Request.Form ("enquiry")&"
    • " HTML = HTML & "


    " HTML = HTML & "" HTML = HTML & "" Set Mail = CreateObject("CDONTS.Newmail") Mail.From = request.form("email") Mail.To = "sales@dmcplc.co.uk" Mail.Mailformat = 0 Mail.Bodyformat = 0 Mail.Subject = "Purchase enquiry from - "&Request.Form ("name") Mail.Body = HTML Mail.Send Set Mail = Nothing Response.Redirect strThankyou&"?err="&msg&"&name="&Request.Form ("name")&"&email="&request.form("email") else 'display form %> Olympia Photocopier Information

    Photocopiers

    Photocopiers, Printers, Fax Machines & more.

       Contact our Sales Team on
            0845 130 6251
    Search
    Advanced search
    HOME
    PRODUCTS
    SPECIAL OFFERS
    CONSUMABLES
    SUPPORT
    CONTACT
    WEB-dmc
    Live Chat Panasonic Photocopier Deals
    Browse by Category     Olympia Photocopier Products
     
    Canon Photo copiers Panasonic Copiers Brother Photo copiers Sharp Copiers Samsung Photo copiers

    Olympia Photocopier Products canon photocopier
    Please select a Olympia photocopier model below canon photocopier
      canon photocopier

    OLYMPIA OMEGA PHOTOCOPIER D310L

    		  

     

    		  


     
     
     
     
     
     
     
     
     
     
     
     
     
     
    © DMC plc 2006 (Olympia Photocopiers)
    <% end if sub reply(state) if state = 1 then Response.Redirect strThankyou&"?err="&msg&"&name="&Request.Form ("name")&"&email="&request.form("email") else Response.Write " " Response.Write " " Response.Write " " Response.Write "
     


    " Response.Write "
    " Response.Write Request.QueryString("err")&"

    back
    " Response.Write "

    " end if end sub %>