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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Olivetti Photocopier Products

Olivetti Photocopier Products
Please select a Olivetti photocopier model below

OLIVETTI COPYLAB PHOTOCOPIER 200 OLIVETTI PHOTOCOPIER D15 OLIVETTI PHOTOCOPIER D16 OLIVETTI PHOTOCOPIER D20 OLIVETTI PHOTOCOPIER D25 OLIVETTI PHOTOCOPIER D35 OLIVETTI PHOTOCOPIER D40 OLIVETTI PHOTOCOPIER D45 OLIVETTI PHOTOCOPIER D55 OLIVETTI PHOTOCOPIER D63 OLIVETTI D-COLOR PHOTOCOPIER MF20 OLIVETTI D-COLOR PHOTOCOPIER MF200 OLIVETTI D-COLOR PHOTOCOPIER MF22 OLIVETTI D-COLOR PHOTOCOPIER MF240 OLIVETTI D-COLOR PHOTOCOPIER MF30 OLIVETTI D-COLOR PHOTOCOPIER MF35 OLIVETTI D-COLOR PHOTOCOPIER MF450 OLIVETTI D-COPIA PHOTOCOPIER 120 OLIVETTI D-COPIA PHOTOCOPIER 150 OLIVETTI D-COPIA PHOTOCOPIER 16W OLIVETTI D-COPIA PHOTOCOPIER 1600 OLIVETTI D-COPIA PHOTOCOPIER 163MF OLIVETTI D-COPIA PHOTOCOPIER 164MF OLIVETTI D-COPIA PHOTOCOPIER 18MF OLIVETTI D-COPIA PHOTOCOPIER 20W OLIVETTI D-COPIA PHOTOCOPIER 200 OLIVETTI D-COPIA PHOTOCOPIER 2000 OLIVETTI D-COPIA PHOTOCOPIER 2301 OLIVETTI D-COPIA PHOTOCOPIER 2701 OLIVETTI D-COPIA PHOTOCOPIER 300 OLIVETTI D-COPIA PHOTOCOPIER 3501 OLIVETTI D-COPIA PHOTOCOPIER 400 OLIVETTI D-COPIA PHOTOCOPIER 4501 OLIVETTI D-COPIA PHOTOCOPIER 500 OLIVETTI D-COPIA PHOTOCOPIER 600 OLIVETTI D-COPIA PHOTOCOPIER 800 OLIVETTI D-COPIA PHOTOCOPIER 120D OLIVETTI D-COPIA PHOTOCOPIER 150D OLIVETTI D-COPIA PHOTOCOPIER 16MF OLIVETTI D-COPIA PHOTOCOPIER 250MF OLIVETTI J-COLOR PHOTOCOPIER MF260 OLIVETTI JOB-JET PHOTOCOPIER M400

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