<%@ LANGUAGE="VBSCRIPT" @ ENABLESESSIONSTATE = False %> <% Dim ID Dim objConn 'Variable for connection object Dim RS ' Variable for record set object Dim strSQL ' Variable for String object for SQL query Dim TableName Dim CONNECTION_STRING 'Dim strLessonTitle Dim strAuthorTitle Dim strGradeList Dim strDescription1 Dim strDescription2 Dim strDescription3 Dim strDescription4 'Dim strDescription5 'Dim strDescription6 Dim strShowEmail Dim strComments Dim strName 'Dim strGrade 'Dim strTitle ID=FormatTextHTML(request("ID")) CONNECTION_STRING="DSN=network;UID=network;PASSWORD=olives1234;APP=SummerBookclubs" TableName="SWprek1Assn2" if ID="" Or ID=null then ID=FormatTextHTML(request("ReportID")) end if %> <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open CONNECTION_STRING Set RS = Server.CreateObject("ADODB.Recordset") 'strSQL = "SELECT ReportID, LessonTitle, AuthorTitle, GradeList, Description1, Description2, " 'strSQL = strSQL & "Description3, Description4, Description5, Description6, Name, Email, ShowEmail, Comments " 'strSQL = strSQL & " FROM " & TableName & " WHERE ReportID = " & ID strSQL = "SELECT ReportID, AuthorTitle, GradeList, Description1, Description2, " strSQL = strSQL & "Description3, Description4, Name, Email, ShowEmail, Comments " strSQL = strSQL & " FROM " & TableName & " WHERE ReportID = " & ID RS.Open strSQL,objConn,3 if not RS.EOF then 'strLessonTitle=RS("LessonTitle") strAuthorTitle=RS("AuthorTitle") strGradeList=RS("GradeList") strDescription1=RS("Description1") strDescription2=RS("Description2") strDescription3=RS("Description3") strDescription4=RS("Description4") 'strDescription5=RS("Description5") 'strDescription6=RS("Description6") strComments=RS("Comments") strName=RS("Name") 'strGrade=RS("Grade") 'strTitle=RS("Title") strGradeList=replace(strGradeList,"0","K") end if %> <% doMenu %>

	<% If NOT (rs.EOF AND rs.BOF) Then %> <%If strComments <> " " then%> <%End If%> <% = strAuthorTitle%>     Lesson plan for grade: <% = strGradeList%>   Submitted by: <% = strName%>   Materials: <% = strDescription1%>   Purpose: <% = strDescription2%>   Procedures: <% = strDescription3%>   Extension Activities: <% = strDescription4%>   Carleen's Comments : <% = strComments%>

<%end if%> <% doFooter %> >