<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/laingbuissonconsulting.asp" -->
<!--#include file="Connections/Consult_Biogs.asp" -->
<!--#include file="Connections/Consult_clientlist.asp" -->

<%
Dim Recordset_pagetext
Dim Recordset_pagetext_numRows

Set Recordset_pagetext = Server.CreateObject("ADODB.Recordset")
Recordset_pagetext.ActiveConnection = MM_laingbuissonconsulting_STRING
Recordset_pagetext.Source = "SELECT * FROM Consult_text"
Recordset_pagetext.CursorType = 0
Recordset_pagetext.CursorLocation = 2
Recordset_pagetext.LockType = 1
Recordset_pagetext.Open()

Recordset_pagetext_numRows = 0
%>
<%
Dim Recordset_ConsultBiogDet
Dim Recordset_ConsultBiogDet_numRows

Set Recordset_ConsultBiogDet = Server.CreateObject("ADODB.Recordset")
Recordset_ConsultBiogDet.ActiveConnection = MM_Consult_Biogs_STRING
Recordset_ConsultBiogDet.Source = "SELECT * FROM Consult_Biogs ORDER BY lid ASC"
Recordset_ConsultBiogDet.CursorType = 0
Recordset_ConsultBiogDet.CursorLocation = 2
Recordset_ConsultBiogDet.LockType = 1
Recordset_ConsultBiogDet.Open()

Recordset_ConsultBiogDet_numRows = 0
%>
<%
Dim Recordset_Consult_clientlist__MMColParam
Recordset_Consult_clientlist__MMColParam = "1"
If (Request.QueryString("lid") <> "") Then 
  Recordset_Consult_clientlist__MMColParam = Request.QueryString("lid")
End If
%>

<%
Dim Recordset_Consult_clientlist
Dim Recordset_Consult_clientlist_numRows

Set Recordset_Consult_clientlist = Server.CreateObject("ADODB.Recordset")
Recordset_Consult_clientlist.ActiveConnection = MM_Consult_clientlist_STRING
Recordset_Consult_clientlist.Source = "SELECT * FROM Consult_clientlist WHERE lid = " + Replace(Recordset_Consult_clientlist__MMColParam, "'", "''") + ""
Recordset_Consult_clientlist.CursorType = 0
Recordset_Consult_clientlist.CursorLocation = 2
Recordset_Consult_clientlist.LockType = 3
Recordset_Consult_clientlist.Open()

Recordset_Consult_clientlist_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("lid") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("lid")
End If
%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Consult_clientlist_STRING
Recordset1.Source = "SELECT * FROM Consult_clientlist WHERE lid = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY Clientname ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Request.QueryString("lid") <> "") Then 
  Recordset2__MMColParam = Request.QueryString("lid")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_Consult_clientlist_STRING
Recordset2.Source = "SELECT * FROM Consult_clientlist WHERE lid = " + Replace(Recordset2__MMColParam, "'", "''") + " ORDER BY Clientname ASC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Recordset_Hospital__MMColParam
Recordset_Hospital__MMColParam = "1"
If (Request.QueryString("lid") <> "") Then 
  Recordset_Hospital__MMColParam = Request.QueryString("lid")
End If
%>

<%
Dim Recordset_Hospital
Dim Recordset_Hospital_numRows

Set Recordset_Hospital = Server.CreateObject("ADODB.Recordset")
Recordset_Hospital.ActiveConnection = MM_Consult_clientlist_STRING
Recordset_Hospital.Source = "SELECT * FROM Consult_clientlist  WHERE lid = " + Replace(Recordset_Hospital__MMColParam, "'", "''") + ""
Recordset_Hospital.CursorType = 0
Recordset_Hospital.CursorLocation = 2
Recordset_Hospital.LockType = 3
Recordset_Hospital.Open()

Recordset_Hospital_numRows = 0
%>
<%
Dim Recordset_FinancialServicesInvestors__MMColParam
Recordset_FinancialServicesInvestors__MMColParam = "1"
If (Request.QueryString("lid") <> "") Then 
  Recordset_FinancialServicesInvestors__MMColParam = Request.QueryString("lid")
End If
%>

<%
Dim Recordset_FinancialServicesInvestors
Dim Recordset_FinancialServicesInvestors_numRows

Set Recordset_FinancialServicesInvestors = Server.CreateObject("ADODB.Recordset")
Recordset_FinancialServicesInvestors.ActiveConnection = MM_Consult_clientlist_STRING
Recordset_FinancialServicesInvestors.Source = "SELECT * FROM Consult_clientlist  WHERE lid = " + Replace(Recordset_FinancialServicesInvestors__MMColParam, "'", "''") + ""
Recordset_FinancialServicesInvestors.CursorType = 0
Recordset_FinancialServicesInvestors.CursorLocation = 2
Recordset_FinancialServicesInvestors.LockType = 3
Recordset_FinancialServicesInvestors.Open()

Recordset_FinancialServicesInvestors_numRows = 0
%>





<html>
<head>
<title>Welcome to Laing Buisson Consulting previous client detail page.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="Laing Buisson Consulting : For Financial Services and Investors.">
<meta name="COPYRIGHT" content="&copy; laing buisson consulting 2009" />
<meta name="ROBOTS" content="INDEX,FOLLOW" />
<meta name="keywords" content="consultant,consulting,consultant service,Financial Services,Investors,Financial Services and Investors,consulting service,laingbuisson,laing buisson consultant service,laing buisson consulting service, UK, United Kingdom, ec1v 2pt, london, angel, ">

<script language="JavaScript">

windowWidth=550;
windowHeight=400;
if (parseInt(navigator.appVersion) >= 4) window.moveTo((screen.width/2)-(windowWidth/2+10),(screen.height/2)-(windowHeight/2+20));
</script>
<SCRIPT>
<!--
window.resizeTo(650,550);

function custom_print() {
    if (document.all) {
        if (navigator.appVersion.indexOf("5.0") == -1) {
            var OLECMDID_PRINT = 6;
            var OLECMDEXECOPT_DONTPROMPTUSER = 2;
            var OLECMDEXECOPT_PROMPTUSER = 1;
            var WebBrowser = "<OBJECT ID=\"WebBrowser1\" WIDTH=0 HEIGHT=0 CLASSID=\"CLSID:8856F961-340A-11D0-A96B-00C04FD705A2\"></OBJECT>";
            document.body.insertAdjacentHTML("beforeEnd", WebBrowser);
            WebBrowser1.ExecWB(6, 2);
            WebBrowser1.outerHTML = "";
        } else {
            self.print();
        }
    } else {
        self.print();
    }
}
//-->
</SCRIPT>
</head>
<body bgcolor="#FFFAF2" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onBlur="self.focus()">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#E99D01">
  <tr> 
    <td width="100%" valign="top">&nbsp;</td>
    <td valign="middle">
<div align="right"><font color="#999999"></font></div></td>
  </tr>
</table>
<div align="center"> 
  <table width="100%" border="4" cellspacing="0" cellpadding="2" bordercolor="#F8F3F4">
    <tr> 
      <td valign="top" width="100%">
        <table width="90%" height="100%" border="0" align="center" cellpadding="5" cellspacing="0">
          <tr> 
            <td valign="top" bgcolor="#FFFFFF"><p align="center"><img src="images/map_LBoffice.jpg" alt="Use the Print Button " width="591" height="469" hspace="0" vspace="0"><font face="Arial"><font size="-1"> 
                </font></font><font size="-1" face="Arial"> <strong> </strong><strong> 
                </strong> </font></p></td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td valign="top">
<form>
          <div align="center">
            <input name="Close" onClick="self.close();return false" type="button" value="Close This Window">
                  &nbsp;<font color="#999999"><a href="http://www.laingbuisson.co.uk" target="_blank"><img src="common/L&BLOGO_TEXT.gif" alt="The Laing &amp; Buisson Website" hspace="0" vspace="3" border="0" align="absmiddle"></a></font>&nbsp; 
                  <input name="Print" type="button" id="Print" onClick="custom_print()" value="Print This Window">
                </div>
        </form></td>
          </tr>
        </table>
        </td>
    </tr>
  </table>
  
  <table width="100%" border="0" cellpadding="3" cellspacing="0" bordercolor="#FF9900" bgcolor="#FF9900">
    <tr valign="top"> 
      <td width="33%" bordercolor="#FF9900" bgcolor="#FF9900"> 
        <div align="right"><font face="Arial" size="-2"><b><a href="terms_conditions.asp" target="_blank">Terms 
          And Conditions</a></b></font></div>
      </td>
      <td width="45%" bordercolor="#FF9D55" bgcolor="#FF9900"> 
        <div align="center"><font color="#0000CC" size="-2" face="Arial"><b>Copyright 
          &copy; Laing &amp; Buisson (Consulting) 2009</b></font></div>
      </td>
      <td width="32%" bordercolor="#FF9900" bgcolor="#FF9900"><font face="Arial" size="-2"><a href="mailto:consulting@laingbuissonconsulting.co.uk?subject=C_onsultingC RE"><b>Contact</b></a> 
        <a href="http://www.laingbuisson.co.uk/portals/1/company_details.html" target="_blank">Company 
        Details</a></font></td>
    </tr>
  </table>
  
</div>
  </body>
</html>
<%
Recordset_pagetext.Close()
Set Recordset_pagetext = Nothing
%>
<%
Recordset_ConsultBiogDet.Close()
Set Recordset_ConsultBiogDet = Nothing
%>
<%
Recordset_Consult_clientlist.Close()
Set Recordset_Consult_clientlist = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset_Hospital.Close()
Set Recordset_Hospital = Nothing
%>
<%
Recordset_FinancialServicesInvestors.Close()
Set Recordset_FinancialServicesInvestors = Nothing
%>