<% 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 %> Kip Photocopier Information

    Photocopiers

    Photocopiers, Printers, Fax Machines & more.

       Contact our Sales Team on
            0845 130 6251
    Search
    Advanced search
    Live Chat Panasonic Photocopier Deals
    Browse by Category     Kip Photocopier Products
     
    Canon Photo copiers Panasonic Copiers Brother Photo copiers Sharp Copiers Samsung Photo copiers

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

    KIP PHOTOCOPIER 1880

    KIP PHOTOCOPIER 2950

    KIP PHOTOCOPIER 2980

    KIP PHOTOCOPIER 3850

    KIP PHOTOCOPIER 3880

    KIP PHOTOCOPIER 3920

    KIP PHOTOCOPIER 9920

    KIP PHOTOCOPIER 9960

     

     

     

     


     
     
     
     
     
     
     
     
     
     
     
     
     
    © DMC plc 2006 (Kip 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 %>