4
Hi. I have an asp page which is connects to an access database from which it loops through a recordset to create a checkbox for each record. I have a script that's suppose to calculate a total value (adds a value when the checkbox is checked and subtracts the value when the checkbox is unchecked) but I keep getting an Error:
Line: 16
Char: 2
Error: Object doesn't support this property or method 'frmEnroll.chkEnroll'
Code: 0
URL: http://www.andreasdancestudio.net/mem_registration.asp
<HTML>
<HEAD>
<LINK REL=StyleSheet HREF="style.css" TYPE="text/css" MEDIA=screen>
<script language="vbscript">
<!--
Public intTotal
Sub Reload_Menu()
parent.frames("menu").location = "menu.asp?page=enrollment&type=mem"
End Sub
Function CalculateTotal(Amount,OptionID)
if frmEnroll.chkEnroll(OptionID).checked then
intTotal = intTotal + Amount
else
intTotal = intTotal - Amount
end if
CalculateTotal = intTotal
End Function
Function DisplayTotal()
DisplayTotal = intTotal
End Function
Sub TextTotal()
frmTotal.txtTotal.value = DisplayTotal()
End Sub
-->
</script>
</HEAD>
<BODY>
<BODY onLoad="Reload_Menu">
<H3 align="center">This page is currently under construction</H3>
<B>
<% if request.cookies("user") = "admin" or request.cookies("user") = "wegga" then %>
<TABLE align="center" border="2">
<TR>
<TD bgcolor="black" align="center" width="110"><a class="off" href="enrollment.asp"><font size="2"><B>Enrollments</B></font></a></TD>
<TD bgcolor="black" align="center" width="110"><a class="off" href="competitions.asp"><font size="2"><B>Competitions</B></font></a></TD>
<TD bgcolor="black" align="center" width="110"><a class="off" href="exams.asp"><font size="2"><B>Exams</B></font></a></TD>
<TD bgcolor="black" align="center" width="110"><a class="off" href="enteruser.asp"><font size="2"><B>Users</B></font></a></TD>
</TR>
</TABLE>
<% end if %>
</B>
<%
'declare variables
Dim objConn, objRec, objRec2
Dim strConnect, sDSNDir
Dim fldField
Dim intStudent
Dim strSQL, strSQL2
'assign values to variables
dsn_name = "access_ads.dsn"
fieldname = "ads.mdb"
'connection information
sDSNDir = Server.MapPath("_dsn")
strConnect = "filedsn=" & sDSNDir & "\" & dsn_name
'set connection and recordset objects
Set objConn = Server.CreateObject("ADODB.Connection")
'open the connection
objConn.Open strConnect
%>
<%
Set objRec = server.CreateObject("ADODB.Recordset")
Set objRec2 = server.CreateObject("ADODB.Recordset")
' get students linked to account
strSQL = "SELECT StudentID, FirstName "
strSQL = strSQL & "FROM Students "
strSQL = strSQL & "WHERE Account ='" & request.Cookies("user") & "';"
'open the recordset for the Students table
objRec.Open strSQL, objConn, 0,1,1
%>
<% while not objRec.EOF %>
<H2><%=objRec("FirstName")%></H2>
<%
' get registered routines
strSQL2 = "SELECT Routines.Routine, Branches.Branch "
strSQL2 = strSQL2 & "FROM Students INNER JOIN ((Branches INNER JOIN Routines ON Branches.BranchID = Routines.Branch) "
strSQL2 = strSQL2 & "INNER JOIN Enrollments ON Routines.RoutineID = Enrollments.Routine) ON Students.StudentID = Enrollments.Student "
strSQL2 = strSQL2 & "WHERE Students.StudentID = " & objRec("StudentID") & ";"
objRec2.Open strSQL2, objConn, 0,1,1
%>
<TABLE align="center" cellspacing="20">
<TR>
<TD valign="top">
<TABLE align="center" border="2" cellpadding="5">
<TR>
<TD colspan="2" bgcolor="#FF0000" align="center"><font color="#FFFFFF"><B>Current Enrollment</B></font></TD>
</TR>
<TR>
<TD class="tbitem">Routine</TD>
<TD class="tbitem">Branch</TD>
</TR>
<% while not objRec2.EOF %>
<TR>
<TD><%=objRec2("Routine")%></TD>
<TD><%=objRec2("Branch")%></TD>
</TR>
<% objRec2.movenext %>
<% wend %>
</TABLE>
<% objRec2.close %>
</TD>
<%
Set objRec2 = server.CreateObject("ADODB.Recordset")
' find routine options for each student in this account
strSQL2 = "SELECT RoutineOptions.RoutineOptionID, RoutineOptions.Routine, "
strSQL2 = strSQL2 & "OptionTypes.Type, OptionTypes.Amount, "
strSQL2 = strSQL2 & "RegistrationOptions.Enroll, "
strSQL2 = strSQL2 & "Branches.Branch "
strSQL2 = strSQL2 & "FROM Branches INNER JOIN ((OptionTypes INNER JOIN RoutineOptions ON OptionTypes.OptionTypeID = "
strSQL2 = strSQL2 & "RoutineOptions.Type) INNER JOIN RegistrationOptions ON RoutineOptions.RoutineOptionID = "
strSQL2 = strSQL2 & "RegistrationOptions.Routine) ON Branches.BranchID = RoutineOptions.Branch "
strSQL2 = strSQL2 & "WHERE RegistrationOptions.Student=" & objRec("StudentID")
strSQL2 = strSQL2 & " ORDER BY OptionTypes.Type;"
objRec2.Open strSQL2, objConn, 0,1,1
%>
<TD valign="top">
<TABLE align="center" cellpadding="5" border="2">
<TR>
<TD colspan="5" bgcolor="#FF0000" align="center"><font color="#FFFFFF"><B>New Season Enrollment</B></font></TD>
</TR>
<TR>
<TD class="tbitem">Routine</TD>
<TD class="tbitem">Branch</TD>
<TD class="tbitem">Type</TD>
<TD class="tbitem">Amount</TD>
<TD class="tbitem">Enroll</TD>
</TR>
<form name="frmEnroll">
<% while not objRec2.EOF %>
<TR>
<TD><%=objRec2("Routine")%></TD>
<TD><%=objRec2("Branch")%></TD>
<TD><%=objRec2("Type")%></TD>
<TD align="right"><%=formatcurrency(objRec2("Amount")) %></TD>
<TD align="center">
<input type="checkbox" value="<%=objRec2("Amount")%>" name="chkEnroll(<%=objRec2("RoutineOptionID")%>)" onClick="Call CalculateTotal(<%=objRec2("Amount")%>,<%=objRec2(" RoutineOptionID")%>)">
</TD>
</TR>
<% objRec2.movenext %>
<% wend %>
</form>
</TABLE>
<% objRec2.close %>
</TD>
</TR>
</TABLE>
<% objRec.movenext %>
<% wend %>
<form name="frmTotal">
<input type="text" name="txtTotal">
<input type="button" name="btnCalculate" value="Calculate" onClick="TextTotal"
</form>
<%
Set objRec = nothing
Set objRec2 = nothing
Set objConn = nothing
%>
</BODY>
</HTML>
Thank you in advance
