<%@ Language=VBScript %> <% 'Get the month and year so we can pull up the right issue Dim sDate Dim sMonth Dim sYear sDate = fnGetDate() sMonth = fnGetDateFraction(sDate, "mo") sYear = fnGetDateFraction(sDate, "yr") %> MDvista Journal of Medicine
















 

<%=formatDateTime(Now(), vbShortDate)%>

  advanced search








 


To search all articles by specialty, click here.

<% Dim objJournal Dim rsTOC Dim sPrevParent Dim sPrevSpecialty Dim bParentChanged bParentChanged = false On Error Resume Next set objJournal = server.CreateObject("MDVista.clsJournal") set rsTOC = objJournal.getTOC(sMonth & "/1/" & sYear) set objJournal = Nothing 'If we encountered an error, call the error handling routine call sbErrHandler("clsJournal Component Error") if Not (rsTOC.BOF and rsTOC.EOF) then do while not (rsTOC.EOF) if (fnCheckPrevious(rsTOC("ParentSpecialty"), sPrevParent)) then bParentChanged = true %> <%=rsTOC("ParentSpecialty")%>

    <% end if if (fnCheckPrevious(rsTOC("SpecialtyName"), sPrevSpecialty) and (rsTOC("SpecialtyName") <> sPrevParent)) then %> <%=rsTOC("SpecialtyName")%>

    <% end if %> "><%=rsTOC("ArticleTitle")%>

    <% rsTOC.MoveNext() loop rsTOC.Close() else %> Sorry, this issue is currently not available.

    <% end if %>

 


Copyright © 2000, MDvista Inc. All Rights Reserved