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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Oce Photocopier Products

Oce Photocopier Products
Please select a Oce photocopier model below

OCE PHOTOCOPIER 2600 ECO OCE PHOTOCOPIER 3012 OCE PHOTOCOPIER 3018 OCE PHOTOCOPIER 3045 OCE PHOTOCOPIER 3075 OCE PHOTOCOPIER 3100 OCE PHOTOCOPIER 3122 OCE PHOTOCOPIER 3133 OCE PHOTOCOPIER 3140 OCE PHOTOCOPIER 3145 DC OCE PHOTOCOPIER 6165 OCE PHOTOCOPIER 7050 OCE PHOTOCOPIER 7051 OCE PHOTOCOPIER 7055 OCE PHOTOCOPIER 7056 OCE PHOTOCOPIER CPS700 OCE PHOTOCOPIER CS110 OCE PHOTOCOPIER CS115 OCE PHOTOCOPIER CS150 OCE PHOTOCOPIER CS170 OCE PHOTOCOPIER CS171 OCE PHOTOCOPIER CS172 OCE PHOTOCOPIER CS175 OCE PHOTOCOPIER CS191 OCE PHOTOCOPIER CS200 OCE PHOTOCOPIER CS230 OCE PHOTOCOPIER CS231 OCE PHOTOCOPIER CS520 OCE PHOTOCOPIER CS620 OCE PHOTOCOPIER DPS400 OCE PHOTOCOPIER MP1045 OCE PHOTOCOPIER MP1050 OCE PHOTOCOPIER TDS300 OCE PHOTOCOPIER TDS400 OCE PHOTOCOPIER TDS600 OCE PHOTOCOPIER TDS700 OCE PHOTOCOPIER TDS800 OCE IMAGISTICS PHOTOCOPIER CM2525 OCE IMAGISTICS PHOTOCOPIER CM3527 OCE IMAGISTICS PHOTOCOPIER CM5025 OCE IMAGISTICS PHOTOCOPIER IM2021 OCE IMAGISTICS PHOTOCOPIER IM3511 OCE IMAGISTICS PHOTOCOPIER IM4511 OCE IMAGISTICS PHOTOCOPIER IM6020 OCE IMAGISTICS PHOTOCOPIER IM7520 OCE IMAGISTICS PHOTOCOPIER IM9220 OCE VARIOPRINT PHOTOCOPIER 1055 OCE VARIOPRINT PHOTOCOPIER 1065 OCE VARIOPRINT PHOTOCOPIER 1075 OCE VARIOPRINT PHOTOCOPIER 2050 OCE VARIOPRINT PHOTOCOPIER 2060 OCE VARIOPRINT PHOTOCOPIER 2062 OCE VARIOPRINT PHOTOCOPIER 2070 OCE VARIOPRINT PHOTOCOPIER 2075 OCE VARIOPRINT PHOTOCOPIER 2090 OCE VARIOPRINT PHOTOCOPIER 2100 OCE VARIOPRINT PHOTOCOPIER 2105 OCE VARIOPRINT PHOTOCOPIER 2110 OCE VARIOPRINT PHOTOCOPIER 2205 OCE VARIOPRINT PHOTOCOPIER 3110

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