<% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsPageContent 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database Dim lngRecordNo 'Holds the record number to be updated 'Read in the record number to be updated lngRecordNo = CLng(Request.QueryString("ID")) '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 "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ParentTeacherConf.mdb") 'Set an active connection to the Connection object using DSN connection 'adoCon.Open "DSN=cms" 'Create an ADO recordset object Set rsPageContent = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT * FROM tblParentTeacher, tblTeachers WHERE tblParentTeacher.TeacherName=" & lngRecordNo 'Open the recordset with the SQL query rsPageContent.Open strSQL, adoCon %> News Update Form

 

Appointment Form
Teacher: Thomas Anderson

 
Please enter the appropriate information below and schedule appointment below.

* NOTE: You will have 30 seconds to fill out this page and click "Schedule Appointment." After 30 seconds you will be redirected back to the previous page.
     
Appointment Time
   " size="15" readonly="yes"> (To change appointment time please Click Here.)
     
Teacher Name
   " size="25" readonly="yes"> (To change teacher, please Click Here)
     
Course Name
  " size="25">
     
Parent / Guardian Name
  " size="35">
     
Student Name
  " size="35">
     
Grade
  
     
Phone Number
  " size="35">
     
Email Address
  " size="35">
     
     
   
     

">

<% 'Reset server objects rsPageContent.Close Set rsPageContent = Nothing Set adoCon = Nothing %>