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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Sharp Photocopier Products

Sharp Photocopier Products
Please select a Sharp photocopier model below

SHARP PHOTOCOPIER AL1457 SHARP PHOTOCOPIER AL1457D SHARP PHOTOCOPIER AL1553 SHARP PHOTOCOPIER AL1555 SHARP PHOTOCOPIER AL1566 SHARP PHOTOCOPIER AL1611 SHARP PHOTOCOPIER AL1622 SHARP PHOTOCOPIER AL1644 SHARP PHOTOCOPIER AL2020 SHARP PHOTOCOPIER AL2040 SHARP PHOTOCOPIER AM300 SHARP PHOTOCOPIER AM400 SSHARP PHOTOCOPIER AR122E SHARP PHOTOCOPIER AR151 SHARP PHOTOCOPIER AR156 SHARP PHOTOCOPIER AR163 SHARP PHOTOCOPIER AR206 SHARP PHOTOCOPIER AR507 SHARP PHOTOCOPIER AR651 SHARP PHOTOCOPIER AR810 SHARP PHOTOCOPIER ARC170M SHARP PHOTOCOPIER ARC172M SHARP PHOTOCOPIER ARC260 SHARP PHOTOCOPIER ARC262M SHARP PHOTOCOPIER ARC270 SHARP PHOTOCOPIER ARC330 SHARP PHOTOCOPIER ARF152 SHARP PHOTOCOPIER ARM150 SHARP PHOTOCOPIER ARM155 SHARP PHOTOCOPIER ARM160 SHARP PHOTOCOPIER ARM165 SHARP PHOTOCOPIER ARM205 SHARP PHOTOCOPIER ARM207 SHARP PHOTOCOPIER ARM236 SHARP PHOTOCOPIER ARM276 SHARP PHOTOCOPIER ARM300 SHARP PHOTOCOPIER ARM351N SHARP PHOTOCOPIER ARM451N SHARP PHOTOCOPIER ARM550U SHARP PHOTOCOPIER ARM5316e SHARP PHOTOCOPIER ARM5320e SHARP PHOTOCOPIER ARM620 SHARP PHOTOCOPIER ARM700U SHARP PHOTOCOPIER MX1800N SHARP PHOTOCOPIER MX2300N SHARP PHOTOCOPIER MX2700N SHARP PHOTOCOPIER MX3500N SHARP PHOTOCOPIER MX3510N SHARP PHOTOCOPIER MX4500N SHARP PHOTOCOPIER MX4501N SHARP PHOTOCOPIER MX5500N SHARP PHOTOCOPIER MX6200N SHARP PHOTOCOPIER MX6201N SHARP PHOTOCOPIER MX7000N SHARP PHOTOCOPIER MX7001N SHARP PHOTOCOPIER MXM1100 SHARP PHOTOCOPIER MXM850 SHARP PHOTOCOPIER MXM950

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