<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_phillipsmitchell_STRING ' MM_phillipsmitchell_STRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("\db\cochrandoctor.mdb") & ";Uid=;Pwd=;" 'MM_pillipsmitchell_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\Domain\justaskourdoctors.com\db\cochrandoctor.mdb" MM_phillipsmitchell_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("\db\cochrandoctor.mdb") & ";" %> <% Dim articles Dim articles_numRows Set articles = Server.CreateObject("ADODB.Recordset") articles.ActiveConnection = MM_phillipsmitchell_STRING articles.Source = "SELECT * FROM whats_new WHERE new_display = True ORDER BY new_sort, new_title" articles.CursorType = 0 articles.CursorLocation = 2 articles.LockType = 1 articles.Open() articles_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 articles_numRows = articles_numRows + Repeat1__numRows %> What's New In Medicine
FREE Medical Evaluation

What’s New in Medicine attempts to provide up to date information on various healthcare related articles. Whether it relates to new medications, cutting edge procedures or new devices designed to assist the disabled, this section will feature some of the latest information as it is released. 

<% If Not articles.EOF Or Not articles.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT articles.EOF)) %>

" class="list_large"><%=(articles.Fields.Item("new_title").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 articles.MoveNext() Wend %> <% End If ' end Not articles.EOF Or NOT articles.BOF %> 
<% articles.Close() Set articles = Nothing %>