Blog literacki, portal erotyczny - seks i humor nie z tej ziemi
<%
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")
%>
FACE="Arial,Helvetica">Wybierz kurs
<%
do until RSCourses.EOF
%>
">
BORDER=0 ALT="Enroll" >
<% Response.Write RSCourses("CourseName") %> -
<% Response.Write RSCourses("CourseDescription") %>
<%
RSCourses.MoveNext
loop
end if
%>