<% 'colirs_header_include.asp
' Special script that is included by "three-panel" content pages to display the page header.
' This script does not display the "breadcrumbs" that the standard "5 panel" content pages have.
' On 3-panel pages there is always a "save in personal folder" link, even if the user hasn't
' logged in. But the personal folder scripts will make sure that the user logs in before
' saving the link.
'
' 08/05/01 was Added conditional code in header so that "Our Staff" pages will show a graphic for
' "Our Doctors", and will not show the "Find Similar" link.
' 08/20/01 jrr Removed code that is also used by list.asp, and replaced it with a call to MastHead,
' which is in header.asp. (Thus, added header.asp to the list of included files)
' 09/24/01 jrr - discovered bug: when linking to to Texis, this script decides someone is logged in only be looking for the presence of the cookie.
' 10/05/01 fi Fixed bug (described just above)
' Also installed Send to Friend code
' 10/30/01 jrr Commented out the hyperlink to Send to Friend, because the
' system software isn't working.
'
'11/01/2001 RGL: Get rid of the code to check user's login status and call function getUserId from file
' constant.asp instead.
'07/20/02 jrr Added a Dim statement for current_script_related.
'04/20/05 jrr Restored the "email a friend" link to the header.
' (At some point in the distant past, it has been commented out because
' the system software wasn't working) %>
<%sub sub_page_css %>
<%end sub %>
<%
'********************************************************************
' Name: constants.asp
' Purpose: This include file contains application-wide constants and variables.
'********************************************************************
'*******************************************************************
'Modification history
'11/01/2001 RGL: add function getUserId (moved from file list.asp)to be called
' by list.asp and colirs_header_include.asp to decide user's login
' status.
''11/05/2001 RGL: Move all three functions originally in this file, check_login (user, pass),
' check_login2 and getUserId, to a new included file constantsFunctions.inc
'7/18/02 RGL: add a new constant CINT_VGUIDE_FIRSTCAT_ID
'7/21/02 jrr: Define the various path strings as variables instead of constants and base them on the
' value of request.servervariables("SERVER_NAME"). This should allow the constants.asp
' file to be moved among servers with fewer edits.
'--------------------------------------------------------------------
%>
Error processing SSI file
<%
'--------------------------------------------------------------------------
'For registered user, pass a value to texis site to retain the state
'G_U_LOGIN
dim G_U_LOGIN
'-----------------------------------------------------------------------
' 07-30-2001 RL: add loginMessage to print out friendly message when
' a user attempts to log in
dim loginMessage
dim SERVER_NAME
SERVER_NAME = replace( request.servervariables("SERVER_NAME"),"ccf.org","clevelandclinic.org")
'--------------------------------------------------------------------
' Notes: added 05/16/01
' These constants are prefixes of hard-codes links within SSL-securied
'directories. They force the links to point to out of https: .
'--------------------------------------------------------------------
'const HTTP_DOMAIN_CCF = "http://test.www.clevelandclinic.org"
'const HTTPS_DOMAIN_CCF = "https://test.www.clevelandclinic.org"
'const HTTPS_DOMAIN_FATHOM = "https://test.ccf.fathomi.net"
'const HTTP_DOMAIN_FATHOM = "http://test.ccf.fathomi.net"
'*********************************************************************
'the following pairs comment off/on to match different servers, CCF
' Server and Fathom test server
'*********************************************************************
Dim HTTP_DOMAIN_CURRENT,HTTPS_DOMAIN_CURRENT
HTTP_DOMAIN_CURRENT = "http://" & SERVER_NAME
HTTPS_DOMAIN_CURRENT = "https://" & SERVER_NAME
'--------------------------------------------------------------------
' Constants used in list.asp file
'--------------------------------------------------------------------
'const SEARCHSCRIPTPATH = "http://texis.ccfheart.copfer.com/cgi-bin/texis/cchcsearch"
const SEARCHSCRIPTPATH = "http://texis.clevelandclinic.org/cgi-bin/texis/cchcsearch"
Dim HOME_PATH,HOMEPATHWOHTTP
HOME_PATH = "http://" & SERVER_NAME & "/heartcenter"
HOMEPATHWOHTTP = SERVER_NAME & "/heartcenter"
'--------------------------------------------------------------------
' Notes: These constants define the reply to address and display name for all e-mail forms.
'--------------------------------------------------------------------
'const FROM_EMAIL = "justin@copfer.com"
const FROM_EMAIL = "stovskb@ccf.org"
const FROM_NAME = "Cleveland Clinic Heart Center Webmaster"
'-------------------------------------------------------------------
'--------------------------------------------------------------------
' Notes: These constants define the webmaster address for error handling.
'--------------------------------------------------------------------
'const WEBMASTER_EMAIL = "justin@copfer.com"
const WEBMASTER_EMAIL = "webmaster@ccf.org"
'-------------------------------------------------------------------
'--------------------------------------------------------------------
' Notes: This contant sets the default text to use if a tip is not
' found in the database.
'--------------------------------------------------------------------
const DEFAULT_TIP_TEXT="Spend some time each day for YOU."
'--------------------------------------------------------------------
'--------------------------------------------------------------------
' Notes: This constant will display the specified text within the
' banner for the timeline.
'--------------------------------------------------------------------
const TIMELINE_BANNER_TEXT="Select a year below to begin your tour of the Cleveland Clinic Timeline."
'--------------------------------------------------------------------
' Notes: These constants and gloabl variables define common ASCII formatting codes used in all e-mail forms.
'--------------------------------------------------------------------
dim CRLF
CRLF = Chr(13) + Chr(10)
const PLAIN_TEXT_WIDTH = 45
'-------------------------------------------------------------------
'--------------------------------------------------------------------
' Notes: These constants defines the cookie prefix that will be present in all cookie ID's
' used to maintain login status.
'--------------------------------------------------------------------
const COOKIE_PREFIX = "B895915A7F7011D48005005004D6D931"
dim COOKIE_PREFIX_LEN
COOKIE_PREFIX_LEN = Len(cookie_prefix)
'-------------------------------------------------------------------
'--------------------------------------------------------------------
' Notes: These constants defines the cookie prefix that will be present in all cookie ID's
' used to maintan registration status.
'--------------------------------------------------------------------
const COOKIE_PREFIX2 = "624790FDC4BC11D480A2009027E52D9E"
dim COOKIE_PREFIX_LEN2
COOKIE_PREFIX_LEN2 = Len(cookie_prefix2)
'-------------------------------------------------------------------
'--------------------------------------------------------------------
' Notes: These constants contain the bit mask integer values
' used for Access Rights defined in the "User Group" table.
'--------------------------------------------------------------------
const ACCESS_RIGHT_PUBLIC = 1
const ACCESS_RIGHT_PATIENT = 2
const ACCESS_RIGHT_EDITOR = 4
const ACCESS_RIGHT_ADMIN = 8
'-------------------------------------------------------------------
' Notes: This global variable should be used to retrieve the
' UserID of the current login session. It will contain a
' long integer value.
dim USER_ID
USER_ID = 0
'-------------------------------------------------------------------
'--------------------------------------------------------------------
' Notes: These constants are used to hold common messages and errors.
'--------------------------------------------------------------------
const heart_guide_disclaimer = "This information is provided for education purposes only and is not intended to replace the medical advice of your doctor or health care provider. Please consult your health care provider for advice about a specific medical condition or contact the Cleveland Clinic if you would like an appointment."
'-------------------------------------------------------------------
'--------------------------------------------------------------------
' Constants used in admin/doc/add_doc_upload file
' 1/24/02 RGL: CHAGED
'--------------------------------------------------------------------
Dim ADD_DOC_REFER_PAGE,MOD_DOC_REFER_PAGE
ADD_DOC_REFER_PAGE = HTTP_DOMAIN_CURRENT & "/heartcenter/admin/doc/add_doc.asp"
MOD_DOC_REFER_PAGE = HTTP_DOMAIN_CURRENT & "/heartcenter/admin/doc/mod_doc.asp"
'1/14/02 RGL: comment it out b/c not used anywhere
const PUB_FOLDER_NAME = "/heartcenter/pub/"
'-------------------------------------------------------------------
dim generic_user_id
generic_user_id = check_login("guest", "guest")
'-------------------------------------------------------------------
'--------------------------------------------------------------------
' Notes: These constants are used to create the login cookie.
'--------------------------------------------------------------------
'const COOKIE_DOMAIN = ".fathomi.net"
'const COOKIE_DOMAIN = ".copfer.com"
'const COOKIE_DOMAIN = ".clevelandclinic.org
'const COOKIE_DOMAIN = ".clevelandclinic.org"
const COOKIE_DOMAIN = ".clevelandclinic.org"
'-------------------------------------------------------------------
'-------------------------------------------------------------------
' these are bland substitutions for nt ids and passwords.
const PATIENT = "ccf_patient"
const ADMIN = "ccf_admin"
const PATIENT_PD = "ccf_patient"
const ADMIN_PD = "ccf_admin"
'-------------------------------------------------------------------
'-------------------------------------------------------------------
' Constants for the ID value of a new first level category 'Vascular Guide'
' The value is 'CatId' in table 'Cats' of the record 'Vascular Guide', and it
' can be retrieved using
' select CatID from cats
' where parentID is null
' and cat_dir = 'vguide'
const CINT_VGUIDE_FIRSTCAT_ID = 459
'-------------------------------------------------------------------
%>
<%
'--------------------------------------------------------------------
' This function displays the errors if there are problems.
'--------------------------------------------------------------------
sub handle_errors(obj)
dim errors
set errors = obj.Errors
if errors is nothing then exit sub
Dim objError
%>
<%
for each objError in errors
'RL if objError.ErrorNumber=-1 then show only error message as 'User a;ready exists'
if objError.ErrorNumber=-1 then
%>
<%
else
%> Please e-mail the following information to the webmaster.
Script Name:
<%= Request.ServerVariables ("SCRIPT_NAME") %>
Source:
<%=objError.ErrorSource%>
Number:
<%=objError.ErrorNumber%>
Description:
<%=objError.ErrorMessage%>
<% end if
next
%>
<%
Response.End
end sub
%>
<% 'header.asp - contains 2 functions, both called from other modules.
' - PubHtmlHeader is called from MainCall in List.asp, AdminLogin.asp, and the login page.
' - Masthead is called from PubHtmlHeader and from "Three-panel" page headers.
'*******************************************************************
'Modification history
'06/05/06 jrr Modified top-of-page menu to include "Heart & Vascular Guide" in the /guide directory instead
' of "Heart Guide" and "Vascular Guide"
'08/25/01 jrr Created file by extracting PubHTMLHeader from list.asp
' Created MastHead by pulling code from PubHTMLHeader that's also needed by 3-panel pages.
'09/20/01 jrr Added Metatag papmeters to PubHTMLHeader to allow the "main page" to specify metatags.
'
'09/28/01 RL Change all verticla bars to | and define the class defination to 'body-text'
'10/03/01 jrr Fixed syntax error in Metatags.
'10/30/01 jrr Two references to Glossary were missing the http constant.
' The vbars in the header disappeared into the background color; added a class definition
' to the
tag.
'1/16/02 RGL: the blue tab/drop was dropped.
'
'4/15/02 RGL: change all displayed 'glossary' to 'dictionary'
'
'4/15/02 RGL: add a new top-level category 'Vascular Guide'
'
'5/22/02 RGL: add new META TAGS to all pages.
'
'6/12/02 RGL: A patch - when the top cat is 'vasuclar guide', display sub-categories of 'heart guide', but
' the top level category still display as 'vascular guide'. Use application variables to keep
' track of which top category a user is expecting to see, then display it.
' **Note: I see it as a temporary solution and the final solution is to make the top level
' category DYNAMIC too!
'
'6/20/02 RGL: modification of the change of 6/12. Use cookie instead of application variable.
'-------------------------------------------------------------
'-------------------------------------------------------------
'Subroutine PubHtmlHead Puts together the Header section of the page, and
'calls Masthead to display the BODY tag and masthead.
'--------------------------------------------------------------------------
sub PubHtmlHeader (title, firstCat, FirstCatName, FirstUrl, metadesc, metakeyword)
dim current_script2
current_script2= lcase(Request.ServerVariables("SCRIPT_NAME"))
'6/21/02 RGL: enable/disable a certain cookie upon user enters Vascular Guide/Heart guide site
if Instr(lcase(current_script2), "pub/vguide/default") <> 0 then
setCookie "9A4798FDC4BA11D48062009027552D97", "1"
elseif Instr(lcase(current_script2), "pub/guide/default") <> 0 then
setCookie "9A4798FDC4BA11D48062009027552D97", "0"
end if
%>
<%=title%>
<%'Print the meta tags
IF len(Metadesc)>0 Then Response.write "" & vbcrlf
IF len(metakeyword)>0 Then Response.write "" & vbcrlf
'5/22/02 RGL: add a couple of meta tags
%>
<%
'Print the CSS Style sheets (from subpages.asp)
call sub_page_css()
%>
<%
CALL MastHead(firstCat,FirstCatName,FirstUrl)
End Sub
'-------------------------------------------------------------
'-------------------------------------------------------------
'Subroutine Masthead - displays the HeartCenter masthead. Uses the
'current script name to figure out which section of the site we're in,
'and to set up FirstCat
'-------------------------------------------------------------
Sub Masthead (firstCat,FirstCatName,FirstUrl)
dim current_script
current_script = lcase(Request.ServerVariables("SCRIPT_NAME"))
dim top_right_image_name
'If the value of firstCat has not been assigned, default to 0
if len(firstCat) = 0 then
firstCat = 0
end if
'Customize an image file name & identify the current section, based on what folder the current script is within
if Instr(lcase(current_script), "pub/history/") <> 0 then
firstCatName = "History of Innovations"
firstCat=56
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/history/default.asp"
top_right_image_name = "history_topright_photo.gif"
'6/13/02 RGL: only display heart guide when the current user is not supposed to be under 'vasculr guide' directory
elseif getCookie("9A4798FDC4BA11D48062009027552D97", "0") AND (Instr(lcase(current_script), "pub/guide/") <> 0 OR Instr(lcase(current_script), "pub/medications/") <> 0 ) then
firstCatName = "Heart Guide"
firstCat=3
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/guide/default.asp"
top_right_image_name = "guide_topright_photo.gif"
'6/13/02 RGL: display vascular guide when this user is under vascular guide, or is supposed to be under 'vasculr guide' directory (but
' the physical directory is 'heart guide'). This happens when a user click 'vascualr guide' top category to browse topics
' but hasn't switched to other top categories since, e.g., by clicking 'heart guide' top category.
elseif Instr(lcase(current_script), "pub/vguide/") <> 0 or ((Instr(lcase(current_script), "pub/guide/") <> 0 OR Instr(lcase(current_script), "pub/medications/") <> 0) and getCookie("9A4798FDC4BA11D48062009027552D97", "1")) then
firstCatName = "Heart Guide"
firstCat=CINT_VGUIDE_FIRSTCAT_ID
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/guide/default.asp"
top_right_image_name = "guide_topright_photo.gif"
elseif Instr(lcase(current_script), "pub/about/") <> 0 then
firstCatName = "About Us"
firstCat=59
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/about/default.asp"
top_right_image_name = "about_topright_photo.gif"
elseif Instr(lcase(current_script), "pub/news/") <> 0 then
firstCatName = "Heart News"
firstCat=1
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/news/default.asp"
top_right_image_name = "news_topright_photo.gif"
elseif Instr(lcase(current_script), "pub/professionals/") <> 0 then
firstCatName = "Information for Health Care Professionals"
firstCat=65
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/professionals/default.asp"
top_right_image_name = "professionals_topright_photo.gif"
elseif Instr(lcase(current_script), "pub/staff/") <> 0 then
firstCatName = "Our Doctors"
firstCat=85
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/staff/default.asp"
top_right_image_name = "staff_topright_photo.gif"
elseif Instr(lcase(current_script), "pub/research/") <> 0 then
firstCatName = "Heart Center Research"
firstCat=2
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/research/default.asp"
top_right_image_name = "research_topright_photo.gif"
elseif Instr(lcase(current_script), "pub/appointment/") <> 0 then
firstCatName = "Make an Appointment"
firstCat=88
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/appointment/default.asp"
top_right_image_name = "appointment_topright_photo.gif"
elseif Instr(lcase(current_script), "pub/glossary/") <> 0 then
'4/23/02 RGL: change 'glossary' to 'dictionary'
'firstCatName = "Glossary"
firstCatName = "Dictionary"
firstCat=330
firstUrl=HTTP_DOMAIN_CURRENT +"/heartcenter/pub/glossary/default.asp"
top_right_image_name = "topright_photo.gif"
elseif Instr(lcase(current_script), "/heartcenter/pub/personal/") <> 0 then
firstCatName = "Personal Folder"
firstcat = 274
firsturl = "/heartcenter/pub/personal/default.asp"
top_right_image_name = "topright_photo.gif"
else
top_right_image_name = "topright_photo.gif"
end if
%>
<%
'Display the menu, highlighting the current section (based on FirstCatName)
Dim headerclass
'if firstCatName = "Heart Guide" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%>
<% if firstCatName = "Heart Guide" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> Heart & Vascular Guide
<% if firstCatName = "History of Innovations" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> | History of Innovations
<% if firstCatName = "About Us" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> | About Us
<% if firstCatName = "Heart News" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> | News
<% if firstCatName = "Information for Health Care Professionals" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> | Information for Health Care Professionals
<% if firstCatName = "Our Doctors" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> | Our Doctors
<% if firstCatName = "Heart Center Research" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> | Heart Center Research
<% if firstCatName = "Make an Appointment" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> | Make An Appointment
<%if firstCatName = "Dictionary" then headerclass="toplink-pink-b" else headerclass="toplink-white"
%> | Dictionary
The nation's #1 heart program by U.S. News & World Report for 13 years in a row!
<% end sub %>
<%
'-------------------------------------------------------------
'Function setCookie (key, value)
'
'-------------------------------------------------------------
sub SetCookie(key, value)
dim appName
AppName = Request.ServerVariables("Server_name")
Response.Cookies( AppName )(key) = value
Response.Cookies( AppName ).Path = "/"
Response.Cookies( AppName ).Domain = COOKIE_DOMAIN
end sub
'-------------------------------------------------------------
'Function getCookie (cookiePrefix)
' return true/false
'-------------------------------------------------------------
Function getCookie(cookiePrefix, checkValue)
dim include_cookieChecker, include_user_cookie, current_value
include_cookieChecker = false
include_user_cookie = Request.Cookies
if len(include_user_cookie)> 0 then
for each include_user_cookie in request.Cookies
current_value = Request.Cookies(include_user_cookie)(cookiePrefix)
if current_value = checkValue then
include_cookieChecker = true
end if
next
end if
getCookie = include_cookieChecker
End Function
'-------------------------------------------------------------
%>
<%
Dim firstCatName
Dim firstCat
Dim firstURL
Dim top_right_image_name
Dim user_cookie
Dim Current_script
current_script = Request.ServerVariables("SCRIPT_NAME")
'092701 RL: it is not sufficient to use cookie alone to check login status. Instead,
' a check to the user session table is needed to see if the cookie has a loged-in value
'11/01/01 RGL: Get rid of the code to check user's login status and call function getUserId from file
' constant.asp instead to decide the value of G_U_LOGIN (value 1 denotes a logged in user).
call getUserId
'Print the CSS Style sheets (from subpages.asp)
call sub_page_css()
Call Masthead(firstCat,FirstCatName,FirstUrl) 'Masthead is in header.asp
'Add a table that contains Add New and Find Similar for COLIRS pages, and
'Add New and "Our Doctors" for staff pages.
%>
<%if firstCatName = "Our Doctors" then
'This is an "Our Doctors" page. Show the "Our Doctors" header and a "Add to folder" button %>
Our Doctors
<% else 'Not an Our Doctors page. Show an Add to Folder button and a Show Related button %>
<% dim current_script_related
current_script_related = replace(current_script, "%", "%25")%>
<% end if%>
The
Cleveland Clinic Department of Vascular Surgery Fellowship Program
Unique Aspects of the Fellowship Program
The Department of Vascular Surgery works closely with the Department of Vascular Medicine to manage patients with a wide spectrum of vascular diseases. This intimate working relationship as a Vascular Center of Excellence has existed since the inception of both departments in the 1950s. The medical department of 11 members provides support to the Department of Vascular Surgery in the management of all aspects of medical care to the vascular patient. This team approach has served as an optimal model for comprehensive care of patients with vascular diseases and associated medical disorders.
The Department of Vascular Surgery and the Department of Vascular Medicine have been at the forefront in the utilization of new and innovative techniques to treat vascular disease. Members of both departments participate in catheter-directed procedures for both occlusive and aneurysmal disease. A combination of thrombolytic therapy and surgical reconstruction is another area of active interest on the part of both departments. This close medical/surgical working relationship offers patient with complex management problems an optimal opportunity for successful outcomes.
Both departments have been active in clinical research related to peripheral vascular disease. With the introduction of new technology for the treatment of vascular disease, additional opportunities for research are available.
<% 'footer.asp - contains 1 function - PubHtmlFooter
' This include file is used by most pages on the public side of
' the heartcenter site to display the page footer. It is typically
' included by other include files such as list.asp and login.asp.
'*******************************************************************
'Modification history
'10/29/01 'tweaked indentation for readability
'8/15/01 jrr Created file by pulling code from List.asp, login.asp, etc.
'9/18/01 jrr Modified the Contact Us link
'6/-3/04 bs Modified the disclaimer
'10/12/2001 RGL: remove 'search all sites' option by commenting out relevant code
'5/16/05 bs added site map
'--------------------------------------------------------------------
'PubHtmlFooter
'Purpose: Print the html part that is at the bottom
'--------------------------------------------------------------------
sub pubHtmlFooter
dim lower_left_image_name
dim current_script
current_script = lcase(Request.ServerVariables("SCRIPT_NAME"))
'Customize an image file name based on what folder the current script is within
if Instr(current_script, "/heartcenter/pub/about/") <> 0 then
lower_left_image_name = "about_lowerleft07.gif"
elseif Instr(current_script, "/heartcenter/pub/appointment/") <> 0 then
lower_left_image_name = "appointment_lowerleft.gif"
elseif Instr(current_script, "/heartcenter/pub/guide/") <> 0 then
lower_left_image_name = "guide_lowerleft.gif"
elseif Instr(current_script, "/heartcenter/pub/history/") <> 0 then
lower_left_image_name = "history_lowerleft.gif"
elseif Instr(current_script, "/heartcenter/pub/news/") <> 0 then
lower_left_image_name = "news_lowerleft07.gif"
elseif Instr(current_script, "/heartcenter/pub/professionals/") <> 0 then
lower_left_image_name = "professionals_lowerleft.gif"
elseif Instr(current_script, "/heartcenter/pub/research/") <> 0 then
lower_left_image_name = "research_lowerleft.gif"
elseif Instr(current_script, "/heartcenter/pub/staff/") <> 0 then
lower_left_image_name = "staff_lowerleft.gif"
elseif Instr(current_script, "/heartcenter/pub/glossary/") <> 0 then
lower_left_image_name = "lowerleft_nurse.gif"
else
lower_left_image_name = "lowerleft_nurse.gif"
end if
%>
This information is provided for education purposes only and
is not intended to replace the medical advice of your doctor
or health care provider. While we strive to keep our website
current, medical practices sometimes change quickly. Please
consult your health care provider for advice about a specific
medical condition or contact the Cleveland Clinic if you would
like an appointment.
