%@ Language="VBSCript" %>
<% Option Explicit %>
<%
'A C U P U N C T U R E - C H I N E S E - M A S S A G E . C O M
'*************************************************************
CheckBasketStatus()
Dim objConnection
Dim rsCourses
Dim vSQL
Dim vSelected
Dim vFirstCourse
vFirstCourse = true
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open vDSN
vSQL = "SELECT * FROM Courses ORDER By C_Name ASC"
Set rsCourses = Server.CreateObject("ADODB.RecordSet")
rsCourses.Open vSQL, objConnection, adOpenStatic, adLockReadOnly
%>