<% 
Option Explicit
Dim conn
Dim RSCourses
if Application("AllowEnroll") = "Yes" then 
   set conn = server.createobject ("adodb.connection")
   conn.open Application("DNS"), Application("Nazwa_uzytkownika"), _
     Application("Haslo")
   set RSCourses = conn.execute ("SELECT CourseID, CourseName, " _
     & CourseDescription FROM OCCourses")
%>
   <P ALIGN="CENTER"><B><FONT COLOR="#0000A0" SIZE="+3" 
   FACE="Arial,Helvetica">Wybierz kurs</B></FONT>
<%
   do until RSCourses.EOF
%>
   <A HREF="../html/enrolldrop.asp?CourseID=
     <% Response.Write RSCourses("CourseID") %>">
     <IMG HEIGHT=52 WIDTH=56 SRC="../assets/images/p048.gif"  
     BORDER=0 ALT="Enroll" ></A>
   <P><B><FONT FACE="Arial,Helvetica">
     <% Response.Write RSCourses("CourseName") %> - 
     <% Response.Write RSCourses("CourseDescription") %></B></FONT>
<%
     RSCourses.MoveNext
   loop
end if
%>
