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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Minolta Photocopier Products

Minolta Photocopier Products
Please select a Minolta photocopier model below

MINOLTA PHOTOCOPIER 1030 MINOLTA BIZHUB PHOTOCOPIER 160 MINOLTA BIZHUB PHOTOCOPIER 161 MINOLTA BIZHUB PHOTOCOPIER 162 MINOLTA BIZHUB PHOTOCOPIER 210 MINOLTA BIZHUB PHOTOCOPIER 250 MINOLTA BIZHUB PHOTOCOPIER 350 MINOLTA BIZHUB PHOTOCOPIER 600 MINOLTA BIZHUB PHOTOCOPIER 750 MINOLTA BIZHUB PHOTOCOPIER C250 MINOLTA BIZHUB PHOTOCOPIER C351 MINOLTA BIZHUB PHOTOCOPIER C450 MINOLTA BIZHUB PHOTOCOPIER PRO 920 MINOLTA PHOTOCOPIER CF1501 MINOLTA PHOTOCOPIER CF2001 MINOLTA PHOTOCOPIER CF2002 MINOLTA PHOTOCOPIER CF3102 MINOLTA PHOTOCOPIER CF5001 MINOLTA PHOTOCOPIER CF9001 MINOLTA DIALTA PHOTOCOPIER DI151 MINOLTA DIALTA PHOTOCOPIER DI152 MINOLTA DIALTA PHOTOCOPIER DI183 MINOLTA DIALTA PHOTOCOPIER DI200 MINOLTA DIALTA PHOTOCOPIER DI2510 MINOLTA DIALTA PHOTOCOPIER DI3010 MINOLTA DIALTA PHOTOCOPIER DI3510 MINOLTA DIALTA PHOTOCOPIER DI470 MINOLTA DIALTA PHOTOCOPIER DI551 MINOLTA DIALTA PHOTOCOPIER DI650 MINOLTA DIALTA PHOTOCOPIER DI750 MINOLTA DIALTA PHOTOCOPIER DI850 MINOLTA DIALTA PHOTOCOPIER DI1610 MINOLTA DIALTA PHOTOCOPIER DI1611 MINOLTA DIALTA PHOTOCOPIER DI2011 MINOLTA DIALTA PHOTOCOPIER DI5510 MINOLTA DIALTA PHOTOCOPIER DI7210

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