
<%
' mia 18.4.2004
' Grant, add the location of the pdf files on the server here
str10mistakeslocation = "\pdf\10mistakes.pdf" ' 10mistakes
stroutsourcinglocation = "\pdf\outsourcing.pdf" ' outsourcing
stritbuyerslocation = "\pdf\ojecguide.pdf" ' itbuyers
stritrmlocation = "\newsitems\itrm_current.pdf" ' most recent ITRM

' change to address of your own SMTP server
'strHost = "spamfilter.bestpracticegroup.com"
strHost = "spamfilter.bestpracticegroup.com"

If Request("Send") <> "" Then

	Set Mail = Server.CreateObject("Persits.MailSender")
	Mail.Host = strHost
	Mail.From = "response@bestpracticegroup.com"
	Mail.FromName = "Website"

	' mia 18.4.2004
	' if email address is blank, send an email to G with postal details
	if Request("email") = "" then
				Mail.AddAddress "assessment@bestpracticegroup.com"

		Mail.Subject = "New postal publication request from website"

		if Request("10mistakes") = "requested" then
			strMailBody = strMailBody & "10mistakes: requested." & chr(13) & chr(10)
		end if
		if Request("outsourcing") = "requested" then
			strMailBody = strMailBody & "outsourcing: requested." & chr(13) & chr(10)
		end if
		if Request("itbuyers") = "requested" then
			strMailBody = strMailBody & "itbuyers: requested." & chr(13) & chr(10)
		end if
		if Request("itrm") = "requested" then
			strMailBody = strMailBody & "itrm: requested." & chr(13) & chr(10)
		end if

		strMailBody = strMailBody & "Name: " & Request("Name") & chr(13) & chr(10)
		strMailBody = strMailBody & "Title: " & Request("Title") & chr(13) & chr(10)
		strMailBody = strMailBody & "Company: " & Request("company") & chr(13) & chr(10)
		strMailBody = strMailBody & "Sector: " & Request("sector") & chr(13) & chr(10)
		strMailBody = strMailBody & "Email: " & Request("email") & chr(13) & chr(10)
		strMailBody = strMailBody & "Address line one: " & Request("address") & chr(13) & chr(10)
		strMailBody = strMailBody & "Address line two: " & Request("address2") & chr(13) & chr(10)
		strMailBody = strMailBody & "City: " & Request("city") & chr(13) & chr(10)
		strMailBody = strMailBody & "Country: " & Request("country") & chr(13) & chr(10)
		strMailBody = strMailBody & "Postcode: " & Request("postcode") & chr(13) & chr(10)

		'response.write strMailBody ' for testing only

		Mail.Body = strMailBody

		Mail.Send ' send message

	else ' send them the PDFs one by one and send an email to G summarising the request
	' NB it would be a good idea to add mail address validation here
		Mail.AddAddress Request("email")
		' Send separate email for each report requested
		strPath = Server.MapPath(".")

		if Request("10mistakes") = "requested" then
			' send the mail
			Mail.AddAddress Request("email")
			Mail.AddAttachment strPath & str10mistakeslocation
			Mail.Subject = "The little book of IT project mistakes"
			strMailBody = chr(13) & chr(10) & "Hello from Best Practice Group." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Here is your copy of 'The little book of IT project mistakes' from BPG." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Best Practice Group is a consultancy that helps its clients make sure IT projects come in on budget and work as expected." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "This is the first of a number of free guides we are producing to help clients control runaway IT budgets." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Regards," & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Best Practice Group." & chr(13) & chr(10)
			strMailBody = strMailBody & "The only guarantee in IT." & chr(13) & chr(10)
			Mail.Body = strMailBody
			Mail.Send ' send message
			Mail.Reset ' reset all address and attachment lists
		end if

		if Request("outsourcing") = "requested" then
			' send the mail
			Mail.AddAddress Request("email")
			Mail.AddAttachment strPath & stroutsourcinglocation
			Mail.Subject = "The little book of Outsourcing Mistakes"
			strMailBody = chr(13) & chr(10) & "Hello from Best Practice Group." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Here is your copy of 'The little book of Outsourcing mistakes' from BPG." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Best Practice Group is a consultancy that helps its clients make sure IT projects come in on budget and work as expected." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "This is the third of a number of free guides we are producing to help clients control runaway IT budgets.  If you'd like to be know when future booklets are released, you can subscribe to our IT Risk Management newsletter at http://www.bestpracticegroup.com." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Or if you'd like to order print copies, email us or call our helpline - 0845 345 0130." & chr(13) & chr(10) & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Regards," & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Best Practice Group." & chr(13) & chr(10)
			strMailBody = strMailBody & "The only guarantee in IT." & chr(13) & chr(10)
			Mail.Body = strMailBody
			Mail.Send ' send message
			Mail.Reset ' reset all address and attachment lists
		end if

		if Request("itbuyers") = "requested" then
			' send the mail
			Mail.AddAddress Request("email")
			Mail.AddAttachment strPath & stritbuyerslocation
			Mail.Subject = "Learning to love OJEC - a guide to buying IT for the UK public sector"
			strMailBody = chr(13) & chr(10) & "Hello from Best Practice Group." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Here is your copy of 'the little book of Learning to love OJEC' from BPG." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Best Practice Group is a consultancy that helps its clients make sure IT projects come in on budget and work as expected." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "This is the second of a number of free guides are producing to help clients control runaway IT budgets.  If you'd like to be know when future booklets are released, you can subscribe to our IT Risk Management newsletter at http://www.bestpracticegroup.com." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Or if you'd like to order print copies, email us or call our helpline - 0845 345 0130." & chr(13) & chr(10) & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Regards," & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Best Practice Group." & chr(13) & chr(10)
			strMailBody = strMailBody & "The only guarantee in IT." & chr(13) & chr(10)
			Mail.Body = strMailBody
			Mail.Send ' send message
			Mail.Reset ' reset all address and attachment lists
		end if

		if Request("itrm") = "requested" then
			' send the mail
			Mail.AddAddress Request("email")
			Mail.AddAttachment strPath & stritrmlocation
			Mail.Subject = "ITRM subscription request received - and most recent edition enclosed"
			strMailBody = chr(13) & chr(10) & "Hello from Best Practice Group." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Thank you for subscribing to our IT Risk Management Newsletter." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "You'll receive new issues bi-monthly and the most recent edition can be viewed at http://www.bestpracticegroup.com/newsitems/itrm_current.htm." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "If you ever want to unsubscribe, please let us know at risk@bestpracticegroup.com." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Back issues of ITRM are also available at www.bestpracticegroup.com/new.htm." & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Regards," & chr(13) & chr(10) & chr(13) & chr(10)
			strMailBody = strMailBody & "Best Practice Group." & chr(13) & chr(10)
			strMailBody = strMailBody & "The only guarantee in IT." & chr(13) & chr(10)
			Mail.Body = strMailBody
			Mail.Send ' send message
			Mail.Reset ' reset all address and attachment lists
		end if

		Mail.From = "response@bestpracticegroup.com"
		Mail.FromName = "Website"

		' then send one email to G wth details of request.
		Mail.AddAddress "assessment@bestpracticegroup.com"
		strMailBody = ""

		Mail.Subject = "New email publication request from website"
			if Request("10mistakes") = "requested" then
			strMailBody = strMailBody & "10mistakes: requested." & chr(13) & chr(10)
		end if
		if Request("outsourcing") = "requested" then
			strMailBody = strMailBody & "outsourcing: requested." & chr(13) & chr(10)
		end if
		if Request("itbuyers") = "requested" then
			strMailBody = strMailBody & "OJEC: requested." & chr(13) & chr(10)
		end if
		if Request("itrm") = "requested" then
			strMailBody = strMailBody & "itrm: requested." & chr(13) & chr(10)
		end if

		strMailBody = strMailBody & "Name: " & Request("Name") & chr(13) & chr(10)
		strMailBody = strMailBody & "Title: " & Request("Title") & chr(13) & chr(10)
		strMailBody = strMailBody & "Company: " & Request("company")& chr(13) & chr(10)
		strMailBody = strMailBody & "Sector: " & Request("sector")& chr(13) & chr(10)
		strMailBody = strMailBody & "Email: " & Request("email")& chr(13) & chr(10)
		strMailBody = strMailBody & "Address line one: " & Request("address") & chr(13) & chr(10)
		strMailBody = strMailBody & "Address line two: " & Request("address2") & chr(13) & chr(10)
		strMailBody = strMailBody & "City: " & Request("city") & chr(13) & chr(10)
		strMailBody = strMailBody & "Country: " & Request("country") & chr(13) & chr(10)
		strMailBody = strMailBody & "Postcode: " & Request("postcode") & chr(13) & chr(10)

		Mail.Body = strMailBody
		Mail.Send ' send message
		Mail.Reset ' reset all address and attachment lists

	end if

	'Response.Write "Success!<P>"
	' should take user to a new page or print some acknowledgement that their form was
	' submitted successfully

End If

%>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd"><html><!-- InstanceBegin template="/Templates/bpg_3.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Order BPG publications</title>
<!-- InstanceEndEditable --><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="bpg.css" rel="stylesheet" type="text/css">
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
<style type="text/css">
<!--

}
-->
</style>
<META NAME="title" CONTENT="Description"="Best Practice Group PLC: The Only Guarantee in IT"
<META NAME="description" CONTENT="Best Practice Group PLC is an independent IT consultancy specialising risk free purchasing of IT systems, project management, project recovery and risk management">
<META NAME="keywords" content="Procurement, IT procurement, Procurement of IT Systems, Buying IT, Buying an IT system, procuring IT systems, Managing IT projects, project management, purchasing IT, ICT, Government IT, corporate IT, blue chip company IT, Local Authority IT, Computer experts, Business consultants, IT consultancy, IT consultants, consultants, consultancy, IT litigation, Invitation to tender, Best Practice Group, best practice, IT dispute resolution, Legal technology, Technical protection, Contractual protection, Resolving disputes, Risk management, Systems failure, System selection, Statement of computer objectives, Information systems strategy, IT Risk Management, Service level agreements, Computer contracts, Software licences, Choosing a supplier, IT procurement, Expert witnesses, expert witness, IT supplier selection, supplier, supplier selection, Hardware and software incompatibility, Computer, due diligence, IT trouble shooters, Dispute management, Business interruption , Defective computer systems, Disaster recovery, Quantum evaluation, Information Technology litigation, Computer problem solution">
</head>

<body>
<!--/branding/headers/incl_header_index.html-->
<!--start header-->
<link rel=stylesheet href="/branding/stylesheets/site.css" type="text/css">
<table cellpadding="0" cellspacing="0" border="0" width="640">
	<tr>
	  <td><a name="top"></a>
			<a href="/index.html"><img src="images/logo_bpg.gif" width="640" height="63" alt="Home" border="0"></a><br>
			<img src="images/strap.gif" width="186" height="24"> </td>
	</tr>
	<tr>
		<td height="2" class="bgblack"><img src="/images/spacer.gif" width="1" height="2"></td>
	</tr>
</table>

<!--end header-->
<!--startindex-->
<table width="640" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="123" valign="top"><table width="123" border="0" cellpadding="4" cellspacing="0" class="lhsnav2" >
      <tr>
        <td valign="top" class="col-1-maintitle"><a href="index.htm" class="lhsnav2">Home</a></td>
      </tr>
      <tr>
        <td valign="top">&nbsp;</td>
      </tr>
      <tr>
        <td valign="top" class="col-1-maintitle">Advice</td>
      </tr>
      <tr>
        <td valign="top"><p><a href="news.htm">Recent updates</a><br>
            <a href="10mistakes.htm">10 mistakes</a><br>
            <a href="enewsletters.htm">E-newsletters<br>
          </a><img src="images/spacer.gif" width="1" height="1">          </p>          </td>
      </tr>
      <tr>
        <td valign="top" class="col-1-maintitle">What we do </td>
      </tr>
      <tr>
        <td height="76" valign="top"><p><a href="riskfree.htm">Risk free IT</a><a href="mentoring.htm"><br>
  Mentoring</a><br>
              <a href="expertwitness.htm">Expert witness</a><br>
              <a href="projectrecovery.htm">Project recovery<br>
              </a><a href="case_studies.html">Case Studies</a> <br>
          </p>
          </td>
      </tr>
      <tr>
        <td valign="top" class="col-1-maintitle">Contact us </td>
      </tr>
      <tr>
        <td valign="top"><p><a href="helpline.htm">BPG helpline<br>
        </a><a href="offices.htm">Office Addresses</a> <br>
        <a href="press.html">Press Enquiries</a></p>          </td>
      </tr>
    </table><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"></td>
    <td width="1" rowspan="2" class="columntwo"><span class="bgblack"><img src="images/spacer.gif" width="1" height="1" class="columntwo"></span></td>
    <td width="343" rowspan="2" valign="top"><div align="center">
        <table width="335" border="0" align="center" cellpadding="4" cellspacing="0">
          <tr>
            <td class="col-3-maintitle"><div align="left"><!-- InstanceBeginEditable name="heading" -->
            <% If Request("Send") <> "" Then ' form has been run so present thanks
            %>
            Thank you for your request
            <% else ' form hasn't been run so present form
            %>
            Request BPG publications
            <% end if
            %> <!-- InstanceEndEditable --></div></td>
          </tr>
        </table>
        <table width="335" border="0" align="center" cellpadding="6" cellspacing="0">
          <tr>
            <td class="col3"><div align="left"><!-- InstanceBeginEditable name="bodycopy" -->

            <% If Request("Send") <> "" Then ' form has been run so present thanks
            %>
            <p>Thank you for your request.  You will receive your publications shortly.</p>
            <% else ' form hasn't been run so present form
            %>

            <p>As well as our IT Risk management newsletter, BPG produces regular, free &quot;little guides&quot; to key IT buying issues. </p>
            <p>To recieve free PDF copies by email, enter your email address and tick the publications you'd like to receive.</p>
            <p>New guides can also be pre-ordered and will be sent as soon as they are ready. </p>
            <p>If you have any problems, please email or call us on our <a href="helpline.htm">helpline</a>. </p>
            <p class="col-3-maintitle">Your order</p>
            <table width="335" border="0" cellspacing="0" cellpadding="4">
              <caption>&nbsp;
              </caption>
              <tr>
                <td valign="top">&nbsp;</td>
                <td><span class="style1">TITLE</span></td>
                <td>AVAIL</td>
              </tr>
              <tr>
                <td width="20" valign="top"><form name="form1" method="post" action="">
                  <input name="10mistakes" type="checkbox" id="10mistakes" value="requested">
                </td>
                <td width="235">The little book of IT project mistakes ("The 10 mistakes everyone makes with IT projects")<br>
                  <br>
                </p>                  </td>
                <td width="56" valign="top">Now</td>
              </tr>
              <tr>
                <td valign="top"><input name="outsourcing" type="checkbox" id="outsourcing" value="requested"></td>
                <td>The little book of Outsourcing Mistakes<br>                  <br></td>
                <td valign="top">Now</td>
              </tr>
              <tr>
                <td valign="top"><input name="itbuyers" type="checkbox" id="itbuyers" value="requested"></td>
                <td>Learning to love OJEC (advice for IT buyers in the public sector)<br>
                  <br>
                </p>                  </td>
                <td valign="top">Now</td>
              </tr>
              <tr>
                <td valign="top"><input name="itrm" type="checkbox" id="itrm" value="requested"></td>
                <td>You can also subscribe to our <em><a href="newsitems/itrm_current.htm">IT Risk Management newsletter</a></em> <br></td>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
            <p class="col-3-maintitle">            Your details            </p>
            <table width="335" border="0" cellspacing="0" cellpadding="4">
              <tr>
                <td>Name</td>
                <td><INPUT NAME="Name" TYPE="TEXT" id="Name2"></td>
              </tr>
              <tr>
                <td>Title</td>
                <td><INPUT NAME="Title" TYPE="TEXT" id="Title"></td>
              </tr>
              <tr>
                <td>Company</td>
                <td><INPUT NAME="company" TYPE="TEXT" id="company"></td>
              </tr>
              <tr>
                <td>Sector</td>
                <td>
                  <select name="sector" id="sector">
                    <option value="Local & Central Government" selected>Local &amp; Central Government</option>
                    <option value="Education & Training">Education &amp; Training</option>
                    <option value="Health, Social & Public Services">Health, Social &amp; Public Services</option>
                    <option value="Banking, Finance, Insurance">Banking, Finance, Insurance</option>
                    <option value="Manufacturing and engineering">Manufacturing and engineering</option>
                    <option value="Business Services">Business Services</option>
                    <option value="Utilities, Energy, Water">Utilities, Energy, Water</option>
                    <option value="Communications">Communications</option>
                    <option value="Media">Media</option>
                    <option value="Construction, Agriculture, Mining">Construction, Agriculture, Mining</option>
                    <option value="Automotive">Automotive</option>
                    <option value="Catering, Hotels, Leisure, Entertainment">Catering, Hotels, Leisure, Entertainment</option>
                    <option value="Retail">Retail</option>
                    <option value="Transport, Travel">Transport, Travel</option>
                    <option value="IT Consultancy">IT Consultancy</option>
                    <option value="Other">Other</option>
                  </select>
				</td>
              </tr>
              <tr>
                <td colspan="2"><p>&nbsp;</p>
                  <p>If you'd prefer to be emailed PDFs, please enter your email. </p></td>
                </tr>
              <tr>
                <td>Email</td>
                <td><INPUT NAME="email" TYPE="TEXT" id="email"></td>
              </tr>
              <tr>
                <td colspan="2"><p>&nbsp;</p>
                  <p>If you would prefer publications by post, please enter a postal address </p></td>
                </tr>
              <tr>
                <td>Address</td>
                <td><INPUT NAME="address" TYPE="TEXT" id="address"></td>
              </tr>
              <tr>
                <td>Address</td>
                <td><INPUT NAME="address2" TYPE="TEXT" id="address2"></td>
              </tr>
              <tr>
                <td>City</td>
                <td><INPUT NAME="city" TYPE="TEXT" id="city"></td>
              </tr>
              <tr>
                <td>Country</td>
                <td><INPUT NAME="country" TYPE="TEXT" id="country"></td>
              </tr>
              <tr>
                <td>Postcode</td>
                <td><INPUT NAME="postcode" TYPE="TEXT" id="postcode"></td>
              </tr>
            </table>
            <p>
              <INPUT TYPE=SUBMIT NAME="Send" VALUE="Place order">
            </p>
            </FORM>


            <% end if
            %>


<!-- InstanceEndEditable --></div></td>
          </tr>
        </table>
    </div>      <p align="center">&nbsp;</p></td>
    <td width="1" rowspan="2" class="columnfour"><img src="images/spacer.gif" width="1" height="1" class="col-5-contentspacer"></td>
    <td width="172" rowspan="2" valign="top" class="col3"><table border="0" align="center" cellpadding="0" cellspacing="0" class="col3">
      <tr>
        <td width="168" height="81"><div align="left">
          <p><img src="images/but_email.gif" width="161" height="66"></p>
          </div></td>
      </tr><td align="left" valign="top" class="col-5-contentspacer"><img src="/images/spacer.gif" width="1" height="1"></td>
	  
      <tr>
        <td><table width="100%"  border="0" cellspacing="4">
          <tr>
            <td><p><span class="redtext">Recent updates</span><br>
              <A href="/orderform.php"><strong>New guides</strong></A> <BR>
              Download the new   "little book of IT project mistakes" or our guide to OJEC government IT   buying.</p>
              <p><a href="newsitems/gatewayITRMfeb04.htm"><strong>One minute guide</strong></a><i><strong> - </strong>Will tightening up the government's &quot;gateway&quot; project-managment process reduce the chance of IT failure?</i></p>
              <p><span class="style1"><a href="newsitems/legallyITRMfeb04.htm">Are you legally covered? </a></span><em><span class="bodycopy"><em>When IT executives end up in court, they are often surprised to find it's not enough to have tried to act ethically. What else do you need to do?</em></span></em></p></td>
          </tr>
        </table>        
          </td>
      </tr>
      <tr>
        <td height="0" class="col-5-contentspacer"><img src="images/spacer.gif" width="1" height="1"></td>
      </tr>
      <tr>
        <td><p><img src="images/logo_associations.gif" width="158" height="47"></p>          </td>
      </tr>
    </table>      
      <p><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><br>    
        <img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><br>    
        <img src="images/spacer.gif" width="1" height="3"></p></td>
  </tr>
  <tr>
    <td valign="top">&nbsp;</td>
  </tr>
</table>
<table width="640" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="/images/spacer.gif" width="1" height="20"></td>
  </tr>
  <tr>
    <td class="col-5-contentspacer"><img src="/images/spacer.gif" width="1" height="1"></td>
  </tr>
  <tr>
    <td><img src="/images/spacer.gif" width="1" height="5"></td>
  </tr>
  <tr>
    <td align="center">Copyright &copy;
        <script language="Javascript">
////
var today = new Date();
var theyear = today.getFullYear();
document.write(theyear);
  </script>
      Best Practice Group PLC</td>
  </tr>
  <tr>
    <td><img src="/images/spacer.gif" width="1" height="5"></td>
  </tr>
</table>
</body>
<!-- InstanceEnd --></html>