Missouri Valley College Directory

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/directory/Employees.mdb")) set rs=Server.CreateObject("ADODB.recordset") sql="SELECT DISTINCT Department FROM Employees ORDER BY Department" rs.Open sql,conn name="*" dept=request.form("lst_department") %>

Choose Department:
<% if name<>"" then sql="SELECT * FROM Employees WHERE lastname LIKE ( '%' + '" & name & "' + '%') ORDER BY LastName" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,conn %> <% if dept<>"" then sql="SELECT * FROM Employees WHERE Department='" & dept & "' ORDER BY LastName" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,conn %> <% do until rs.EOF response.write("") response.write("") response.write("") response.write("") response.write("") response.Write("") response.write("") rs.MoveNext loop rs.close conn.Close set rs=Nothing set conn=Nothing%>
Name Office Title Department Email / Ext.
" & rs.fields("firstname") & " " & rs.fields("lastname") & "" & rs.fields("Office") & "" & rs.fields("title") & "" & rs.fields("department") & "" & rs.fields("Email") & "
" & rs.fields("Extension") & "
<% end if %> <% end if %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/directory/Employees.mdb")) set rs=Server.CreateObject("ADODB.recordset") sql="SELECT * FROM Employees ORDER BY LastName" rs.Open sql,conn name=request.form("txt_keyword") %>

Search by Last Name:
<% if name<>"" then sql="SELECT * FROM Employees WHERE lastname LIKE ( '%' + '" & name & "' + '%')" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,conn %> <% do until rs.EOF response.write("") response.write("") response.write("") response.write("") response.write("") response.Write("") response.write("") rs.MoveNext loop rs.close conn.Close set rs=Nothing set conn=Nothing%>
Name Office Title Department Email / Ext.
" & rs.fields("firstname") & " " & rs.fields("lastname") & "" & rs.fields("Office") & "" & rs.fields("title") & "" & rs.fields("department") & "" & rs.fields("Email") & "
" & rs.fields("Extension") & "
<% end if %>

To Update Information Please Follow Link