<% 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 %> Agfa 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     Agfa Photocopier Products
     
    Canon Photo copiers Panasonic Copiers Brother Photo copiers Sharp Copiers Samsung Photo copiers

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

    AGFA X620 photocopier

    AGFA X820 photocopier

    AGFA XC717 copier

    AGFA XC917 copier

     

     

     


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