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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Lexmark Photocopier Products

Lexmark Photocopier Products
Please select a Lexmark photocopier model below

LEXMARK PHOTOCOPIER P3150 LEXMARK PHOTOCOPIER P4350 LEXMARK PHOTOCOPIER P6250 LEXMARK PHOTOCOPIER P6350 LEXMARK PHOTOCOPIER X1130 LEXMARK PHOTOCOPIER X1150 LEXMARK PHOTOCOPIER X1180 LEXMARK PHOTOCOPIER X1270 LEXMARK PHOTOCOPIER X2250 LEXMARK PHOTOCOPIER X2450 LEXMARK PHOTOCOPIER X2470 LEXMARK PHOTOCOPIER X2480 LEXMARK PHOTOCOPIER X2550 LEXMARK PHOTOCOPIER X3330 LEXMARK PHOTOCOPIER X340 LEXMARK PHOTOCOPIER X342N LEXMARK PHOTOCOPIER X3480 LEXMARK PHOTOCOPIER X3550 LEXMARK PHOTOCOPIER X422MFP LEXMARK PHOTOCOPIER X4550 LEXMARK PHOTOCOPIER X4850 LEXMARK PHOTOCOPIER X4875 LEXMARK PHOTOCOPIER X500N LEXMARK PHOTOCOPIER X502N LEXMARK PHOTOCOPIER X5150 LEXMARK PHOTOCOPIER X5190PRO LEXMARK PHOTOCOPIER X5250 LEXMARK PHOTOCOPIER X5470 LEXMARK PHOTOCOPIER X5495 LEXMARK PHOTOCOPIER X560DN LEXMARK PHOTOCOPIER X6150 LEXMARK PHOTOCOPIER X6170 LEXMARK PHOTOCOPIER X6190 LEXMARK PHOTOCOPIER X6570 LEXMARK PHOTOCOPIER X6575 LEXMARK PHOTOCOPIER X630 LEXMARK PHOTOCOPIER X632 LEXMARK PHOTOCOPIER X632E LEXMARK PHOTOCOPIER X634DTE LEXMARK PHOTOCOPIER X642E LEXMARK PHOTOCOPIER X644E LEXMARK PHOTOCOPIER X646E LEXMARK PHOTOCOPIER X7170 LEXMARK PHOTOCOPIER X7350 LEXMARK PHOTOCOPIER X762E LEXMARK PHOTOCOPIER X772E LEXMARK PHOTOCOPIER X782E LEXMARK PHOTOCOPIER X7550 LEXMARK PHOTOCOPIER X820E LEXMARK PHOTOCOPIER X8350 LEXMARK PHOTOCOPIER X850E LEXMARK PHOTOCOPIER X852E LEXMARK PHOTOCOPIER X854E LEXMARK PHOTOCOPIER X9350 LEXMARK PHOTOCOPIER X940E LEXMARK PHOTOCOPIER X945E LEXMARK PHOTOCOPIER X9575

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