<% Dim rs Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open "people", "DSN=ODBC_People" %>

 

People at University College

Office Phone: (520) 621-7763

DIRECTORS TITLE OFFICE EMAIL
<% While Not rs.EOF if rs("type") = "d" Then %> <% If rs("link") = "na" Then %> <% Else %> <%End If %> <% End If rs.MoveNext Wend rs.Close Set rs = Nothing %>
<% Response.Write rs("name") %>"><% Response.Write rs("name") %><% Response.Write rs("title") %> <% Response.Write rs("office") %> "><% Response.Write rs("email") %>

ADMIN. STAFF TITLE OFFICE EMAIL
<%Dim rs2 Set rs2 = Server.CreateObject ("ADODB.Recordset") rs2.Open "people", "DSN=ODBC_People" While Not rs2.EOF If rs2("type") = "s" Then %> <% If rs2("link") = "na" Then %> <% Else %> <%End If %> <% End If rs2.MoveNext Wend rs2.Close Set rs2 = Nothing %>
<% Response.Write rs2("name") %>"><% Response.Write rs2("name") %><% Response.Write rs2("title") %> <% Response.Write rs2("office") %> "><% Response.Write rs2("email") %>

ADVISORS TITLE OFFICE EMAIL
<% DIM objConn ' Connection to the Database DIM objRS ' Record Set DIM strSQL ' SQL Statement 'Create a connection to the Workshops database Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open ("ODBC_People") strSQL = "SELECT * FROM people ORDER BY name" 'Create a record set to hold the data SET objRS = Server.CreateObject ("ADODB.RecordSet") objRS.open strSQL, objConn While Not objRS.EOF If objRS("type") = "a" Then %> <% If objRS("link") = "na" Then %> <% Else %> <%End If %> <% End If objRS.MoveNext Wend objRS.close set objRS = Nothing objConn.close Set objConn = Nothing %>
<% Response.Write objRS("name") %>"><% Response.Write objRS("name") %><% Response.Write objRS("title") %> <% Response.Write objRS("office") %> "><% Response.Write objRS("email") %>

 
Modern Languages Building Room 347
email