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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Lanier Photocopier Products

Lanier Photocopier Products
Please select a Lanier photocopier model below

LANIER PHOTOCOPIER 5515 LANIER PHOTOCOPIER 5518 LANIER PHOTOCOPIER 5613 LANIER PHOTOCOPIER 5618 LANIER PHOTOCOPIER 5622 LANIER PHOTOCOPIER 5627 LANIER PHOTOCOPIER 5632 LANIER PHOTOCOPIER 5813 LANIER PHOTOCOPIER AC016 LANIER PHOTOCOPIER LD0105 LANIER PHOTOCOPIER LD013 LANIER PHOTOCOPIER LD015 LANIER PHOTOCOPIER LD024C LANIER PHOTOCOPIER LD032C LANIER PHOTOCOPIER LD035 LANIER PHOTOCOPIER LD045 LANIER PHOTOCOPIER LD055 LANIER PHOTOCOPIER LD060 LANIER PHOTOCOPIER LD075 LANIER PHOTOCOPIER LD090 LANIER PHOTOCOPIER LD115 LANIER PHOTOCOPIER LD116 LANIER PHOTOCOPIER LD118 LANIER PHOTOCOPIER LD120 LANIER PHOTOCOPIER LD120D LANIER PHOTOCOPIER LD122 LANIER PHOTOCOPIER LD124C LANIER PHOTOCOPIER LD127 LANIER PHOTOCOPIER LD132 LANIER PHOTOCOPIER LD135 LANIER PHOTOCOPIER LD145 LANIER PHOTOCOPIER LD151 LANIER PHOTOCOPIER LD160 LANIER PHOTOCOPIER LD175 LANIER PHOTOCOPIER LD225 LANIER PHOTOCOPIER LD228C LANIER PHOTOCOPIER LD230 LANIER PHOTOCOPIER LD232C LANIER PHOTOCOPIER LD235 LANIER PHOTOCOPIER LD238C LANIER PHOTOCOPIER LD245 LANIER PHOTOCOPIER LD330C LANIER PHOTOCOPIER LD335C LANIER PHOTOCOPIER LD345C LANIER PHOTOCOPIER LF125M LANIER PHOTOCOPIER LP138C LANIER PHOTOCOPIER LP235C LANIER PHOTOCOPIER R122 LANIER PHOTOCOPIER R127 LANIER PHOTOCOPIER R135 LANIER PHOTOCOPIER R145 LANIER PHOTOCOPIER R160 LANIER PHOTOCOPIER R175

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