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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Utax Photocopier Products

Utax Photocopier Products
Please select a Utax photocopier model below

UTAX PHOTOCOPIER C08 UTAX PHOTOCOPIER CD1015 UTAX PHOTOCOPIER CD1016 UTAX PHOTOCOPIER CD1018 UTAX PHOTOCOPIER CD1020 UTAX PHOTOCOPIER CD1025 UTAX PHOTOCOPIER CD1030 UTAX PHOTOCOPIER CD1040 UTAX PHOTOCOPIER CD1045 UTAX PHOTOCOPIER CD1050 UTAX PHOTOCOPIER CD1055 UTAX PHOTOCOPIER CD1060 UTAX PHOTOCOPIER CD1063 UTAX PHOTOCOPIER CD1075 UTAX PHOTOCOPIER CD1080 UTAX PHOTOCOPIER CD1116 UTAX PHOTOCOPIER CD1120 UTAX PHOTOCOPIER CD1125 UTAX PHOTOCOPIER CD1216 UTAX PHOTOCOPIER CD1230 UTAX PHOTOCOPIER CD1240 UTAX PHOTOCOPIER CD1250 UTAX PHOTOCOPIER CD1315 UTAX PHOTOCOPIER CD1316 UTAX PHOTOCOPIER CDC1520 UTAX PHOTOCOPIER CDC1525 UTAX PHOTOCOPIER CDC1526 UTAX PHOTOCOPIER CDC1532 UTAX PHOTOCOPIER CDC1625 UTAX PHOTOCOPIER XC9682

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