Lotus LearningSpace R5.01 Deployment Guide

264 Lotus LearningSpace R5.01 Deployment Guide

conntemp.close

set conntemp=nothing %>

Figure 18-10 shows the report output for ASP example 3.

Figure 18-10 ASP example 3 report output

ASP example 4

Example 18-2 Report using VBScript

<% LANGUAGE=VBSCRIPT %>

<%

Dim MyConn, SQL, RS

const CourseNode = 3

Server.ScriptTimeout = 8000

response.write "<B>" & Date & " " & Time & "</B><BR><BR>"

'--------------------------

'Get the arguments passed

'--------------------------

course_id = Request.QueryString("COURSES.C_ID")

uprofs_id = Request.QueryString("UPROFS.UP_ID")

'---Debug statements ----

'response.write "<B>Course:</B> " & course_id & "<br>"

Note: Example 18-2 is