<%@LANGUAGE="VBSCRIPT"%> <% set rs_links = Server.CreateObject("ADODB.Recordset") rs_links.ActiveConnection = MM_cs_db_mjr_STRING rs_links.Source = "SELECT * FROM LINKS ORDER BY ID ASC" rs_links.CursorType = 0 rs_links.CursorLocation = 2 rs_links.LockType = 3 rs_links.Open() rs_links_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rs_links_numRows = rs_links_numRows + Repeat1__numRows %> East Melbourne Joint Replacement









<% If Not rs_links.EOF Or Not rs_links.BOF Then %>

Additional Links

<% While ((Repeat1__numRows <> 0) AND (NOT rs_links.EOF)) %>
" class="Default_Text" target="_blank"><%=(rs_links.Fields.Item("TITLE").Value)%> Added: <%= DoDateTime((rs_links.Fields.Item("ADDED").Value), 2, 1030) %>
" class="Default_Text"><%=(rs_links.Fields.Item("COMMENT").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_links.MoveNext() Wend %> <% End If ' end Not rs_links.EOF Or NOT rs_links.BOF %>

 
<%=DoDateTime(Now(), 1, 1033)%>

Disclaimer; The information provided is the opinion of the author and is of a general nature. For specific advice a consultation with your medical adviser is recommended. The author takes no responsibility for any loss resulting from acting upon the information in this website
<% rs_links.Close() %>