<% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsudInfo 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query to query the database Dim udInfo, checkMsg, udDesc 'Create an ADO connection object Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dbase/db.mdb") 'Create an ADO recordset object Set rsudInfo = Server.CreateObject("ADODB.Recordset") %>

VHS International Baccalaureate Program

Facilitator:
Sally Lowenstein
Phone: 757-2253
email: swlowenstein@vestal.k12.ny.us

Principal:
Catherine Hepler
Phone: 757-2281
email: hepler@vcs.stier.org