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









Available Patient Information Brochures (Code in brackets)

<% While ((Repeat1__numRows <> 0) AND (NOT rs_patient.EOF)) %>
<%=(rs_patient.Fields.Item("ID").Value)%>: <%=(rs_patient.Fields.Item("TITLE").Value)%> " class="Default_Text"><%=(rs_patient.Fields.Item("CODE").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_patient.MoveNext() Wend %>

 
<%=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_patient.Close() %>