<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_olbh_STRING Recordset1.Source = "SELECT PKID, Headline, pDate FROM tblNews ORDER BY pDate DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> ::Our Lady of Bellefonte Hospital::





GENERAL INFORMATION
OLBH SERVICES
CALENDAR OF EVENTS
FOR PHYSICIANS
EMPLOYMENT
PHONE DIRECTORY
LOCATION & MAPS










OLBH Offers 30 Minute ER Guarantee

Our Lady of Bellefonte Hospital is the area’s first and only hospital to offer patients a 30 minute Emergency Room guarantee. The guarantee is an improvement in efficiency and reduction of wait times for OLBH patients while maintaining the hospital’s high standards of quality care.

Learn more...



OLBH News Headlines

 <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>


"><%=(Recordset1.Fields.Item("Headline").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> More News...


Download the Latest Good Help Issue (PDF)

For a free subscription, call the CareLine at (606) 833-CARE (2273).








Our Lady of Bellefonte Hospital
St. Christopher Drive, Ashland, KY 41101 | Phone: (606) 833-CARE

 Copyright 2000-03, Our Lady of Bellefonte Hospital, Inc.
Privacy Statement | Contact Webmaster | Bon Secours | Site Map


<% Recordset1.Close() Set Recordset1 = Nothing %>