<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_GENERAL_TEXT = "General Properties" Const L_EXT_TEXT = "Extended Properties" Const L_ODBC_TEXT = "ODBC Properties" On Error Resume Next Dim path, currentobj path=Session("dpath") Session("path")=path Set currentobj=GetObject(path) %> ');"> <% if Session("setLogUI") = "ODBC" then %> <% else %> <% if Session("setLogUI") = "EXT" then %> <% end if %> <% end if %>

<%= L_ODBC_TEXT %>

<%= L_GENERAL_TEXT %>

|

<%= L_EXT_TEXT %>

<% end if %>