image151

S NetObjects ScriptBuilder - [D:\wait\ocinfo\live\Copy of class.asp]

^ File £dit View Script Jags Tools Window Help

L±5jx]

^B]xi

□ y - m

x m %

O Orf

#d5t»

mm-

3.

& 9 *

m y

□ m 13 m

m

E3 |x ® H EJ 0

B / U

m

■ m

♦--- 3--

ir br -

HI H2 H3 H4 H5 H6

H] <3S>

-

Name	1 Category	1 Description	A
® DbSelect	ASP	Displays resul
0DeleteDbRecord	ASP	Deletes recor
FetchDbRecords	ASP	Opens a reco
QFileExists	ASP	Active Server
GlobalDbConnect	ASP	Opens a glob
^InsertDbRecord	ASP	Inserts recorc
PageDbConnect	ASP	Opens a pag
^Randomlmage	ASP	Function cho
^lReadCookie	ASP	Reads a coo
^jReportHits	ASP	Subroutine re
SetSessionDbProp.	. ASP	Sets three se
0ShowSQLTable	ASP	Displays a res
^]Test for Book	ASP	test script
^IWriteCookie	ASP	Writes a cool
^Array	JavaScript	Function crea
^DisplaySource	JavaScript	Function will
^]GetRadioValue	JavaScript	Function retu
^)GetSelectValue	JavaScript	Function retu
^RotatingButton	JavaScript	Rotating buttc	T
	j	-i
Script Library	Component Gallery
© Reference |	Map |	Desktop

Ln 1 Pos 1 Totel 433

<%@ Language=VBScript %>

<%

i£ isempty(Session("StudentlD")) then Response.Redirect ./index.asp" end if

i£ isempty(Reąuest. QueryString("CourselD")) then Response.Redirect ./html/student_menu.asp" end if

Session("CourseID") = Reąuest.QueryString("CourselD")

Response.Expires = 0

set conn = server.createobject ("adodb.connection")

conn.open Application("DNS"), Application("UserName"), Application(^r,P| set RSLectures = conn.Execute ("SELECT LecturelD, LectureName, " _

4 "LectureDescription EROM OCLectures " _

4 "UHERE CourselD = " 4 Reąuest.QueryString("CourselD")) set RSAssignments = conn.Execute ("SELECT AssignmentlD, AssignmentName 4 "AssignmentDescription, Assignment FROM OCAssignments " _

4 "UHERE CourselD = " 4 Reąuest.QueryString("CourselD")) set RSQuizzes = conn.Execute ("SELECT QuizID, QuizName, " _

4 "QuizDescription FROH OCQuizzes " _

4 "UHERE CourselD = " 4 Reąuest.QueryString("CourselD")) set RSCourses = conn.Execute("SELECT CourseName from OCCourses " _

4 " UHERE CourselD = " 4 Reąuest.QueryString("CourselD"))

Insert    |javaScript

3-36