Plant Biology & Plant Sciences at the UW-Madison

faculty with a focus on

Modelling, Statistics, & Epidemiology

<% 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.[Modeling and Stat]=1 order by Sheet2.[Last Name] asc ", conn %> <%do until rs.EOF%> <% rs.MoveNext%> <%loop rs.close conn.close %>
<% 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 %>