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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Brother Photocopier Products

Brother Photocopier Products
Please select a Brother photocopier model below

BROTHER DCP 110C photocopier BROTHER DCP 115C photocopier BROTHER DCP 120C photocopier BROTHER DCP 130C photocopier BROTHER DCP 135C photocopier BROTHER DCP 150C photocopier BROTHER DCP 310CN photocopier BROTHER DCP 315CN photcopier BROTHER DCP 330C photcopier BROTHER DCP 340CW photocopier BROTHER DCP 4020C photocopier BROTHER DCP 540CN photocopier BROTHER DCP 560CN photocopier BROTHER DCP 7010 photocopier BROTHER DCP 7025 photocopier BROTHER DCP 750CW photocopier BROTHER DCP 770CW photocopier BROTHER DCP 8020 photocopier BROTHER DCP 8025D photocopier BROTHER DCP 8040 photocopier BROTHER DCP 8045D photocopier BROTHER DCP 8060 photocopier BROTHER DCP 8065DN photocopier BROTHER DCP 9040 photocopier BROTHER DCP 9045 photocopier BROTHER MFC 210C photocopier BROTHER MFC 215C photocopier BROTHER MFC 235C photocopier BROTHER MFC 240C photocopier BROTHER MFC 260C photocopier BROTHER MFC 3420C photocopier BROTHER MFC 3820CN photocopier BROTHER MFC 410CN photocopier BROTHER MFC 425CN copier BROTHER MFC 440CN copier BROTHER MFC 465CN copier BROTHER MFC 4820C photocopier BROTHER MFC 5440CN photocopier BROTHER MFC 5460CN photocopie BROTHER MFC 5840CN photocopier BROTHER MFC 590 photocopier BROTHER MFC 620CN copier BROTHER MFC 680CN copier BROTHER MFC 640CW photocopier BROTHER MFC 7420 photocopier BROTHER MFC 7820N photocopier BROTHER MFC 820CW photocopier BROTHER MFC 8420 copier BROTHER MFC 8440 photocopier BROTHER MFC 8460N photocopier BROTHER MFC 855 photocopier BROTHER MFC 8820 photocopier BROTHER MFC 8860DN photocopier BROTHER MFC 8870DW photocopier BROTHER MFC 890 photocopier BROTHER MFC 9160 photocopier BROTHER MFC 9180 photocopier BROTHER MFC 9420CN photocopier BROTHER MFC 9440CN photocopier BROTHER MFC 9840 photocopier BROTHER MFC 9880 copier

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