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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Infotec Photocopier Products

Infotec Photocopier Products
Please select a Infotec photocopier model below

INFOTEC PHOTOCOPIER 4181MF INFOTEC PHOTOCOPIER 4182MF INFOTEC PHOTOCOPIER 7356DZ INFOTEC PHOTOCOPIER 7513 INFOTEC PHOTOCOPIER IF3050 INFOTEC PHOTOCOPIER IP2838 INFOTEC PHOTOCOPIER IPC3535 INFOTEC PHOTOCOPIER IS2013 INFOTEC PHOTOCOPIER IS2015 INFOTEC PHOTOCOPIER IS2018 INFOTEC PHOTOCOPIER IS2022 INFOTEC PHOTOCOPIER IS2027 INFOTEC PHOTOCOPIER IS2035 INFOTEC PHOTOCOPIER IS2045 INFOTEC PHOTOCOPIER IS2055 INFOTEC PHOTOCOPIER IS2060 INFOTEC PHOTOCOPIER IS2075 INFOTEC PHOTOCOPIER IS2090 INFOTEC PHOTOCOPIER IS2105 INFOTEC PHOTOCOPIER IS2113 INFOTEC PHOTOCOPIER IS2122 INFOTEC PHOTOCOPIER IS2127 INFOTEC PHOTOCOPIER IS2132 INFOTEC PHOTOCOPIER IS2135 INFOTEC PHOTOCOPIER IS2145 INFOTEC PHOTOCOPIER IS2151 INFOTEC PHOTOCOPIER IS2160 INFOTEC PHOTOCOPIER IS2175 INFOTEC PHOTOCOPIER IS2215 INFOTEC PHOTOCOPIER IS2216 INFOTEC PHOTOCOPIER IS2220 INFOTEC PHOTOCOPIER IS2225 INFOTEC PHOTOCOPIER IS2230 INFOTEC PHOTOCOPIER IS2235 INFOTEC PHOTOCOPIER IS2245 INFOTEC PHOTOCOPIER IS2255 INFOTEC PHOTOCOPIER IS2265 INFOTEC PHOTOCOPIER IS2275 INFOTEC PHOTOCOPIER IS2315 INFOTEC PHOTOCOPIER IS2316 INFOTEC PHOTOCOPIER IS2320 INFOTEC PHOTOCOPIER IS2435 INFOTEC PHOTOCOPIER IS2445 INFOTEC PHOTOCOPIER IS3090 INFOTEC PHOTOCOPIER IS3110 INFOTEC PHOTOCOPIER IS3135 INFOTEC PHOTOCOPIER ISC1024C INFOTEC PHOTOCOPIER ISC1032 INFOTEC PHOTOCOPIER ISC2028 INFOTEC PHOTOCOPIER ISC2428 INFOTEC PHOTOCOPIER ISC2432 INFOTEC PHOTOCOPIER ISC2525 INFOTEC PHOTOCOPIER ISC2835 INFOTEC PHOTOCOPIER ISC2838 INFOTEC PHOTOCOPIER ISC3030 INFOTEC PHOTOCOPIER ISC3535 INFOTEC PHOTOCOPIER ISC3545 INFOTEC PHOTOCOPIER ISC4045 INFOTEC PHOTOCOPIER ISC4560 INFOTEC PHOTOCOPIER ISC5560 INFOTEC PHOTOCOPIER ISC824

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