|
|
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "e:\wwwbotany\bleecker\plantportal\plantportal.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "SELECT Sheet2.[Full Name], Sheet2.URL, Sheet2.Department FROM Sheet2 WHERE Sheet2.[Systematics & Evolution]=1 order by Sheet2.[Last Name] asc ", conn
%>
<%do until rs.EOF%>
| <% if trim(rs.Fields("URL").value) = "na" then
Response.Write(rs.Fields("Full Name").value & " (" & rs.Fields("Department").value & ")" )
else
Response.Write("" & rs.Fields("Full Name").value & "" & " (" & rs.Fields("Department").value & ")" )
end if %>
|
<%
rs.MoveNext%>
<%loop
rs.close
conn.close
%>
|