*** from http://www.dbmed.com/phyasp/genlink.asp <%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DSN=physician; UID=sa" SQLStmt = "SELECT DISTINCT Med_links.Cat " SQLStmt = SQLStmt & "FROM Med_links " SQLStmt = SQLStmt & "WHERE (((Med_links.For1)='gen')) OR (((Med_links.For1)='both')) " Set RS = Connection.Execute(SQLStmt) %> Links Page

Resource page for Patients.

<% Connection.Close %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DSN=physician; UID=sa" SQLStmt = "SELECT Med_links.Cat, Med_links.Type, Med_links.For1, Med_links.URL, Med_links.Name, Med_links.Description, Med_links.date " SQLStmt = SQLStmt & "FROM Med_links " SQLStmt = SQLStmt & "WHERE (((Med_links.For1)='gen')) OR (((Med_links.For1)='both')) " SQLStmt = SQLStmt & "ORDER BY Med_links.Cat, Med_links.Type, Med_links.Name " Set RS = Connection.Execute(SQLStmt) %> <% cat=RS("Cat")%> <% t=RS("Type")%>

 

"><%= RS("Cat") %>

<%= RS("Type") %>
<% CurrentRecord = 0 Do While CheckRS(RS)%> <%IF cat = RS("Cat") Then%>

<%If t = RS("Type") Then%>

<% Else %>
"><%= RS("Name") %>
<%= RS("Description") %>

<%= RS("Type") %>
<% End If %> <% Else cat1 = cat%>
"><%= RS("Name") %>
<%= RS("Description") %>
 
Top of page

 

 

 

"><%= RS("Cat") %>

<%= RS("Type") %>
<% End If cat=RS("Cat") t=RS("Type") %>

<% RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>

"><%= RS("Name") %>
<%= RS("Description") %>
 

Top of page Home Page About dbMed Map Page Links page
© 1996,1997 dbMed & MedLink Services Tel.281.893.9325 Fax.281.893.9598 - Comments: webmaster@dbmed.com
<% Connection.Close %>