|
<%
SQL = "SELECT [class_datetime_tbl].[class_datetime_id], [class_datetime_tbl].[class_datetime], "
SQL = SQL &"[class_datetime_tbl].[class_capacity], [class_datetime_tbl].[class_enrolled], "
SQL = SQL &"[class_datetime_tbl].[class_status], [class_series_tbl].[class_series], "
SQL = SQL &"[instructor_tbl].[instructor_name], [class_tbl].[class_photo], "
SQL = SQL &"[class_tbl].[class_price], [class_tbl].[class_name], "
SQL = SQL &"[class_tbl].[class_prerequisite], [class_tbl].[class_note], "
SQL = SQL &"[class_tbl].[class_demo], [class_tbl].[class_new], [class_tbl].[class_description]"
SQL = SQL &"FROM instructor_tbl INNER JOIN ((class_series_tbl INNER JOIN class_tbl ON "
SQL = SQL &"[class_series_tbl].[class_series_id] =[class_tbl].[class_series_id]) INNER JOIN "
SQL = SQL &"class_datetime_tbl ON [class_tbl].[class_id] =[class_datetime_tbl].[class_id]) "
SQL = SQL &"ON [instructor_tbl].[instructor_id] =[class_datetime_tbl].[instructor_id] WHERE "
SQL = SQL &"[class_datetime_tbl].[class_datetime] BETWEEN #"& Cdate(NOW()) &"# AND #" & Cdate(NOW()+7) &"# "
SQL = SQL &"ORDER BY [class_datetime_tbl].[class_datetime] ASC;"
set rs2=server.createObject("ADODB.recordset")
rs2.open SQL, CONN
while not rs2.eof
response.write ""&rs2("class_name")&" on " & trimseconds(rs2("class_datetime"))&" "
rs2.movenext
wend
response.write " "
rs2.close
set rs2=nothing
response.write" |
"
response.write "