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

Photocopiers, Printers, Fax Machines & more.

Contact our Sales Team on
0845 130 6251

Browse by Category

Panasonic Photocopier Products

Panasonic Photocopier Products
Please select a Panasonic photocopier model below

PANASONIC PHOTOCOPIER 7813 PANASONIC PHOTOCOPIER FPD250 PANASONIC PHOTOCOPIER KXFLB751 PANASONIC PHOTOCOPIER DP150 PANASONIC PHOTOCOPIER DP1510P PANASONIC PHOTOCOPIER DP1515P PANASONIC PHOTOCOPIER DP1520P PANASONIC PHOTOCOPIER DP180 PANASONIC PHOTOCOPIER DP1810F PANASONIC PHOTOCOPIER DP1810P PANASONIC PHOTOCOPIER DP1820E PANASONIC PHOTOCOPIER DP1820P PANASONIC PHOTOCOPIER DP2000 PANASONIC PHOTOCOPIER DP2010E PANASONIC PHOTOCOPIER DP2310 PANASONIC PHOTOCOPIER DP2330 PANASONIC PHOTOCOPIER DP2500 PANASONIC PHOTOCOPIER DP3000 PANASONIC PHOTOCOPIER DP3010 PANASONIC PHOTOCOPIER DP3030 PANASONIC PHOTOCOPIER DP3510 PANASONIC PHOTOCOPIER DP3520 PANASONIC PHOTOCOPIER DP3530 PANASONIC PHOTOCOPIER DP4510 PANASONIC PHOTOCOPIER DP4520 PANASONIC PHOTOCOPIER DP4530 PANASONIC PHOTOCOPIER DP6010 PANASONIC PHOTOCOPIER DP6020 PANASONIC PHOTOCOPIER DP6030 PANASONIC PHOTOCOPIER DP7000 PANASONIC PHOTOCOPIER DP8016P PANASONIC PHOTOCOPIER DP8020 PANASONIC PHOTOCOPIER DP8035 PANASONIC PHOTOCOPIER DP8045 PANASONIC PHOTOCOPIER DP8060 PANASONIC PHOTOCOPIER DPC106 PANASONIC PHOTOCOPIER DPC262 PANASONIC PHOTOCOPIER DPC263 PANASONIC PHOTOCOPIER DPC264 PANASONIC PHOTOCOPIER DPC322 PANASONIC PHOTOCOPIER DPC354

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