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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Epson Photocopier Products

Epson Photocopier Products
Please select a Epson photocopier model below

EPSON STYLUS photocopier CX11N EPSON STYLUS photocopier CX21N EPSON STYLUS photocopier CX3200 EPSON STYLUS photocopier CX3600 EPSON STYLUS photocopier CX5200 EPSON STYLUS photocopier CX5400 EPSON STYLUS photocopier CX6400 EPSON STYLUS photocopier CX6600 EPSON C8600 COLOUR STATION EPSON STYLUS photocopier DX3800 EPSON STYLUS photocopier DX4000 EPSON STYLUS photocopier DX4050 EPSON STYLUS photocopier DX4400 EPSON STYLUS photocopier DX4450 EPSON STYLUS photocopier DX4800 EPSON STYLUS photocopier DX5000 EPSON STYLUS photocopier DX5050 EPSON STYLUS photocopier DX6000 EPSON STYLUS photocopier DX6050 EPSON STYLUS photocopier DX7000F EPSON STYLUS photocopier DX7400 EPSON STYLUS photocopier DX7450 EPSON STYLUS photocopier DX8400 EPSON STYLUS photocopier DX8450 EPSON STYLUS photocopier RX420 EPSON STYLUS photocopier RX500 EPSON STYLUS photocopier RX520 EPSON STYLUS photocopier RX560 EPSON STYLUS photocopier RX585 EPSON STYLUS photocopier RX600 EPSON STYLUS photocopier RX620 EPSON STYLUS photocopier RX640 EPSON STYLUS photocopier RX685 EPSON STYLUS photocopier RX700

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