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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Imagistics Photocopier Products

Imagistics Photocopier Products
Please select a Imagistics photocopier model below

IMAGISTICS PHOTOCOPIER 4100 IMAGISTICS PHOTOCOPIER 4512 IMAGISTICS PHOTOCOPIER 4516 IMAGISTICS PHOTOCOPIER 5125 IMAGISTICS PHOTOCOPIER CM3120 IMAGISTICS PHOTOCOPIER CM3525 IMAGISTICS PHOTOCOPIER CM3530 IMAGISTICS PHOTOCOPIER CM4525 IMAGISTICS PHOTOCOPIER CM4530 IMAGISTICS PHOTOCOPIER IM1620 IMAGISTICS PHOTOCOPIER IM1635 IMAGISTICS PHOTOCOPIER IM2020 IMAGISTICS PHOTOCOPIER IM2315 IMAGISTICS PHOTOCOPIER IM2520 IMAGISTICS PHOTOCOPIER IM2715 IMAGISTICS PHOTOCOPIER IM3510 IMAGISTICS PHOTOCOPIER IM4510 IMAGISTICS PHOTOCOPIER IM5530 IMAGISTICS PHOTOCOPIER IM5540 IMAGISTICS PHOTOCOPIER IM6530 IMAGISTICS PHOTOCOPIER IM6540 IMAGISTICS PHOTOCOPIER IM7540 IMAGISTICS PHOTOCOPIER IM8130 IMAGISTICS PHOTOCOPIER IM8540 IMAGISTICS PHOTOCOPIER IX2700 IMAGISTICS PHOTOCOPIER FX2100 IMAGISTICS PHOTOCOPIER SX2100

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