|
|
NatureSong
Links
Add
a link - If you would like your site listed
here, please take a moment to fill out This
form.
|
| |
<%
Dim strSQL, strClass, iCount
strSQL = "SELECT Links.Class, Links.Company, Links.Description, Links.URL "
strSQL = strSQL & " FROM Links; "
strClass = "SELECT DISTINCT Links.Class, Classification.Class_id, Classification.Class "
strClass = strClass & "FROM Classification INNER JOIN Links ON Classification.Class_id = Links.Class; "
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DSN=naturesong", ,"nature2000"
Set links = Server.CreateObject("ADODB.Recordset")
links.Open strSQL, cn
Set rsClass = Server.CreateObject("ADODB.Recordset")
rsClass.Open strClass, cn
rsClass.MoveFirst
links.MoveFirst
Do While Not rsClass.EOF
Response.Write "| " & rsClass("Class") & "s | "
Do While Not links.EOF
iCount = 1
If links("Class") = rsClass("Class_id") Then
Response.Write ""
Response.Write links("Company") & "
" & links("Description")
Response.Write "
www." & links("URL")
Response.Write " | "
End If
links.MoveNext
Loop
rsClass.MoveNext
links.MoveFirst
Response.Write "
"
Loop
links.Close
Set links = nothing
rsClass.Close
Set rsClass = nothing
cn.Close
Set cn = nothing
%>
|
|
|
|