Reply to thread

Message

<blockquote data-quote="wjlfernando" data-source="post: 5330471" data-attributes="member: 44901">pls help me find out this code's error... [HTML]&lt;title&gt;Course Progession&lt;/title&gt;&lt;style type=&quot;text/css&quot;&gt;&lt;!--.style1 {&nbsp; &nbsp; color: #FFFFFF;&nbsp; &nbsp; font-weight: bold;}--&gt;&lt;/style&gt;&lt;/head&gt;&lt;body&gt;&lt;%firstName = Request.Form(&quot;Firstname&quot;) surName = Request.Form(&quot;Surname&quot;) studentId = Request.Form(&quot;StudentID&quot;) courseType = Request.Form(&quot;CourseType&quot;) dim unitCode unitCode = array(Request.Form(&quot;UnitCode_1&quot;), Request.Form(&quot;UnitCode_2&quot;), Request.Form(&quot;UnitCode_3&quot;), Request.Form(&quot;UnitCode_4&quot;), Request.Form(&quot;UnitCode_5&quot;), Request.Form(&quot;UnitCode_6&quot;), Request.Form(&quot;UnitCode_7&quot;), Request.Form(&quot;UnitCode_8&quot;), Request.Form(&quot;UnitCode_9&quot;), Request.Form(&quot;UnitCode_10&quot;), Request.Form(&quot;UnitCode_11&quot;), Request.Form(&quot;UnitCode_12&quot;), Request.Form(&quot;UnitCode_13&quot;), Request.Form(&quot;UnitCode_14&quot;), Request.Form(&quot;UnitCode_15&quot;), Request.Form(&quot;UnitCode_16&quot;), Request.Form(&quot;UnitCode_17&quot;), Request.Form(&quot;UnitCode_18&quot;), Request.Form(&quot;UnitCode_19&quot;), Request.Form(&quot;UnitCode_20&quot;), Request.Form(&quot;UnitCode_21&quot;), Request.Form(&quot;UnitCode_22&quot;), Request.Form(&quot;UnitCode_23&quot;), Request.Form(&quot;UnitCode_24&quot;), Request.Form(&quot;UnitCode_25&quot;), Request.Form(&quot;UnitCode_26&quot;), Request.Form(&quot;UnitCode_27&quot;), Request.Form(&quot;UnitCode_28&quot;), Request.Form(&quot;UnitCode_29&quot;), Request.Form(&quot;UnitCode_30&quot;))&nbsp; dim noOfCreditPointsnoOfCreditPoints = array(Request.Form(&quot;CP_1&quot;), Request.Form(&quot;CP_2&quot;), Request.Form(&quot;CP_3&quot;), Request.Form(&quot;CP_4&quot;), Request.Form(&quot;CP_5&quot;), Request.Form(&quot;CP_6&quot;), Request.Form(&quot;CP_7&quot;), Request.Form(&quot;CP_8&quot;), Request.Form(&quot;CP_9&quot;), Request.Form(&quot;CP_10&quot;), Request.Form(&quot;CP_11&quot;), Request.Form(&quot;CP_12&quot;), Request.Form(&quot;CP_13&quot;), Request.Form(&quot;CP_14&quot;), Request.Form(&quot;CP_15&quot;), Request.Form(&quot;CP_16&quot;), Request.Form(&quot;CP_17&quot;), Request.Form(&quot;CP_18&quot;), Request.Form(&quot;CP_19&quot;), Request.Form(&quot;CP_20&quot;), Request.Form(&quot;CP_21&quot;), Request.Form(&quot;CP_22&quot;), Request.Form(&quot;CP_23&quot;), Request.Form(&quot;CP_24&quot;), Request.Form(&quot;CP_25&quot;), Request.Form(&quot;CP_26&quot;), Request.Form(&quot;CP_27&quot;), Request.Form(&quot;CP_28&quot;), Request.Form(&quot;CP_29&quot;), Request.Form(&quot;CP_30&quot;)) dim semestersemester = array(Request.Form(&quot;YS_1&quot;), Request.Form(&quot;YS_2&quot;), Request.Form(&quot;YS_3&quot;), Request.Form(&quot;YS_4&quot;), Request.Form(&quot;YS_5&quot;), Request.Form(&quot;YS_6&quot;), Request.Form(&quot;YS_7&quot;), Request.Form(&quot;YS_8&quot;), Request.Form(&quot;YS_9&quot;), Request.Form(&quot;YS_10&quot;), Request.Form(&quot;YS_11&quot;), Request.Form(&quot;YS_12&quot;), Request.Form(&quot;YS_13&quot;), Request.Form(&quot;YS_14&quot;), Request.Form(&quot;YS_15&quot;), Request.Form(&quot;YS_16&quot;), Request.Form(&quot;YS_17&quot;), Request.Form(&quot;YS_18&quot;), Request.Form(&quot;YS_19&quot;), Request.Form(&quot;YS_20&quot;), Request.Form(&quot;YS_21&quot;), Request.Form(&quot;YS_22&quot;), Request.Form(&quot;YS_23&quot;), Request.Form(&quot;YS_24&quot;), Request.Form(&quot;YS_25&quot;), Request.Form(&quot;YS_26&quot;), Request.Form(&quot;YS_27&quot;), Request.Form(&quot;YS_28&quot;), Request.Form(&quot;YS_29&quot;), Request.Form(&quot;YS_30&quot;)) dim marksmarks = array(Request.Form(&quot;UM_1&quot;), Request.Form(&quot;UM_2&quot;), Request.Form(&quot;UM_3&quot;), Request.Form(&quot;UM_4&quot;), Request.Form(&quot;UM_5&quot;), Request.Form(&quot;UM_6&quot;), Request.Form(&quot;UM_7&quot;), Request.Form(&quot;UM_8&quot;), Request.Form(&quot;UM_9&quot;), Request.Form(&quot;UM_10&quot;), Request.Form(&quot;UM_11&quot;), Request.Form(&quot;UM_12&quot;), Request.Form(&quot;UM_13&quot;), Request.Form(&quot;UM_14&quot;), Request.Form(&quot;UM_15&quot;), Request.Form(&quot;UM_16&quot;), Request.Form(&quot;UM_17&quot;), Request.Form(&quot;UM_18&quot;), Request.Form(&quot;UM_19&quot;), Request.Form(&quot;UM_20&quot;), Request.Form(&quot;UM_21&quot;), Request.Form(&quot;UM_22&quot;), Request.Form(&quot;UM_23&quot;), Request.Form(&quot;UM_24&quot;), Request.Form(&quot;UM_25&quot;), Request.Form(&quot;UM_26&quot;), Request.Form(&quot;UM_27&quot;), Request.Form(&quot;UM_28&quot;), Request.Form(&quot;UM_29&quot;), Request.Form(&quot;UM_30&quot;)) 'Getting the marksanyError = false unitsAttempted = 0 passedUnits = 0 totalCreditPoints = 0 Sub validateStudentInfo(fName, sName, stdId)&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(fName = &quot;&quot;)then&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;Please enter your Firstname &lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(sName = &quot;&quot;)then&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;Please enter your Surname &lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; End If&nbsp; &nbsp; If(stdId = &quot;&quot;)then&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;Please enter your Student ID &lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If(stdId &lt;&gt; &quot;&quot;)then&nbsp; &nbsp; &nbsp; &nbsp; dim sID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; sID = Len(stdId)&nbsp; &nbsp; &nbsp; &nbsp; If(sID&lt;8 OR (NOT IsNumeric(stdId)))then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;Please re-enter the Student ID, Student ID must be a 8 digit numeric &lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End IfEnd Sub Sub displayStudentDetails (fName, sName, stdId)&nbsp; &nbsp; Response.Write(&quot;Name : &quot;&amp;(sName)&amp;&quot; &quot;&amp;(fName))&nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Student ID : &quot;&amp;(stdId))End Sub Sub displayCourseDetails(course)&nbsp; &nbsp; If(course = 1)then&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;You have chosen the Undergraduate Program&quot;)&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If(course = 2)then&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;You have chosen the Graduate Diploma Program&quot;)&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If(course = 3)then&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;You have chosen the Masters by Coursework Program&quot;)&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If(course = 4)then&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;You have chosen the Masters by Research Program&quot;)&nbsp; &nbsp; End If&nbsp; &nbsp; End Sub Sub validateCourseInfo(uCode, cPoints, sem, mark)&nbsp; &nbsp; For counter = 0 to 29&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If((uCode(counter) &lt;&gt; &quot;&quot;)AND(cPoints(counter) &lt;&gt; &quot;&quot;)AND(sem(counter) &lt;&gt; &quot;&quot;)AND(mark(counter) &lt;&gt; &quot;&quot;))then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dim uC &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; uC = Len(uCode(counter)) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(uC &lt;&gt; 7)then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Please check row number &quot;&amp;(counter+1))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Unitcode should consist of 7 digits&lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(IsNumeric(cPoints(counter)))then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If((cPoints(counter) &lt;&gt; 20) AND (cPoints(counter) &lt;&gt; 15))then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Please check row number &quot;&amp;(counter+1))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Credit points only be either 15 or 20&lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Please check row number &quot;&amp;(counter+1))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Credit points only be either 15 or 20&lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; anyError = true&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dim smstr &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; smstr = Len(sem(counter)) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ((smstr &lt;&gt; 3)OR(Not IsNumeric(sem(counter))))then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Please check row number &quot;&amp;(counter+1))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Semester must be a 3 digits numeric&lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(IsNumeric(mark(counter)))then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(mark(counter) &gt; 100 OR 0 &gt;= mark(counter))then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Please check row number &quot;&amp;(counter+1))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Marks should be less than 100 or greater than 0&lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Please check row number &quot;&amp;(counter+1))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Marks should be less than 100 or greater than 0&lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; ElseIf ((uCode(counter) = &quot;&quot;) AND (cPoints(counter) = &quot;&quot;) AND (sem(counter) = &quot;&quot;) AND (mark(counter) = &quot;&quot;))then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Please check row number &quot;&amp;(counter+1))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot; -Incomplete row entries&lt;br /&gt;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; anyError = true &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; NextEnd Sub &nbsp; &nbsp; Sub findAndCalculateCourseDetails(cPoints, mark)&nbsp; &nbsp; &nbsp; &nbsp; For counter = 0 to 29&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(mark(counter)&lt;&gt;&quot;&quot;)then&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(mark(counter)&lt;=100 AND mark(counter)&gt;=0)then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; unitsAttempted = aunitsAttempted+1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalMarks = totalMarks + mark(counter)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(mark(counter)&gt;=50)then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; numberOfPassedUnits = numberOfPassedUnits+1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; totalCreditPoints = totalCreditPoints+cPoints(counter)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;&lt;br /&gt;Your Total Score is &quot;&amp;totalMarks)&nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;&lt;br /&gt;Your have obtained &quot;&amp;totalCreditPoints&amp;&quot; credit points&quot;)&nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;&lt;br /&gt;You have attempted &quot;&amp;unitsAttempted&amp;&quot; units&quot;)&nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;&lt;br /&gt;You have successlully completed &quot;&amp;numberOfPassedUnits&amp;&quot; units&quot;)End Sub Sub calculateRequiredCreditPoints (totalCreditPoints, course)&nbsp; &nbsp; dim pointsRequired&nbsp; &nbsp; If(course = 1)then &nbsp; &nbsp; &nbsp; &nbsp; pointsRequired = 360 - totalCreditPoints&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If(course = 2)then &nbsp; &nbsp; &nbsp; &nbsp; pointsRequired = 120 - totalCreditPoints&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(course = 3)then &nbsp; &nbsp; &nbsp; &nbsp; pointsRequired = 180 - totalCreditPoints&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; If(course = 4)then &nbsp; &nbsp; &nbsp; &nbsp; pointsRequired = 240 - totalCreditPoints&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(pointsRequired &gt; 0)then&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Another &quot;&amp;pointsRequired&amp;&quot; are required for you to complete the selected program&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Congratulations!! You have successfully completed the selected program&quot;)&nbsp; &nbsp; End If&nbsp; &nbsp; End Sub Sub calculateCourseAvg (totalMarks, unitsAttempted)&nbsp; &nbsp; If(unitsAttempted&gt;0)then&nbsp; &nbsp; &nbsp; &nbsp; dim average&nbsp; &nbsp; &nbsp; &nbsp; average = totalMarks/unitsAttempted &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If(average &lt;50)then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Average of the selcted program is: &quot;&amp;average&amp;&quot; : Fail&quot;)&nbsp; &nbsp; &nbsp; &nbsp; ElseIf(average &lt;60)then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Average of the selcted program is: &quot;&amp;average&amp;&quot; : Pass&quot;)&nbsp; &nbsp; &nbsp; &nbsp; ElseIf(average &lt;70)then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Average of the selcted program is: &quot;&amp;average&amp;&quot; : Credit&quot;)&nbsp; &nbsp; &nbsp; &nbsp; ElseIf(average &lt;80)then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Average of the selcted program is: &quot;&amp;average&amp;&quot; : Distinction&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Response.Write(&quot;&lt;br /&gt;Average of the selcted program is: &quot;&amp;average&amp;&quot; : Higher Distinction&quot;)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End Sub 'call validateStudentInfo(firstName, surName, studentId)call validateCourseInfo(unitCode, noOfCreditPoints, semester, marks)If(anyError = false)then&nbsp; &nbsp; &nbsp; &nbsp; call displayStudentDetails(firstName, surName, studentId)&nbsp; &nbsp; call displayCourseDetails(courseType)&nbsp; &nbsp; call findAndCalculateCourseDetails(noOfCreditPoints, marks)&nbsp; &nbsp; call calculateRequiredCreditPoints (totalCreditPoints, courseType)&nbsp; &nbsp; call calculateCourseAvg (totalMarks, unitsAttempted)End If%&gt;&lt;/body&gt;&lt;/html&gt;[/HTML]</blockquote>

[QUOTE="wjlfernando, post: 5330471, member: 44901"] pls help me find out this code's error... [HTML]<title>Course Progession</title> <style type="text/css">  </style> </head> <body> <% firstName = Request.Form("Firstname") surName = Request.Form("Surname") studentId = Request.Form("StudentID") courseType = Request.Form("CourseType") dim unitCode unitCode = array(Request.Form("UnitCode_1"), Request.Form("UnitCode_2"), Request.Form("UnitCode_3"), Request.Form("UnitCode_4"), Request.Form("UnitCode_5"), Request.Form("UnitCode_6"), Request.Form("UnitCode_7"), Request.Form("UnitCode_8"), Request.Form("UnitCode_9"), Request.Form("UnitCode_10"), Request.Form("UnitCode_11"), Request.Form("UnitCode_12"), Request.Form("UnitCode_13"), Request.Form("UnitCode_14"), Request.Form("UnitCode_15"), Request.Form("UnitCode_16"), Request.Form("UnitCode_17"), Request.Form("UnitCode_18"), Request.Form("UnitCode_19"), Request.Form("UnitCode_20"), Request.Form("UnitCode_21"), Request.Form("UnitCode_22"), Request.Form("UnitCode_23"), Request.Form("UnitCode_24"), Request.Form("UnitCode_25"), Request.Form("UnitCode_26"), Request.Form("UnitCode_27"), Request.Form("UnitCode_28"), Request.Form("UnitCode_29"), Request.Form("UnitCode_30")) dim noOfCreditPoints noOfCreditPoints = array(Request.Form("CP_1"), Request.Form("CP_2"), Request.Form("CP_3"), Request.Form("CP_4"), Request.Form("CP_5"), Request.Form("CP_6"), Request.Form("CP_7"), Request.Form("CP_8"), Request.Form("CP_9"), Request.Form("CP_10"), Request.Form("CP_11"), Request.Form("CP_12"), Request.Form("CP_13"), Request.Form("CP_14"), Request.Form("CP_15"), Request.Form("CP_16"), Request.Form("CP_17"), Request.Form("CP_18"), Request.Form("CP_19"), Request.Form("CP_20"), Request.Form("CP_21"), Request.Form("CP_22"), Request.Form("CP_23"), Request.Form("CP_24"), Request.Form("CP_25"), Request.Form("CP_26"), Request.Form("CP_27"), Request.Form("CP_28"), Request.Form("CP_29"), Request.Form("CP_30")) dim semester semester = array(Request.Form("YS_1"), Request.Form("YS_2"), Request.Form("YS_3"), Request.Form("YS_4"), Request.Form("YS_5"), Request.Form("YS_6"), Request.Form("YS_7"), Request.Form("YS_8"), Request.Form("YS_9"), Request.Form("YS_10"), Request.Form("YS_11"), Request.Form("YS_12"), Request.Form("YS_13"), Request.Form("YS_14"), Request.Form("YS_15"), Request.Form("YS_16"), Request.Form("YS_17"), Request.Form("YS_18"), Request.Form("YS_19"), Request.Form("YS_20"), Request.Form("YS_21"), Request.Form("YS_22"), Request.Form("YS_23"), Request.Form("YS_24"), Request.Form("YS_25"), Request.Form("YS_26"), Request.Form("YS_27"), Request.Form("YS_28"), Request.Form("YS_29"), Request.Form("YS_30")) dim marks marks = array(Request.Form("UM_1"), Request.Form("UM_2"), Request.Form("UM_3"), Request.Form("UM_4"), Request.Form("UM_5"), Request.Form("UM_6"), Request.Form("UM_7"), Request.Form("UM_8"), Request.Form("UM_9"), Request.Form("UM_10"), Request.Form("UM_11"), Request.Form("UM_12"), Request.Form("UM_13"), Request.Form("UM_14"), Request.Form("UM_15"), Request.Form("UM_16"), Request.Form("UM_17"), Request.Form("UM_18"), Request.Form("UM_19"), Request.Form("UM_20"), Request.Form("UM_21"), Request.Form("UM_22"), Request.Form("UM_23"), Request.Form("UM_24"), Request.Form("UM_25"), Request.Form("UM_26"), Request.Form("UM_27"), Request.Form("UM_28"), Request.Form("UM_29"), Request.Form("UM_30")) 'Getting the marks anyError = false unitsAttempted = 0 passedUnits = 0 totalCreditPoints = 0 Sub validateStudentInfo(fName, sName, stdId) If(fName = "")then Response.Write("Please enter your Firstname ") anyError = true End If If(sName = "")then Response.Write("Please enter your Surname ") anyError = true End If If(stdId = "")then Response.Write("Please enter your Student ID ") anyError = true End If If(stdId <> "")then dim sID sID = Len(stdId) If(sID<8 OR (NOT IsNumeric(stdId)))then Response.Write("Please re-enter the Student ID, Student ID must be a 8 digit numeric ") anyError = true End If End If End Sub Sub displayStudentDetails (fName, sName, stdId) Response.Write("Name : "&(sName)&" "&(fName)) Response.Write(" Student ID : "&(stdId)) End Sub Sub displayCourseDetails(course) If(course = 1)then Response.Write(" You have chosen the Undergraduate Program") End If If(course = 2)then Response.Write(" You have chosen the Graduate Diploma Program") End If If(course = 3)then Response.Write(" You have chosen the Masters by Coursework Program") End If If(course = 4)then Response.Write(" You have chosen the Masters by Research Program") End If End Sub Sub validateCourseInfo(uCode, cPoints, sem, mark) For counter = 0 to 29 If((uCode(counter) <> "")AND(cPoints(counter) <> "")AND(sem(counter) <> "")AND(mark(counter) <> ""))then dim uC uC = Len(uCode(counter)) If(uC <> 7)then Response.Write(" Please check row number "&(counter+1)) Response.Write(" Unitcode should consist of 7 digits ") anyError = true End If If(IsNumeric(cPoints(counter)))then If((cPoints(counter) <> 20) AND (cPoints(counter) <> 15))then Response.Write(" Please check row number "&(counter+1)) Response.Write(" Credit points only be either 15 or 20 ") anyError = true End If Else Response.Write(" Please check row number "&(counter+1)) Response.Write(" Credit points only be either 15 or 20 ") anyError = true End If dim smstr smstr = Len(sem(counter)) If ((smstr <> 3)OR(Not IsNumeric(sem(counter))))then Response.Write(" Please check row number "&(counter+1)) Response.Write(" Semester must be a 3 digits numeric ") anyError = true End If If(IsNumeric(mark(counter)))then If(mark(counter) > 100 OR 0 >= mark(counter))then Response.Write(" Please check row number "&(counter+1)) Response.Write(" Marks should be less than 100 or greater than 0 ") anyError = true End If Else Response.Write(" Please check row number "&(counter+1)) Response.Write(" Marks should be less than 100 or greater than 0 ") anyError = true End If ElseIf ((uCode(counter) = "") AND (cPoints(counter) = "") AND (sem(counter) = "") AND (mark(counter) = ""))then Else Response.Write(" Please check row number "&(counter+1)) Response.Write(" -Incomplete row entries ") anyError = true End If Next End Sub Sub findAndCalculateCourseDetails(cPoints, mark) For counter = 0 to 29 If(mark(counter)<>"")then If(mark(counter)<=100 AND mark(counter)>=0)then unitsAttempted = aunitsAttempted+1 totalMarks = totalMarks + mark(counter) If(mark(counter)>=50)then numberOfPassedUnits = numberOfPassedUnits+1 totalCreditPoints = totalCreditPoints+cPoints(counter) End If End If End If Next Response.Write(" Your Total Score is "&totalMarks) Response.Write(" Your have obtained "&totalCreditPoints&" credit points") Response.Write(" You have attempted "&unitsAttempted&" units") Response.Write(" You have successlully completed "&numberOfPassedUnits&" units") End Sub Sub calculateRequiredCreditPoints (totalCreditPoints, course) dim pointsRequired If(course = 1)then pointsRequired = 360 - totalCreditPoints End If If(course = 2)then pointsRequired = 120 - totalCreditPoints End If If(course = 3)then pointsRequired = 180 - totalCreditPoints End If If(course = 4)then pointsRequired = 240 - totalCreditPoints End If If(pointsRequired > 0)then Response.Write(" Another "&pointsRequired&" are required for you to complete the selected program") Else Response.Write(" Congratulations!! You have successfully completed the selected program") End If End Sub Sub calculateCourseAvg (totalMarks, unitsAttempted) If(unitsAttempted>0)then dim average average = totalMarks/unitsAttempted If(average <50)then Response.Write(" Average of the selcted program is: "&average&" : Fail") ElseIf(average <60)then Response.Write(" Average of the selcted program is: "&average&" : Pass") ElseIf(average <70)then Response.Write(" Average of the selcted program is: "&average&" : Credit") ElseIf(average <80)then Response.Write(" Average of the selcted program is: "&average&" : Distinction") Else Response.Write(" Average of the selcted program is: "&average&" : Higher Distinction") End If End If End Sub ' call validateStudentInfo(firstName, surName, studentId) call validateCourseInfo(unitCode, noOfCreditPoints, semester, marks) If(anyError = false)then call displayStudentDetails(firstName, surName, studentId) call displayCourseDetails(courseType) call findAndCalculateCourseDetails(noOfCreditPoints, marks) call calculateRequiredCreditPoints (totalCreditPoints, courseType) call calculateCourseAvg (totalMarks, unitsAttempted) End If %> </body> </html>[/HTML] [/QUOTE]

Verification

Dawasata paya keeyak thibeda?

Search

Latest ads

Reply to thread