*** 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)
%>
<% 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")%>
<%If t = RS("Type") Then%>
<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%>
<%
CurrentRecord = 0
Do While CheckRS(RS)%>
<%IF cat = RS("Cat") Then%>
<%
Else %><%= RS("Description") %>
<% End If
%>
<%
Else
cat1 = cat%><%= RS("Description") %>
<%= RS("Description") %> |