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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Develop Photocopier Products

Develop Photocopier Products
Please select a Develop photocopier model below

DEVELOP photocopier D13F DEVELOP photocopier D1530ID DEVELOP photocopier D1531ID DEVELOP photocopier D1650ID DEVELOP photocopier D1836ID DEVELOP photocopier D2001ID DEVELOP photocopier D2501ID DEVELOP photocopier D2550ID DEVELOP photocopier D2556ID DEVELOP photocopier D3050ID DEVELOP photocopier D3550ID DEVELOP photocopier D3556ID DEVELOP photocopier D4700ID DEVELOP photocopier D5550ID DEVELOP photocopier D7250ID DEVELOP photocopier D7500ID DEVELOP photocopier DFC800 DEVELOP photocopier INEO 160 DEVELOP photocopier INEO 161 DEVELOP photocopier INEO +203 DEVELOP photocopier INEO 210 DEVELOP photocopier INEO +253 DEVELOP photocopier INEO 350 DEVELOP photocopier INEO +353 DEVELOP photocopier INEO 420 DEVELOP photocopier INEO 500 DEVELOP photocopier INEO 600 DEVELOP photocopier INEO 750 DEVELOP photocopier INEO+250 DEVELOP photocopier INEO+300 DEVELOP photocopier INEO+351 DEVELOP photocopier INEO+450 DEVELOP photocopier INEO+451 DEVELOP photocopier QC1500 DEVELOP photocopier QC2000 DEVELOP photocopier QC2235

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