ASP

wjlfernando · Aug 11, 2009

pls help me find out this code's error...

HTML:

<title>Course Progession</title>
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</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 <br />")
		anyError = true 
	End If
		
	If(sName = "")then
		Response.Write("Please enter your Surname <br />")
		anyError = true 
	End If

	If(stdId = "")then
		Response.Write("Please enter your Student ID <br />")
		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 <br />")
			anyError = true 
		End If
	End If
End Sub 



Sub displayStudentDetails (fName, sName, stdId)
	Response.Write("Name : "&(sName)&" "&(fName))
	Response.Write("<br />Student ID : "&(stdId))
End Sub 



Sub displayCourseDetails(course)

	If(course = 1)then
		Response.Write("<br />You have chosen the Undergraduate Program")
	End If
	
	If(course = 2)then
		Response.Write("<br />You have chosen the Graduate Diploma Program")
	End If
	
	If(course = 3)then
		Response.Write("<br />You have chosen the Masters by Coursework Program")
	End If
	
	If(course = 4)then
		Response.Write("<br />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("<br />Please check row number "&(counter+1))
				Response.Write("<br />Unitcode should consist of 7 digits<br />")
				anyError = true 
			End If
				
			If(IsNumeric(cPoints(counter)))then	
				If((cPoints(counter) <> 20) AND (cPoints(counter) <> 15))then 
					Response.Write("<br />Please check row number "&(counter+1))
					Response.Write("<br />Credit points only be either 15 or 20<br />")
					anyError = true 
				End If
			Else
				Response.Write("<br />Please check row number "&(counter+1))
				Response.Write("<br />Credit points only be either 15 or 20<br />")	
				anyError = true	
			End If
			
			dim smstr 
			smstr = Len(sem(counter)) 
			If ((smstr <> 3)OR(Not IsNumeric(sem(counter))))then
				Response.Write("<br />Please check row number "&(counter+1))
				Response.Write("<br />Semester must be a 3 digits numeric<br />")
				anyError = true 
			End If
					
			If(IsNumeric(mark(counter)))then	
				If(mark(counter) > 100 OR 0 >= mark(counter))then 
					Response.Write("<br />Please check row number "&(counter+1))
					Response.Write("<br />Marks should be less than 100 or greater than 0<br />")
					anyError = true 
				End If
			Else
				Response.Write("<br />Please check row number "&(counter+1))
				Response.Write("<br />Marks should be less than 100 or greater than 0<br />")
				anyError = true 
			End If	

		
 		ElseIf ((uCode(counter) = "") AND (cPoints(counter) = "") AND (sem(counter) = "") AND (mark(counter) = ""))then
		
	
		Else
			Response.Write("<br />Please check row number "&(counter+1))
			Response.Write(" -Incomplete row entries<br />")
			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("<br /><br />Your Total Score is "&totalMarks)
	Response.Write("<br /><br />Your have obtained "&totalCreditPoints&" credit points")
	Response.Write("<br /><br />You have attempted "&unitsAttempted&" units")
	Response.Write("<br /><br />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("<br />Another "&pointsRequired&" are required for you to complete the selected program")
	
	Else
		Response.Write("<br />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("<br />Average of the selcted program is: "&average&" : Fail")
		ElseIf(average <60)then
			Response.Write("<br />Average of the selcted program is: "&average&" : Pass")
		ElseIf(average <70)then
			Response.Write("<br />Average of the selcted program is: "&average&" : Credit")
		ElseIf(average <80)then
			Response.Write("<br />Average of the selcted program is: "&average&" : Distinction")
		Else
			Response.Write("<br />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>

wjlfernando · Aug 11, 2009

this shows output like this

Please enter your Firstname
Please enter your Surname
Please enter your Student ID

thats wrong

somadasa · Aug 11, 2009

mokadda ban awula?

wjlfernando · Aug 11, 2009

somadasa said:
mokadda ban awula?

machang meke anith tika hari marks tika ekathuwena 1 awul

14+15

29 unata meke pennane 1415 kiyala

uocanu · Aug 11, 2009

erros 33k :S

uocanu · Aug 11, 2009

totalMarks = totalMarks + mark(counter)
totalMarks variable 1 difine karala ne ne...

wjlfernando · Aug 11, 2009

uocanu said:
totalMarks = totalMarks + mark(counter)
totalMarks variable 1 difine karala ne ne...

thanks machan........

machan meke api 50 aduwen ganna marks average baladdi ayinkaranne kohomada

eg: 40+50+90

total 140
avg 70

wage enna

Search

Latest ads

ASP

wjlfernando

Active member

wjlfernando

Active member

somadasa

Well-known member

wjlfernando

Active member

uocanu

Member

uocanu

Member

wjlfernando

Active member

Similar threads