Line: 46
Char: 1
Error: Object expected
Code: 0
URL: http://waitinglist.asp
Many thanks
Mark ....
My code is as follows:
Expand|Select|Wrap|Line Numbers
- <%@LANGUAGE="VBSCRIPT"%>
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
- "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
- <html>
- <!--#include file="../Connections/MISReporting2.asp" -->
- <%
- Dim rsCourses
- Dim rsCourses_numRows
- Dim strSQL
- Set rsCourses = Server.CreateObject("ADODB.Recordset")
- rsCourses.ActiveConnection = MM_MISReporting2_STRING
- strSQL = "SELECT stcsessd.full_desc, stcstatd.aos_code, stcsessd.aos_period, stcsessd.aos_start_dt, stcsessd.aos_end_dt FROM qlsdat.dbo.stcstudf INNER JOIN qlsdat.dbo.stcstatd INNER JOIN qlsdat.dbo.stcsessd ON stcstatd.aos_code = stcsessd.aos_code INNER JOIN qlsdat.dbo.stmaos ON stcsessd.aos_code = stmaos.aos_code AND stcsessd.acad_period = stmaos.acad_period AND stcsessd.aos_period = stmaos.aos_period ON qlsdat.dbo.stcstudf.aos_code = qlsdat.dbo.stcstatd.aos_code WHERE (stcstatd.active_yn = 1) AND (stcsessd.acad_period = '07/08') AND (stmaos.stage_code = 'ENR') AND (stmaos.stage_ind='E') AND (qlsdat.dbo.stcstudf.field2 ='FT') GROUP BY stcsessd.full_desc, stcstatd.aos_code, stcsessd.aos_period, stcsessd.aos_start_dt, stcsessd.aos_end_dt, stmaos.stage_code ORDER BY stcsessd.full_desc"
- 'response.Write(rsCourses.Source)
- rsCourses.Source = strSQL
- rsCourses.CursorType = 0
- rsCourses.CursorLocation = 2
- rsCourses.LockType = 1
- rsCourses.Open()
- rsCourses_numRows = 0
- %>
- <head>
- <title>Course Waiting List</title>
- <meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
- <link rel="stylesheet" href="../css/pagelayout.css" type="text/css">
- <link rel="stylesheet" href="../css/scrolling_table.css" type="text/css">
- <link rel="stylesheet" href="../css/menu.css" type="text/css">
- <script language="JavaScript" src="../js/menu.js"></script>
- <script language="JavaScript" src="../js/tree_items.js"></script>
- <script language="JavaScript" src="../js/menu_tpl.js"></script>
- </head>
- <%
- Function getCourseDetails
- Response.Write("Hello")
- End Function
- %>
- <body>
- <div id="maincontainer">
- <div id="banner">
- <div class="innertube">
- <h1>
- <!--#include file ="../inc/header.inc"-->
- </h1>
- </div>
- </div>
- <div id="contentwrapper">
- <div id="contentcolumn">
- <div class="innertube">
- <%response.Buffer=true%>
- <!-- #include file="caDataGrid.asp"-->
- <%
- dim cDataGrid, mapPath
- 'now lets set our own columns
- Set cDataGrid = New caDataGrid
- cDataGrid.AutoColumns = false
- cDataGrid.AddTable("dataTable")
- cDataGrid.AddColumn("Course Title")
- cDataGrid.AddColumn("AOS Code")
- cDataGrid.AddColumn("AOS Period")
- cDataGrid.AddColumn("Start Date")
- cDataGrid.AddColumn("End Date")
- cDataGrid.AddColumn("Chk")
- %>
- <form name="myform" action="form_action.asp" method="get">
- <br />
- <label>Course Type
- <select name="slCourseType" onChange="getCourseDetails()">
- <option value="">All courses</option>
- <option value="FT">Full Time</option>
- <option value="PT">Part Time</option>
- <option value="SC">Short Course</option>
- <option value="SP">Schools Projects</option>
- <option value="KS">Key Skills</option>
- <option value="BS">Basic Skills</option>
- <option value="FA">Full Time Additional</option>
- </select>
- </label>
- <br />
- <div class="scrollTableContainer">
- <%
- cDataGrid.Bind rsCourses,true
- %>
- </div>
- <br />
- <input type="submit" value="Submit" />
- <input type="reset" value="Clear" />
- </form>
- <%
- set cDataGrid = nothing
- rsCourses.Close()
- Set rsCourses = Nothing
- %>
- </div>
- </div>
- </div>
- <div id="nav">
- <div class="innertube">
- <script language="JavaScript">
- new menu (TREE_ITEMS, MENU_TPL);
- </script>
- </div>
- </div>
- <div id="footer">
- <!--#include file ="../inc/footer.inc"-->
- </div>
- </div>
- </body>
- </html>