%@LANGUAGE="VBSCRIPT"%> <% set rs_about = Server.CreateObject("ADODB.Recordset") rs_about.ActiveConnection = MM_cs_db_mjr_STRING rs_about.Source = "SELECT * FROM ABOUT ORDER BY ID DESC" rs_about.CursorType = 0 rs_about.CursorLocation = 2 rs_about.LockType = 3 rs_about.Open() rs_about_numRows = 0 %> <% set rs_cv = Server.CreateObject("ADODB.Recordset") rs_cv.ActiveConnection = MM_cs_db_mjr_STRING rs_cv.Source = "SELECT * FROM CV ORDER BY YEAR ASC" rs_cv.CursorType = 0 rs_cv.CursorLocation = 2 rs_cv.LockType = 3 rs_cv.Open() rs_cv_numRows = 0 %> <% set rs_papers = Server.CreateObject("ADODB.Recordset") rs_papers.ActiveConnection = MM_cs_db_mjr_STRING rs_papers.Source = "SELECT * FROM PAPERS ORDER BY YEAR ASC" rs_papers.CursorType = 0 rs_papers.CursorLocation = 2 rs_papers.LockType = 3 rs_papers.Open() rs_papers_numRows = 0 %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 rs_papers_numRows = rs_papers_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rs_cv_numRows = rs_cv_numRows + Repeat1__numRows %>
![]() |
|||||||
|
|
![]() |
|||||
|
About Bruce Love F.R.A.C.S., F.A.Orth.A <%=(rs_about.Fields.Item("COMMENT").Value)%> Curriculum Vitae <% While ((Repeat1__numRows <> 0) AND (NOT rs_cv.EOF)) %>
Presentation of Papers <% While ((Repeat2__numRows <> 0) AND (NOT rs_papers.EOF)) %>
|
|||||||
|
|
|||||||