Faculty at the UW Madison involved with Plant Research

Plant Biology & Plant Sciences at the UW-Madison

Alphabetical listing of faculty

[A] [B] [C] [D] [E] [F] [G] [H] [I] [J] [K] [L] [M] [N] [O] [P] [q] [R] [S] [T] [U] [V] [W] [x] [Y] [Z]

Lower case letters denote no faculty with a last name starting with that letter currently listed

<% 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.[Last Name] < 'B' and Sheet2.[Last Name]>='A'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 %>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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