<%@LANGUAGE="VBSCRIPT"%> <% ' 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 resources Dim resources_numRows Set resources = Server.CreateObject("ADODB.Recordset") resources.ActiveConnection = MM_phillipsmitchell_STRING resources.Source = "SELECT * FROM resources WHERE resource_display = True ORDER BY resource_sort ASC" resources.CursorType = 0 resources.CursorLocation = 2 resources.LockType = 1 resources.Open() resources_numRows = 0 %> <% Dim recCategory Dim recCategory_numRows Set recCategory = Server.CreateObject("ADODB.Recordset") recCategory.ActiveConnection = MM_phillipsmitchell_STRING recCategory.Source = "SELECT * FROM resources_cat ORDER BY category 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 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 resources_numRows = resources_numRows + Repeat2__numRows %> Medical Resources : Free Medical Brochure
FREE Medical Evaluation

Let us help you find the resources you need with your medical care. Below is a list of links regarding healthcare and other topics which may assist you if you are injured. You can also download a free brochure that provides valuable information on Medical Malpractice claims. 

<% If Not resources.EOF Or Not resources.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT recCategory.EOF)) %> <% dim URLCheck %> <% FilterParam = recCategory.Fields.Item("category_id").Value resources.Filter = "resource_cat = " & FilterParam While (NOT resources.EOF) %> <% URLCheck = Left((resources.Fields.Item("resource_url").Value),4) if URLCheck = "http" then URLCheck = (resources.Fields.Item("resource_url").Value) else URLCheck = "http://" & (resources.Fields.Item("resource_url").Value) end if %> <% resources.MoveNext() Wend %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 recCategory.MoveNext() Wend %>
<%=(recCategory.Fields.Item("category").Value)%>
<%=(resources.Fields.Item("resource_title").Value)%>
<% End If ' end Not resources.EOF Or NOT resources.BOF %>

Get your FREE Medical Malpractice Brochure now! You never know when you might need them.

Click To Download

 
<% resources.Close() Set resources = Nothing %> <% recCategory.Close() Set recCategory = Nothing %>