home *** CD-ROM | disk | FTP | other *** search
/ 207.233.110.77 / 207.233.110.77.tar / 207.233.110.77 / vbasic / ProcessAdmin.asp < prev    next >
Text File  |  2001-10-16  |  19KB  |  463 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <% Option Explicit %>
  3. <!-- METADATA 
  4.    TYPE="TypeLib" 
  5.    FILE="C:\Program Files\Common Files\System\ADO\msado21.tlb" 
  6. -->
  7. <!--#include file="DatabaseConnect.asp"-->
  8. <%    If Session("ValidatedAdministrator") <> True Then
  9.         Response.Redirect "error.asp?error=denied"
  10.     End If %>
  11. <html>
  12. <head>
  13. <title>Process Admin Page</title>
  14. </head>
  15. <body>
  16. <%
  17.     Dim objRS
  18.     Dim objRSTeacher
  19.     Dim sSQL
  20.     Dim strTmp
  21.     Dim strPath
  22.     Dim strEmail
  23.     Dim strFolder
  24.     Dim strFirst
  25.     Dim strLast
  26.     Dim iPos
  27.     Dim bActivated
  28.     Dim bDeActivated
  29.     Dim bUpdate
  30.     Dim objFSO        'File System Object variable
  31.     Dim objF             'Folder Object needed for CreateFolder method of the FSO
  32.     Dim Mailer             'SoftArtisans SMTPMail Object variable
  33.     Dim bAdmin
  34.     
  35.     'Admin can see ALL student records, Teachers only see their student's records and their own
  36.     If Session("Admin") = "Admin" Then
  37.         sSQL = "SELECT * FROM Students ORDER BY security, name;"
  38.         bAdmin = True
  39.     Else
  40.         sSQL = "SELECT * FROM Students WHERE teacher = '" & Session("Admin") & "' ORDER BY security, name;"
  41.         bAdmin = False
  42.     End If
  43.      Select Case LCase(Trim(Request.Form("action")))
  44.        Case "apply changes"   'Changes could be Activate/DeActivate, and Delete
  45.         bUpdate = False
  46.         'Create the File System object
  47.         Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  48.         Set objRS = Server.CreateObject("ADODB.Recordset")
  49.         objRS.Open sSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText
  50.         'Don't try processing if there are no records
  51.         If Not (objRS.EOF And objRS.BOF) Then 
  52.           'Process the Activatate/Deactivate records first
  53.           objRS.MoveFirst
  54.           Do While Not objRS.EOF
  55.             Select Case LCase(Trim(Request.Form("R" & objRS("email"))))
  56.               Case "yes"
  57.                 'This Activate Record code creates a Folder for the account if one doesn't already exist
  58.                If objRS("active") = False Then
  59.                    If IsNull(objRS("folder")) Then
  60.                         'Create the account folder name by extracting the Username part of the email address
  61.                         iPos = instr(objRS("email"), "@")
  62.                         strFolder = mid(objRS("email"), 1, iPos-1)
  63.                         'Check if the folder exists before trying to create it.  If the folder already exists, 
  64.                         '  append a random digit to the name until it is unique
  65.                         strPath =  "c:/vbStudents/" & strFolder
  66.                         Do While (objFSO.FolderExists(strPath))
  67.                          strFolder = strFolder & FormatNumber(Int(Rnd * 10), "0")
  68.                         strPath =  "c:/vbStudents/" & strFolder
  69.                         Loop          
  70.                         'Use the File System Object's CreateFolder method to make the folder 
  71.                       Set objF = objFSO.CreateFolder(strPath)
  72.                       objRS("folder") = strFolder
  73.                         Response.Write (objRS("name") & " Activated. Folder: " & objRS("folder") & " created.<BR>An email has been sent to " & objRS("email") & " informing them of their account status.<BR><BR>")
  74.                     Else
  75.                         Response.Write (objRS("name") & " ReActivated.<BR>An email has been sent to " & objRS("email") & " informing them of their account status.<BR><BR>")
  76.                     End If
  77.                     objRS("active") = True
  78.                     bUpdate = True
  79.                     Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
  80.                     Mailer.FromName = "Guy Campbell"
  81.                     Mailer.FromAddress = "campbell_guy@hotmail.com"
  82.                     Mailer.organization = "Visual Basic - Moorpark College"
  83.                     Mailer.Subject = "Moorpark College -- Visual Basic Account Activation"
  84.                     Mailer.smtplog = "C:\mysmtplog.txt"
  85.                     Mailer.live = True
  86.                     Mailer.RemoteHost = "sunny.moorpark.cc.ca.us"
  87.                     Mailer.Priority = 3        
  88.                     'CC the Instructor
  89.                     'Mailer.addcc objRS("teacher"), objRS("teacheremail")
  90.                     'Tell the Student that their account had been Activated
  91.                     Mailer.addrecipient objRS("name"), objRS("email")
  92.                     Mailer.bodytext = "Your Visual Basic Account has been Activated. " & vbCRLF _
  93.                         & vbCRLF _
  94.                         & "Name: " & objRS("name") & vbCRLF _
  95.                         & "eMail: " & objRS("email") & vbCRLF _
  96.                         & "Password: " & objRS("password") & vbCRLF _
  97.                         & "Class: " & objRS("classtype") & vbCRLF _
  98.                         & "Current Status: Activated" & vbCRLF & vbCRLF _                
  99.                         & "Important:  All information is case sensitive." & vbCRLF & vbCRLF _
  100.                         & "Note: You may now log into your Moorpark College--Visual Basic Account:" & vbCRLF _                
  101.                         & "http://cislab.moorpark.cc.ca.us/vbasic" & vbCRLF & vbCRLF _                
  102.                         & "Thank You, " & vbCRLF & vbCRLF & "Guy Campbell" & vbCRLF & "campbell_guy@hotmail.com"
  103.                     Mailer.SendMail                        
  104.                     Mailer.ClearRecipients
  105.                     'Tell the Instructor that their Student's account has been Activated
  106.                     Mailer.Subject = "Your VB Student " & objRS("name") & " - Account Activated!"
  107.                     Mailer.addrecipient objRS("teacher"), objRS("teacheremail")
  108.                     Mailer.bodytext = "Your Student: " & objRS("name") & " has had their Visual" & vbCrLf & "Basic account Activated. Student Info:" & vbCRLF _
  109.                         & vbCRLF _
  110.                         & "Name: " & objRS("name") & vbCRLF _
  111.                         & "eMail: " & objRS("email") & vbCRLF _
  112.                         & "Password: " & objRS("password") & vbCRLF _
  113.                         & "Class: " & objRS("classtype") & vbCRLF _
  114.                         & "Current Status: Activated" & vbCRLF & vbCRLF _                
  115.                         & "Important:  All information is case sensitive." & vbCRLF & vbCRLF _
  116.                         & "Note: They may now log into their Moorpark College--Visual Basic Account:" & vbCRLF _                
  117.                         & "http://cislab.moorpark.cc.ca.us/vbasic" & vbCRLF & vbCRLF _                
  118.                         & "Thank You, " & vbCRLF & vbCRLF & "Guy Campbell" & vbCRLF & "campbell_guy@hotmail.com"
  119.                     Mailer.SendMail                        
  120.                     Mailer.ClearRecipients
  121.                     Set Mailer = Nothing
  122.                 End If
  123.               Case "no"
  124.                 If objRS("active") = True Then
  125.                       objRS("active") = False
  126.                       Response.Write (objRS("name") & " DeActivated.<BR>An email has been sent to " & objRS("email") & " informing them of their account status.<BR><BR>")
  127.                     bUpdate = True
  128.                     Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
  129.                     Mailer.FromName = "Guy Campbell"
  130.                     Mailer.FromAddress = "campbell_guy@hotmail.com"
  131.                     Mailer.organization = "Visual Basic - Moorpark College"
  132.                     Mailer.Subject = "Moorpark College -- Visual Basic Account Confirmation"
  133.                     Mailer.smtplog = "C:\mysmtplog.txt"
  134.                     Mailer.live = True
  135.                     Mailer.RemoteHost = "sunny.moorpark.cc.ca.us"
  136.                     Mailer.Priority = 3        
  137.                     'CC the Instructor
  138.                     'Mailer.addcc objRS("teacher"), objRS("teacheremail")
  139.                     Mailer.addrecipient objRS("name"), objRS("email")
  140.                     Mailer.bodytext = "Your Visual Basic Account has been Disabled. " & vbCRLF _
  141.                         & vbCRLF _
  142.                         & "Name: " & objRS("name") & vbCRLF _
  143.                         & "eMail: " & objRS("email") & vbCRLF _
  144.                         & "Password: " & objRS("password") & vbCRLF _
  145.                         & "Class: " & objRS("classtype") & vbCRLF _
  146.                         & "Current Status: Disabled" & vbCRLF & vbCRLF _                
  147.                         & "Important:  All information is case sensitive." & vbCRLF & vbCRLF _
  148.                         & "Note: You cannot login to your Moorpark College--Visual Basic Account" & vbCRLF _                
  149.                         & "until your account is reactivated. Please contact me to learn about" & vbCRLF _                
  150.                         & "your account status." & vbCRLF _                
  151.                         & "Thank You, " & vbCRLF & vbCRLF & "Guy Campbell" & vbCRLF & "campbell_guy@hotmail.com"
  152.                     Mailer.SendMail                        
  153.                     Mailer.ClearRecipients
  154.                     'Tell the Instructor that their Student's account has been Disabled
  155.                     Mailer.Subject = "Your VB Student " & objRS("name") & " - Account Disabled!"
  156.                     Mailer.addrecipient objRS("teacher"), objRS("teacheremail")
  157.                     Mailer.bodytext = "Your Student: " & objRS("name") & " has had their Visual" & vbCrLf & "Basic account Disabled. Student Info:" & vbCRLF _
  158.                         & vbCRLF _
  159.                         & "Name: " & objRS("name") & vbCRLF _
  160.                         & "eMail: " & objRS("email") & vbCRLF _
  161.                         & "Password: " & objRS("password") & vbCRLF _
  162.                         & "Class: " & objRS("classtype") & vbCRLF _
  163.                         & "Current Status: Disabled" & vbCRLF & vbCRLF _                
  164.                         & "Important:  All information is case sensitive." & vbCRLF & vbCRLF _
  165.                         & "Note: They can NOT log into their Moorpark College--Visual Basic Account:" & vbCRLF _                
  166.                         & "http://cislab.moorpark.cc.ca.us/vbasic" & vbCRLF & vbCRLF _                
  167.                         & "Thank You, " & vbCRLF & vbCRLF & "Guy Campbell" & vbCRLF & "campbell_guy@hotmail.com"
  168.                     Mailer.SendMail                        
  169.                     Mailer.ClearRecipients
  170.                     Set Mailer = Nothing
  171.                  End If
  172.             End Select
  173.             objRS.MoveNext
  174.           Loop
  175.           'Update only if something was modified
  176.           If bUpdate = True Then
  177.               objRS.MoveFirst
  178.             objRS.Update
  179.           End If
  180.           'Process the Deleted records 
  181.           objRS.MoveFirst
  182.           Do While Not objRS.EOF
  183.             For Each strEmail In Request.Form("Delete")
  184.               If objRS("email")= strEmail Then
  185.                    'Delete the Account Record and remove it's directory structure
  186.                  strPath =  "c:/vbStudents/" & objRS("folder")
  187.                  If objFSO.FolderExists(strPath) And Not IsNull(objRS("folder")) Then
  188.                    objFSO.DeleteFolder strPath
  189.                    Response.Write ("Account: " & objRS("name") & " and Folder: " & objRS("folder") & " deleted!<BR>")
  190.                  Else
  191.                    Response.Write ("Account: " & objRS("name") & " deleted!<BR>")
  192.                  End If
  193.                     objRS.Delete
  194.                 Exit For
  195.                 End If
  196.               Next
  197.               objRS.MoveNext
  198.           Loop
  199.         End If
  200.         %>
  201.         <BR><INPUT TYPE="Button" VALUE="Continue" onClick="document.location='admin.asp';"> 
  202.         <%
  203.        Case "cancel changes"
  204.         Response.Redirect "admin.asp"
  205.       'Edit -- Use QueryString to find which record to edit
  206.       Case Else        
  207.         strTmp = Request.QueryString("email")
  208.         sSQL = "SELECT * FROM Students WHERE email = '" & strTmp & "';"
  209.         Set objRS = Server.CreateObject("ADODB.Recordset")
  210.         objRS.Open sSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText
  211.         'Can't edit a record that doesn't exist 
  212.         If Not (objRS.EOF And objRS.BOF) Then 
  213.         %>
  214. <!--Process Edit Form-->          
  215.           <CENTER>
  216.           <FORM METHOD=POST ACTION="ProcessAdminEdits.asp?email=<%=objRS("email")%>">
  217.               <TABLE BORDER="2" WIDTH="400">
  218.                 <TR><TH COLSPAN="11" ALIGN="left" bgcolor="#fff8dc"><font size="5" color="#4b0082">Editing 
  219.                   <% 
  220.                   Select Case objRS("security")
  221.                     Case vbAdmin %>
  222.                       Administrator Account:</font>
  223.                       <%
  224.                     Case vbTeacher %>
  225.                       Teacher Account:</font>
  226.                       <%
  227.                     Case Else %>
  228.                       Student Account:</font>
  229.                       <%
  230.                   End Select %>
  231.                   <font size="5" color="#dc143c"><%=objRS("name") %></font>
  232.                   </TH></TR>
  233.               <TR>
  234.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>First:<BR>Last:</b></font></TD>
  235.                   <TD width="275" bgcolor="#fff8dc">
  236.                   <%
  237.                   'Teachers may not modify their Name
  238.                 'Extract the First name and Last name from objRS("name")
  239.                 iPos = InStr(objRS("name"), ",")
  240.                 If iPos > 0 Then
  241.                   strLast = mid(objRS("name"), 1, iPos-1)
  242.                     strFirst = mid(objRS("name"), iPos+2)
  243.                   Else
  244.                     strLast = objRS("name")
  245.                     strFirst = ""
  246.                   End If
  247.                   If (bAdmin Or objRS("security") = vbStudent) Then
  248.                   %>
  249.                       <font size="2"><INPUT TYPE="text" NAME="First" VALUE="<%= strFirst%>" size="45"></font>
  250.                       <font size="2"><INPUT TYPE="text" NAME="Last" VALUE="<%= strLast%>" size="45"></font>
  251.                   <%
  252.                   Else
  253.                       Response.Write (strFirst)
  254.                       Response.Write (strLast)
  255.                   End If
  256.                   %>
  257.                   </TD> 
  258.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Email:</b></font></TD>
  259.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  260.                   <INPUT TYPE="text" NAME="Email" VALUE="<%= objRS("email")%>" size="45"></font></TD> 
  261.               </TR>
  262.               <TR>
  263.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Password:</b></font></TD>
  264.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  265.                   <INPUT TYPE="text" NAME="Password" VALUE="<%= objRS("password")%>" size="45"></font></TD> 
  266.               <%
  267.               If objRS("security") = vbStudent Then
  268.                   %>
  269.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Class:</b></font></TD>
  270.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  271.                 <SELECT NAME=CIS40or41>
  272.                 <% If objRS("classtype") = "CIS40" Then %>
  273.                   <OPTION VALUE="CIS40">CIS-M40
  274.                   <OPTION VALUE="CIS41">CIS-M41
  275.                 <% Else %>
  276.                   <OPTION VALUE="CIS41">CIS-M41
  277.                   <OPTION VALUE="CIS40">CIS-M40
  278.                 <% End If %>
  279.                 </SELECT></TD>
  280.               </TR>
  281.                 <TR>
  282.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Meet Day:</b></font></TD>
  283.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  284.                 <% If objRS("meetday") = "MonWed" Then %>
  285.                   <INPUT TYPE=RADIO NAME=MeetDay CHECKED VALUE="MonWed">
  286.                 <% Else %>
  287.                   <INPUT TYPE=RADIO NAME=MeetDay VALUE="MonWed">
  288.                 <% End If %>
  289.                     Day - Monday/Wednesday<BR>
  290.                 <% If objRS("meetday") = "TueThur" Then %>
  291.                     <INPUT TYPE=RADIO NAME=MeetDay CHECKED VALUE="TueThur">
  292.                 <% Else %>
  293.                     <INPUT TYPE=RADIO NAME=MeetDay VALUE="TueThur">
  294.                 <% End If %>
  295.                     Day - Tuesday/Thursday<BR>
  296.                 <% If objRS("meetday") = "TueNite" Then %>
  297.                     <INPUT TYPE=RADIO NAME=MeetDay CHECKED VALUE="TueNite">
  298.                 <% Else %>
  299.                     <INPUT TYPE=RADIO NAME=MeetDay VALUE="TueNite">
  300.                 <% End If %>
  301.                     Evening - Tuesday<BR>
  302.                 <% If objRS("meetday") = "WedNite" Then %>
  303.                     <INPUT TYPE=RADIO NAME=MeetDay CHECKED VALUE="WedNite">
  304.                 <% Else %>
  305.                     <INPUT TYPE=RADIO NAME=MeetDay VALUE="WedNite">
  306.                 <% End If %>
  307.                     Evening - Wednesday<BR>
  308.                 <% If objRS("meetday") = "ThurNite" Then %>
  309.                     <INPUT TYPE=RADIO NAME=MeetDay CHECKED VALUE="ThurNite">
  310.                 <% Else %>
  311.                     <INPUT TYPE=RADIO NAME=MeetDay VALUE="ThurNite">
  312.                 <% End If %>
  313.                     Evening - Thursday<BR>
  314.                 <% If objRS("meetday") = "FriNite" Then %>
  315.                     <INPUT TYPE=RADIO NAME=MeetDay CHECKED VALUE="FriNite">
  316.                 <% Else %>
  317.                     <INPUT TYPE=RADIO NAME=MeetDay VALUE="FriNite">
  318.                 <% End If %>
  319.                     Evening - Friday<BR>
  320.                 </TD>
  321.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Teacher:</b></font></TD>
  322.                   <TD width="275" bgcolor="#fff8dc"><font size="2" color="#dc143c">
  323.                       Note: </font><font size="2" color="#1e90ff">If you want to move a student to 
  324.                       another instructor's class, choose the instructor's name from this list.  
  325.                       Also, be sure to specify the correct </font><font size="2" color="#ff00ff">Meet
  326.                       Day</font><font size="2" color="#1e90ff"> and </font><font size="2" color="#ff00ff"> Class 
  327.                       </font><font size="2" color="#1e90ff">before you click</font><font size="2" color="#cd5c5c">
  328.                        Save Edits.</font>
  329.                       <BR>
  330.                   <SELECT NAME=Teacher>
  331.                 <OPTION VALUE="<%=objRS("teacher")%>"><%=objRS("teacher")%>
  332.                   <%
  333.                 sSQL = "SELECT * FROM Students WHERE Security = " & vbTeacher & " AND Name <> '" & objRS("teacher") & "' ORDER BY Name;"
  334.                 Set objRSTeacher = Server.CreateObject("ADODB.Recordset")
  335.                 objRSTeacher.Open sSQL, objConn, adOpenDynamic, adLockOptimistic, adCmdText
  336.                 objRSTeacher.MoveFirst
  337.                 'If there are no Teachers, don't do anything
  338.                 If Not (objRSTeacher.EOF And objRSTeacher.BOF) Then 
  339.                   Do While Not objRSTeacher.EOF
  340.                           %>
  341.                         <OPTION VALUE="<%=objRSTeacher("name")%>"><%=objRSTeacher("name")%>
  342.                           <%
  343.                           objRSTeacher.MoveNext
  344.                       Loop
  345.                       objRSTeacher.Close
  346.                       Set objRSTeacher = Nothing
  347.                   End If
  348.                   %>
  349.                   </SELECT>
  350.                 </TD>
  351.                 </TR>
  352.               <TR>
  353.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 1:</b></font></TD>
  354.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  355.                   <INPUT TYPE="text" NAME="score1" VALUE="<%= objRS("score1")%>" size="45"></font></TD> 
  356.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 2:</b></font></TD>
  357.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  358.                   <INPUT TYPE="text" NAME="score2" VALUE="<%= objRS("score2")%>" size="45"></font></TD> 
  359.               </TR>
  360.               <TR>
  361.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 3:</b></font></TD>
  362.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  363.                   <INPUT TYPE="text" NAME="score3" VALUE="<%= objRS("score3")%>" size="45"></font></TD> 
  364.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 4:</b></font></TD>
  365.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  366.                   <INPUT TYPE="text" NAME="score4" VALUE="<%= objRS("score4")%>" size="45"></font></TD> 
  367.               </TR>
  368.               <TR>
  369.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 5:</b></font></TD>
  370.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  371.                   <INPUT TYPE="text" NAME="score5" VALUE="<%= objRS("score5")%>" size="45"></font></TD> 
  372.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 6:</b></font></TD>
  373.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  374.                   <INPUT TYPE="text" NAME="score6" VALUE="<%= objRS("score6")%>" size="45"></font></TD> 
  375.               </TR>
  376.               <TR>
  377.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 7:</b></font></TD>
  378.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  379.                   <INPUT TYPE="text" NAME="score7" VALUE="<%= objRS("score7")%>" size="45"></font></TD> 
  380.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 8:</b></font></TD>
  381.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  382.                   <INPUT TYPE="text" NAME="score8" VALUE="<%= objRS("score8")%>" size="45"></font></TD> 
  383.               </TR>
  384.               <TR>
  385.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 9:</b></font></TD>
  386.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  387.                   <INPUT TYPE="text" NAME="score9" VALUE="<%= objRS("score9")%>" size="45"></font></TD> 
  388.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 10:</b></font></TD>
  389.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  390.                   <INPUT TYPE="text" NAME="score10" VALUE="<%= objRS("score10")%>" size="45"></font></TD> 
  391.               </TR>
  392.               <TR>
  393.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 11:</b></font></TD>
  394.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  395.                   <INPUT TYPE="text" NAME="score11" VALUE="<%= objRS("score11")%>" size="45"></font></TD> 
  396.                   <TD ALIGN="right" width="100" bgcolor="#ffe4c4"><font color="#8b4513"><b>Proj 12:</b></font></TD>
  397.                   <TD width="275" bgcolor="#fff8dc"><font size="2">
  398.                   <INPUT TYPE="text" NAME="score12" VALUE="<%= objRS("score12")%>" size="45"></font></TD> 
  399.               </TR>
  400.             <%
  401.             Else %>
  402.               </TR>
  403.                 <TR>
  404.             <%            
  405.             End If
  406.             %>
  407.                 <TFOOT>
  408.               <TR>
  409.                      <TD COLSPAN="4" ALIGN="left" bgcolor="#fff8dc">
  410.                     <INPUT TYPE="submit" NAME="Action" VALUE="Save Edits">
  411.                     <INPUT TYPE="submit" NAME="Action" VALUE="Leave">
  412.                 </TD>
  413.               </TR>
  414.               </TFOOT>
  415.             </TABLE>
  416.           </FORM>
  417.         </CENTER>
  418.         <%
  419.         Else
  420.             ' No Records Message
  421.               Response.Write("<H1>No Edit Record Found!</H1>")
  422.         End If
  423.     End Select
  424.     objRS.Close
  425.     Set objRS = Nothing
  426.     objConn.Close
  427.     Set objConn = Nothing
  428.     Set objFSO = Nothing
  429. %>
  430. </body>
  431.  
  432. </html>
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447.  
  448.  
  449.  
  450.  
  451.  
  452.  
  453.  
  454.  
  455.  
  456.  
  457.  
  458.  
  459.  
  460.  
  461.  
  462.  
  463.