<% '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.
'--------------------------------------------------------------------
%>
<%
'********************************************************************
' Name: constantsFunctions.asp
' Purpose: included by constants.asp, it contains some application-wide functions and subs.
'
'********************************************************************
'*******************************************************************
'Modification history
'11/05/2001 RGL: Creation. Functions were moved from file constants.asp
'--------------------------------------------------------------------
'--------------------------------------------------------------------
' Name: check_login
' Purpose: Checks to see if the username and password match using the
' CCHeartUser.clsUsers COM interface and Login method.
'
'--------------------------------------------------------------------
function check_login (username, password)
dim users
Set users = Server.CreateObject ("CCHeartUser.clsUsers")
check_login = users.Login (username, password)
call handle_errors(users)
Set users = Nothing
end function
'-------------------------------------------------------------------
' this is a bland, unintrusive admin login
'---------------------------------------------------------------------
function check_login2()
check_login2 = check_login("sa", "sa")
end function
'---------------------------------------------------------------------
'Description: retrieve the user_id, and decide a user's login status.
'Use: called from list.asp and colirs_header_include.asp.
'Note: this function is not generic enough to be called from any file;
' instead, the calling file must include file 'handle_errors.asp'
'---------------------------------------------------------------------
function getUserId
dim include_cookieChecker, include_user_cookie
include_user_cookie = Request.Cookies
if len(include_user_cookie)> 0 then
for each include_user_cookie in request.Cookies
if left(include_user_cookie, COOKIE_PREFIX_LEN) = COOKIE_PREFIX then
dim user_session
dim user_rs_session
set user_session = Server.CreateObject ("CCHeartUser.clsUsers")
set user_rs_session = user_session.GetBySession(right(include_user_cookie, (Len(include_user_cookie) - COOKIE_PREFIX_LEN)), check_login("guest","guest"))
if user_rs_session is nothing then
call handle_errors(user_session)
else
if user_rs_session.EOF then
call handle_errors(user_session)
else
getUserID = user_rs_session.fields("userID")
G_U_LOGIN = 1
include_cookieChecker = true
end if
end if
set user_rs_session = nothing
set user_session = nothing
end if 'end of 'if left(user_cookie, COOKIE_PREFIX_LEN) = COOKIE_PREFIX'
next
end if
if include_cookieChecker = false then
getUserID = generic_USER_ID
end if
end function
%>
<%
'--------------------------------------------------------------------------
'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%>
Cleveland Clinic Podcasts
Download these audio or video presentations to your desk top to listen to later - or share with friends or family. Topics include:
Questions and Answers about Statin Intolerance. Michael Rocco, M.D. discusses statins, a drug used to treat high cholesterol, a major risk factor for cardiovascular disease. Play Audio or Video | Subscribe
Does New Heart Scan Make the Grade?
The new super CAT scans really pop. But do they bare the heart better than the old 2-D standby, angiography? | December 20, 2006 | Play Audio or Video | Subscribe
Reversing Coronary Artery Disease
Millions of people take statins to lower their cholesterol. But these drugs may be even more beneficial than anyone knew. Hear how from renowned cardiologist Dr. Steven Nissen. | December 13, 2006 |
Play Audio or Video | Subscribe
Eight Common Myths About Heart Disease Most legends are harmless. But believing the myths about heart disease can be fatal. | December 6, 2006 | Play Audio or Video | Subscribe
Lowering BP can Stop Coronary Artery Disease Progression. Researchers have found that aggressively lowering blood pressure with drugs, diet and exercise can stop progression, and possibly reverse coronary artery disease. Dr. Sipahi comments. Health Edge| September 2006 | Play Audio or Video | Subscribe
Act In Time. Know the symptoms of a heart attack and Act in Time - Important for men and women. Dr. Peacock is featured. Health Edge| November 2006 | Play Audio or Video | Subscribe
Abnormal Heart Rhythms
Questions and Answers about Atrial Fibrillation Surgery with cardiothoracic surgeon, A. Marc Gillinov, M.D. | December 6, 2006 | Play Audio or Video | Subscribe
Treatment of Arrhythmias with Magnets Electrophysiologists are performing precise catheter-based therapies using the Stereotaxis Niobe® Magnetic Navigation System. Dr. Burkhardt comments. Health Edge. | October 11, 2006
| Play Audio or Video | Subscribe
Racing Hearts Researchers working with race car drivers to learn more about protecting a racer's heart. Dr. Cummings comments. Health Edge. | January 2007.
|
Play Audio or Video | Subscribe
Coronary Artery Disease
Questions and Answers about Coronary Artery Bypass Surgery vs. Angioplasty with cardiothoracic surgeon, Joseph Sabik, M.D. | December 6, 2006 | Play Audio or Video | Subscribe
Questions and Answers about Bypass Surgery with cardiothoracic surgeon, Bruce Lytle, M.D. | December 6, 2006 | Play Audio or Video | Subscribe
Heart Valve Disease
Questions and Answers about Aortic Valve Surgery with cardiothoracic surgeon, Bruce Lytle, M.D. | December 6, 2006 | Play Audio or Video | Subscribe
Questions and Answers about Mitral Valve Surgery with cardiothoracic surgeon, A. Marc Gillinov, M.D. | December 6, 2006 | Play Audio or Video | Subscribe
Questions and Answers about Endocarditis with cardiothoracic surgeon, Gosta Pettersson, M.D., Ph.D. | December 6, 2006 | Play Audio or Video | Subscribe
Questions and Answers about Video Assisted Valve Surgery with cardiothoracic surgeon, Jose Navia, M.D. | December 6, 2006 | Play Audio or Video | Subscribe
Heart Surgery - General Topics
Questions and Answers about Minimally Invasive Heart Surgery with cardiothoracic surgeon, Tomislav Mihaljevic, M.D. | December 6, 2006 | Play Audio or Video | Subscribe
Questions and Answers about Percutaneous (non-surgical) treatments for valve and aortic disease with cardiothoracic surgeon, Lars Svensson, M.D., Ph.D. | December 6, 2006 | Play Audio or Video | Subscribe
Questions and Answers about Robotically Assisted Heart Surgery with cardiothoracic surgeon,Tomislav Mihaljevic, M.D. | May 21, 2007| Play Audio or Video | Subscribe
Aorta - Great Vessel Disease
Questions and Answers about Aortic Aneurysm and Aortic Surgery with cardiothoracic surgeon, Lars Svensson, M.D., Ph.D. | December 6, 2006 | Play Audio or Video | Subscribe
Heart Failure
Heart Failure and Exercise. A Cleveland Clinic study is attempting to find out how much exercise is good for patients with heart failure. Dr. Gordon Blackburn is featured. Health Edge | December 2006 | Play Audio or Video | Subscribe
How to Mend a Broken Heart. Stem cells are naturally recruited to the site of a heart attack for up to 5 days following the event. Marc S. Penn, M.D., Ph.D. has been involved in the development of Stromal Cell-Derived Factor 1 (SDF-1). This discovery may help to mobilize stem cells to the area of the infarct and form new blood vessel tissue. Health Edge | December 2006 | Play Audio or Video | Subscribe
Women and Heart Disease
Questions and Answers About Women and Heart Disease. Leslie Cho, M.D. discusses women and heart disease, the number one killer of women after the age of 50. June 2007. Play Audio or Video | Subscribe
Thoracic Surgery: Podcasts from our thoracic surgeons:
<% '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.
