Check box value is 'on' Why??

[shanuragu]

Hi

I have used the following code to display chk box & text box
using a while loop. This page is for editing a perticular Cd record.

<%
Dim CdId1,CdIdFlag
strsql3 = "SELECT ct.CdTitleId, ct.CdTitle, cp.CdTitleId, cp.CdPrice1 FROM CdTitles AS ct, CdPrice AS cp WHERE cp.CdTitleId=ct.CdTitleId And cp.CountryId="& cId
Set RsCdPrice=Con.Execute(strsql3)
While Not RsCdTitles.Eof
CdId1 = RsCdTitles("CdTitleId")
Do While Not RsCdPrice.Eof
if (CdId1=RsCdPrice("CdTitleId")) Then
CdIdFlag=1
Exit Do
Else
CdIdFlag=0
End if
RsCdPrice.MoveNext
Loop
RsCdPrice.MoveFirst
%>
<tr>
<td class="border_1" colspan="2">
<%
if (CdIdFlag=1) Then
%>
<input type="checkbox" id="cdtitle<%=RsCdTitles("CdTitleId")%>" name="cdtitle<%=RsCdTitles("CdTitleId")%>" checked value='<%=RsCdTitles("CdTitleId")%>')">&nbsp;&nbsp;<font class="lilahometextcolor"><%=RsCdTitles("CdTitle")%></font>
<%
Else
%>
<input type="checkbox" id="cdtitle<%=RsCdTitles("CdTitleId")%>" name="cdtitle<%=RsCdTitles("CdTitleId")%>" onclick="document.form.cdtitle<%=RsCdTitles("CdTitleId")%>.value='<%=RsCdTitles("CdTitleId")%>'">&nbsp;&nbsp;<font class="lilahometextcolor"><%=RsCdTitles("CdTitle")%></font>
<%
End if
%>
</td>
<td class="border_1" colspan="2" align="center">
<%
if (CdIdFlag=1) Then
%>
<input type="text" id="cdtitle<%=RsCdTitles("CdTitleId")%>" name="ucost<%=RsCdTitles("CdTitleId")%>" value='<%=RsCdPrice("CdPrice1")%>' size="10" >
<%
Else
%>
<input type="text" id="cdtitle<%=RsCdTitles("CdTitleId")%>" name="ucost<%=RsCdTitles("CdTitleId")%>" value='' size="10" >
<%
End if
%>
</td>
<%
RsCdTitles.MoveNext
if RsCdTitles.Eof Then
%>
<td colspan="2">&nbsp;</td>
<td colspan="2">&nbsp;</td>
<%
Else
%>
<td class="border_1" colspan="2">
<%
if (CdIdFlag=1) Then
%>
<input type="checkbox" id="cdtitle<%=RsCdTitles("CdTitleId")%>" name="cdtitle<%=RsCdTitles("CdTitleId")%>" checked value='<%=RsCdTitles("CdTitleId")%>'><font class="lilahometextcolor">&nbsp;&nbsp;<%=RsCdTitles("CdTitle")%></font>
<%
Else
%>
<input type="checkbox" id="cdtitle<%=RsCdTitles("CdTitleId")%>" name="cdtitle<%=RsCdTitles("CdTitleId")%>" onclick="document.form.cdtitle<%=RsCdTitles("CdTitleId")%>.value='<%=RsCdTitles("CdTitleId")%>'"><font class="lilahometextcolor">&nbsp;&nbsp;<%=RsCdTitles("CdTitle")%></font>
<%
End if
%>
</td>
<td class="border_1" colspan="2" align="center">
<%
if (CdIdFlag=1) Then
%>
<input type="text" id="cdtitle<%=RsCdTitles("CdTitleId")%>" name="ucost<%=RsCdTitles("CdTitleId")%>" value='<%=RsCdPrice("CdPrice1")%>' size="10" >
<%
Else
%>
<input type="text" id="cdtitle<%=RsCdTitles("CdTitleId")%>" name="ucost<%=RsCdTitles("CdTitleId")%>" value='' size="10" >
<%
End if
%>
</td>
<%
End if
%>
</tr>
<%
If Not RsCdTitles.Eof Then RsCdTitles.MoveNext
Wend
RsCdTitles.MoveFirst
%>
Cd's which are already in the list are checked others are not checked. When I check a unchecked check box & check the value it is always 'on' Why???. I have given a condition when it is clicked it should take the cdtitle id as its value in the onclick event of the checkbox.

Please help. Because of which I am not been able to add values in to the data base table.

shara