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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Konica Photocopier Products

Konica Photocopier Products
Please select a Konica photocopier model below

KONICA PHOTOCOPIER 1216 KONICA PHOTOCOPIER 1312 KONICA PHOTOCOPIER 7013 KONICA PHOTOCOPIER 7022 KONICA PHOTOCOPIER 7085 KONICA PHOTOCOPIER 7115 KONICA PHOTOCOPIER 7118 KONICA PHOTOCOPIER 7130 KONICA PHOTOCOPIER 7135 KONICA PHOTOCOPIER 7145 KONICA PHOTOCOPIER 7155 KONICA PHOTOCOPIER 7165 KONICA PHOTOCOPIER 7216 KONICA PHOTOCOPIER 7220 KONICA PHOTOCOPIER 7222 KONICA PHOTOCOPIER 7228 KONICA PHOTOCOPIER 7235 KONICA PHOTOCOPIER 7255 KONICA PHOTOCOPIER 7272 KONICA PHOTOCOPIER 7415 KONICA PHOTOCOPIER 7416 KONICA PHOTOCOPIER 7832 KONICA PHOTOCOPIER 8020 KONICA PHOTOCOPIER 8031 KONICA PHOTOCOPIER 8050 KONICA BIZHUB PHOTOCOPIER 130F KONICA BIZHUB PHOTOCOPIER 160 KONICA BIZHUB PHOTOCOPIER 161 KONICA BIZHUB PHOTOCOPIER 162 KONICA BIZHUB PHOTOCOPIER 163 KONICA BIZHUB PHOTOCOPIER 210 KONICA BIZHUB PHOTOCOPIER 211 KONICA BIZHUB PHOTOCOPIER 250 KONICA BIZHUB PHOTOCOPIER 350 KONICA BIZHUB PHOTOCOPIER 420 KONICA BIZHUB PHOTOCOPIER 500 KONICA BIZHUB PHOTOCOPIER 600 KONICA BIZHUB PHOTOCOPIER 750 KONICA BIZHUB PHOTOCOPIER C203 KONICA BIZHUB PHOTOCOPIER C250 KONICA BIZHUB PHOTOCOPIER C252 KONICA BIZHUB PHOTOCOPIER C253 KONICA BIZHUB PHOTOCOPIER C300 KONICA BIZHUB PHOTOCOPIER C350 KONICA BIZHUB PHOTOCOPIER C351 KONICA BIZHUB PHOTOCOPIER C352 KONICA BIZHUB PHOTOCOPIER C353 KONICA BIZHUB PHOTOCOPIER C450 KONICA BIZHUB PHOTOCOPIER C451 KONICA BIZHUB PHOTOCOPIER C650 KONICA BIZHUB PHOTOCOPIER PRO920 KONICA BIZHUB PHOTOCOPIER PRO 1050 KONICA BIZHUB PHOTOCOPIER PRO C500 KONICA BIZHUB PHOTOCOPIER PRO C6500 KONICA MAGICOLOUR PHOTOCOPIER 2480MF KONICA MAGICOLOUR PHOTOCOPIER 2490MF KONICA PHOTOCOPIER PAGEPRO 1380MF KONICA PHOTOCOPIER PAGEPRO 1390MF

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