<% ' 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 > legal notice
All trademarks, designs and logos used on this site are proprietary marks of Eric Salmon and Partners. The use or misuse of these trademarks, or any other content on the site without prior agreement is strictly prohibited.

The contents and functionality on this site are the exclusive property of Eric Salmon and Partners. We aim to ensure that information on our site is accurate, complete and up-to-date. The contents are provided to you without any warranties or representations about accuracy or completeness. You are granted access to this site as well as the right to download, display and print its contents, provided you do not reproduce, distribute and modify them without our prior agreement.

For further information please contact:

info@ericsalmon.com

Eric Salmon & Partners
144 Avenue des Champs-Elysées
75008 Paris


 
 
 

 

 

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