<% '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 %>
Errors occured. Please e-mail the following information to the webmaster.
<% end if next %>
The username you chose was already taken,

Please go back to enter a different username
Script Name: <%= Request.ServerVariables ("SCRIPT_NAME") %>
Source: <%=objError.ErrorSource%>
Number: <%=objError.ErrorNumber%>
Description: <%=objError.ErrorMessage%>
<% 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 %>
The nation's #1 heart program by U.S. News & World Report for 13 years in a row!
Site Search
Advanced Search
<% 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 %> <% end if%>
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")%>

Ask the Dietician

Can you explain the difference between a “whole” grain and a refined grain?

Whole grains or foods made from them contain all the naturally occurring nutrients and layers of the entire grain seed. The three layers that comprise a “whole” grain include the bran, germ and endosperm. Each layer provides important nutrients for good health. The outermost layer of the whole grain, called the bran, contains dietary fiber, b-vitamins and antioxidants. The germ is the embryo of the grain, and contains b-vitamins, minerals, some protein, and healthy unsaturated fats. The endosperm is the largest part of the grain and consists primarily of carbohydrate, some protein, and small amounts of vitamins and minerals.

A refined grain has had the germ and bran layers removed, taking with it 25% of the protein, almost all of the dietary fiber, and a number of vitamins and minerals. Manufacturers of refined grains often add back a few vitamins and minerals that they’ve stripped from the grain (a process called “enrichment”), but the food still falls short of the naturally occurring nutrients and dietary fiber contained in a whole grain.

Whole grains contain health promoting antioxidants, b-vitamins, vitamin E, magnesium, iron, and dietary fiber. Diets rich in whole grains have been linked to lower cholesterol, and lower rates of heart disease, diabetes and obesity. What’s more, the dietary fiber in whole grains helps fill you up and stave off hunger for longer periods, aiding in weight control. Diets high in refined grains (think white bread, rice and pasta) can’t boast any of these protective health benefits.

To help combat the battle of the bulge and reduce your risk factors for heart disease, it’s best to choose at least 3 whole grain servings each day. However, at Cleveland Clinic we’d like to see ALL your grain choices as whole grain. Making the switch can be easy, as long as you read food labels carefully. Here are two easy ways to tell if a food product is a whole grain:

  • The first ingredient in a whole grain food should include “100% whole grain (wheat, oat, corn, etc) flour.” If the first few ingredients list refined or enriched flour, it’s a refined grain.
  • Check and see if the food boasts the Whole Grain Stamp developed by the nonprofit group Whole Grains Council. The “Whole Grain” stamp means the product contains a half-serving or more of whole grains. The “100% Whole Grain” stamp means all of the grain in a food product is whole grain. For more information, visit www.wholegrainscouncil.org.

If you still feel a bit confused, here is a quick list of some common whole grains you can find in most major supermarkets:

  • Oatmeal - steel cut, instant or Old Fashioned
  • 100% whole wheat breads, English muffins, crackers
  • 100% whole wheat tortillas or flatbreads
  • 100% whole grain (wheat, corn, oat) cereals
  • Barley
  • Whole wheat couscous
  • Wild rice
  • Brown rice
  • Kasha
  • Whole wheat pasta

For more information on a heart-healthy diet plan, please contact the Preventive Cardiology and Rehabilitation Program at 216.444-9353 (or toll-free at 800/223-2273, extension 49353) and we can schedule a nutrition consultation - or - use our Remote Cardiac Nutrition Counseling Services.

©Copyright 2001 - 2007 The Cleveland Clinic Foundation. All rights reserved. <% '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 %>
 
Contact Us     About This Site     Site Map     Privacy Statement      Disclaimer     www.clevelandclinic.org

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.
 

 

<% end sub %> <% Call PubHtmlFooter %>