<% 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 & 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 %> Ricoh Photocopier Information

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Ricoh Photocopier Products

Ricoh Photocopier Products
Please select a Ricoh photocopier model below

RICOH PHOTOCOPIER 1008 RICOH PHOTOCOPIER 1150L RICOH PHOTOCOPIER 1208 RICOH PHOTOCOPIER 3613 RICOH PHOTOCOPIER 3813 RICOH AFICIO PHOTOCOPIER 1013 RICOH AFICIO PHOTOCOPIER 1015 RICOH AFICIO PHOTOCOPIER 1018 RICOH AFICIO PHOTOCOPIER 1022 RICOH AFICIO PHOTOCOPIER 1027 RICOH AFICIO PHOTOCOPIER 1032 RICOH AFICIO PHOTOCOPIER 1055 RICOH AFICIO PHOTOCOPIER 1060 RICOH AFICIO PHOTOCOPIER 1075 RICOH AFICIO PHOTOCOPIER 1113 RICOH AFICIO PHOTOCOPIER 120 RICOH AFICIO PHOTOCOPIER 1224C RICOH AFICIO PHOTOCOPIER 1232C RICOH AFICIO PHOTOCOPIER 1515 RICOH AFICIO PHOTOCOPIER 2015 RICOH AFICIO PHOTOCOPIER 2016 RICOH AFICIO PHOTOCOPIER 2018 RICOH AFICIO PHOTOCOPIER 2020 RICOH AFICIO PHOTOCOPIER 2022 RICOH AFICIO PHOTOCOPIER 2027 RICOH AFICIO PHOTOCOPIER 2032 RICOH AFICIO PHOTOCOPIER 2035 RICOH AFICIO PHOTOCOPIER 2045 RICOH AFICIO PHOTOCOPIER 2051 RICOH AFICIO PHOTOCOPIER 2060 RICOH AFICIO PHOTOCOPIER 2075 RICOH AFICIO PHOTOCOPIER 2090 RICOH AFICIO PHOTOCOPIER 2105 RICOH AFICIO PHOTOCOPIER 2228C RICOH AFICIO PHOTOCOPIER 2232C RICOH AFICIO PHOTOCOPIER 2238C RICOH AFICIO PHOTOCOPIER 3025 RICOH AFICIO PHOTOCOPIER 3030 RICOH AFICIO PHOTOCOPIER 3035 RICOH AFICIO PHOTOCOPIER 3045 RICOH AFICIO PHOTOCOPIER 3232C RICOH AFICIO PHOTOCOPIER 3224C RICOH AFICIO PHOTOCOPIER 3228C RICOH AFICIO PHOTOCOPIER 3235C RICOH AFICIO PHOTOCOPIER 3245C RICOH AFICIO PHOTOCOPIER 3260C RICOH AFICIO PHOTOCOPIER 4506 RICOH AFICIO PHOTOCOPIER 470W RICOH AFICIO PHOTOCOPIER 480W RICOH AFICIO PHOTOCOPIER 5560C RICOH AFICIO PHOTOCOPIER 6513 RICOH AFICIO PHOTOCOPIER CL7000 RICOH AFICIO PHOTOCOPIER CL7100 RICOH AFICIO PHOTOCOPIER FX12 RICOH AFICIO PHOTOCOPIER MP1100 RICOH AFICIO PHOTOCOPIER MP1350 RICOH AFICIO PHOTOCOPIER MP1500 RICOH AFICIO PHOTOCOPIER MP1600L RICOH AFICIO PHOTOCOPIER MP161 RICOH AFICIO PHOTOCOPIER MP2000LN RICOH AFICIO PHOTOCOPIER MP2500 RICOH AFICIO PHOTOCOPIER MP2510 RICOH AFICIO PHOTOCOPIER MP3010 RICOH AFICIO PHOTOCOPIER MP3500 RICOH AFICIO PHOTOCOPIER MP4000 RICOH AFICIO PHOTOCOPIER MP4500 RICOH AFICIO PHOTOCOPIER MP5000 RICOH AFICIO PHOTOCOPIER MP5500 RICOH AFICIO PHOTOCOPIER MP6500 RICOH AFICIO PHOTOCOPIER MP7500 RICOH AFICIO PHOTOCOPIER MP9000 RICOH AFICIO PHOTOCOPIER MPC1500SP RICOH AFICIO PHOTOCOPIER MPC2000 RICOH AFICIO PHOTOCOPIER MPC2500 RICOH AFICIO PHOTOCOPIER MPC3000 RICOH AFICIO PHOTOCOPIER MPC3500 RICOH AFICIO PHOTOCOPIER MPC4500 RICOH AFICIO PHOTOCOPIER SPC210SF RICOH AFICIO PHOTOCOPIER SP1000S RICOH PHOTOCOPIER FW770 RICOH PHOTOCOPIER FW780 RICOH PHOTOCOPIER FW870

<% 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 %>