%
on error resume next
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=ESBROWN"
q = "SELECT * FROM tabUsers WHERE (((tabUsers.UserLevel)='TEACH') AND (Display=TRUE)) ORDER BY tabUsers.Code"
Set RS = Conn.Execute(q)
If conn.errors.count > 0 then
response.redirect("error.htm")
End If
%>