<% ' Connect to CMS database Set conCMS = Server.CreateObject ("ADODB.Connection") conCMS.Open getConnectionStringCMS() ' Connection to application database Set con = Server.CreateObject ("ADODB.Connection") con.Open getConnectionString() ' Get the URL of this page i = 1 j = 1 while j <> 0 j = instr(j, Request.ServerVariables("URL"), "/") If j <> 0 Then i = j j = j + 1 End If Wend sURL = Right(Request.ServerVariables("URL"), Len(Request.ServerVariables("URL")) - i) ' Determine the office id in the database that this page relates to, ' by examining the name of this page Set rs = Server.CreateObject ("ADODB.Recordset") sSQL = "SELECT * FROM Office WHERE PageName = '" & sURL & "'" rs.Open sSQL, conCMS If Not rs.EOF Then iOfficeId = rs("OfficeId").Value rs.Close %>
 
 
 
 
 
 
 
 
 
 
 
 
 home > site map
 
  home
      our consultants  
      offices & contacts  
      contact us  
      chairman's vision  
      legal notice  
     
    who we are  
      our culture and values  
      chairman's vision  
      our consultants  
      our offices  
     
    what we do  
      senior executive search
        contact us    
      management assessment
        contact us    
      non-executive searches
        contact us    
     
    our approach  
      contact us  
      find a consultant  
     
    candidates  
      how we work  
        submit your CV  
   
      submitting your CV  
      useful links  
   
    contact us  
      our offices  
        Paris    
        Frankfurt    
        London    
        Milan    
        New York    
      consultant search  


© Pixelcraft Studios Ltd contact us > site map > legal notice Sion UK Ltd