<%@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__MMColParam articles__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then articles__MMColParam = Request("MM_EmptyValue") End If %> <% Dim articles Dim articles_numRows Set articles = Server.CreateObject("ADODB.Recordset") articles.ActiveConnection = MM_phillipsmitchell_STRING articles.Source = "SELECT * FROM doctor_article_cat WHERE article_cat_display = " + Replace(articles__MMColParam, "'", "''") + " ORDER BY article_cat_rank ASC, article_cat" articles.CursorType = 0 articles.CursorLocation = 2 articles.LockType = 1 articles.Open() articles_numRows = 0 %> <% Dim recList__MMColParam recList__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then recList__MMColParam = Request("MM_EmptyValue") End If %> <% Dim recList Dim recList_numRows Set recList = Server.CreateObject("ADODB.Recordset") recList.ActiveConnection = MM_phillipsmitchell_STRING recList.Source = "SELECT * FROM doctor_articles WHERE article_display = " + Replace(recList__MMColParam, "'", "''") + " ORDER BY article_sort ASC, article_title" recList.CursorType = 0 recList.CursorLocation = 2 recList.LockType = 1 recList.Open() recList_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 articles_numRows = articles_numRows + Repeat1__numRows %> Medical Conditions A-Z
FREE Medical Evaluation

Would you like to know more about a medical condition or procedure that you or a loved one has experienced? We have enlisted the help of some of the top physicians in this country to provide useful written articles to assist you in understanding these conditions and procedures. These conditions are listed by area of specialty, but can also be searched by specific term.

<% If Not articles.EOF Or Not articles.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT articles.EOF)) %> <% FilterParam = articles.Fields.Item("article_cat_id").Value recList.Filter = "article_cat_id = " & FilterParam While (NOT recList.EOF) %> <% recList.MoveNext() Wend %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 articles.MoveNext() Wend %>
<%=(articles.Fields.Item("article_cat").Value)%>
<% If (recList.Fields.Item("article_date").Value) > Date()-45 Then response.write "" End if %>" class="list"><%=(recList.Fields.Item("article_title").Value)%>
<% End If ' end Not articles.EOF Or NOT articles.BOF %>
 
<% articles.Close() Set articles = Nothing %> <% recList.Close() Set recList = Nothing %>