<%@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 healthcare_articles WHERE article_display = True ORDER BY article_sort, article_title" articles.CursorType = 0 articles.CursorLocation = 2 articles.LockType = 1 articles.Open() articles_numRows = 0 %> <% Dim recCategory__MMColParam recCategory__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then recCategory__MMColParam = Request("MM_EmptyValue") End If %> <% Dim recCategory Dim recCategory_numRows Set recCategory = Server.CreateObject("ADODB.Recordset") recCategory.ActiveConnection = MM_phillipsmitchell_STRING recCategory.Source = "SELECT * FROM healthcare_articles_cat WHERE article_cat_display = " + Replace(recCategory__MMColParam, "'", "''") + " ORDER BY article_cat_rank ASC" recCategory.CursorType = 0 recCategory.CursorLocation = 2 recCategory.LockType = 1 recCategory.Open() recCategory_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 recCategory_numRows = recCategory_numRows + Repeat1__numRows %> Health and Wellness : Featuring Mackie Shilstone
FREE Medical Evaluation

Health and Wellness features articles from experts in the industry like Mackie Shilstone, one of the nation’s top fitness gurus.

Read Mackie's Bio

 <% If Not recCategory.EOF Or Not recCategory.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT recCategory.EOF)) %> <% FilterParam = recCategory.Fields.Item("article_cat_id").Value articles.Filter = "article_cat_id = " & FilterParam While (NOT articles.EOF) %> <% articles.MoveNext() Wend %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 recCategory.MoveNext() Wend %>
<%=(recCategory.Fields.Item("article_cat_title").Value)%>

<%If (articles.Fields.Item("article_url").Value) <> "" Then%> ','tag','toolbar=yes,location=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes,width=screen.width,height=screen.height')" class="list_large"> <%Else%> " class="list_large"> <%End If%> <%=(articles.Fields.Item("article_title").Value)%>
<%= DoDateTime((articles.Fields.Item("article_date").Value), 2, 1033) %> <%If (articles.Fields.Item("article_source").Value) <> "" Then response.write ", " & (articles.Fields.Item("article_source").Value)%>

<% End If ' end Not recCategory.EOF Or NOT recCategory.BOF %>
 
<% articles.Close() Set articles = Nothing %> <% recCategory.Close() Set recCategory = Nothing %>