<%
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open "Kacrao"
SQL_query = "SELECT * FROM COLLEGES ORDER BY College"
Set RS = objConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
"><%=RS("College")%>
<%
RS.MoveNext
WEND
RS.Close
objConn.Close
%>