<%@ language=vbscript %>
<% option explicit %>
<%
dim strSQL4
strSQL4 = "SELECT UserTypeID, UserTypeName FROM USERTYPES WHERE UserTypeDisplay=1 ORDER BY UserTypeIndex"
dim objTypes, aLinks
set objTypes = server.createobject("ADODB.Recordset")
objTypes.open strSQL4, objconn, adlockpessimistic
aLinks = objTypes.GetRows
objTypes.close
set objTypes=nothing
%>
University of Northern Iowa Chemistry Department - Faculty & Staff
<%
'-----------------------------------------------------------------------------------------------------
'display links
'-----------------------------------------------------------------------------------------------------
dim iLinksLoop
for iLinksLoop = 0 to UBound(aLinks, 2)
response.Write "
" & aLinks(1, iLinksLoop) & ""
next
'-----------------------------------------------------------------------------------------------------
%>
