I am trying to check and see if a checkbox has been selected. The checkbox is an array, there are multiple checkbox' for each transaction line. The checkbox is out to the side and they select it if the transaction was a returned check. The following is my code:
dim nsfCheck(100)
dim nsfChecked
nsfCheck(i)=""
nsfCheck(i)=requestClick("nsfCheck" & i)
'Obtaining information from NSF checkbox
if nsfCheck(i)="1" then
nsfChecked = "Y"
strSQL = "INSERT INTO BadCheckReconciliation (FirstNoticeDate, NSFcheckFlag)" & vbcrlf
strSQL = strSQL & "VALUES SQLDate(FeeTransdt), nsfChecked" & vbcrlf
else
end if
dim strSQL2
'First select recordset for nsf check
if application("ODBC_Oracle") then
strSQL2 = "SELECT "
strSQL2 = strSQL2 & " J.JournalIdnt, J.BadCheckReconciliationIdnt"
strSQL2 = strSQL2 & " ,BCR.nsfCheckFlag"
strSQL2 = strSQL2 & " FROM Journal J, BadCheckReconciliation BCR"
strSQL2 = strSQL2 & " WHERE J.JournalIdnt = BCR.BadCheckReconciliationIdnt(+)"
else ' SQL 7.0
strSQL2 = "SELECT "
strSQL2 = strSQL2 & " J.JournalIdnt, J.BadCheckReconciliationIdnt" & vbcrlf
strSQL2 = strSQL2 & " ,BCR.nsfCheckFlag" & vbcrlf
strSQL2 = strSQL2 & " FROM Journal J, BadCheckReconciliation BCR" & vbcrlf
strSQL2 = strSQL2 & " WHERE J.JournalIdnt = BCR.BadCheckReconciliationIdnt(+)" & vbcrlf
end if
writecomment (strSQL2)
writeComment( strSQL )'This for a different select statement
set objRS = ODBC.Execute( strSQL, strSQL2 )
<td><%= buildCheckBox( "nsfCheck" & i , "", nsfCheck(i) ) %></td>
-----Nothing is happening when I run my code!!!-------------
Thanks for any assistance in the matter!!!!
dim nsfCheck(100)
dim nsfChecked
nsfCheck(i)=""
nsfCheck(i)=requestClick("nsfCheck" & i)
'Obtaining information from NSF checkbox
if nsfCheck(i)="1" then
nsfChecked = "Y"
strSQL = "INSERT INTO BadCheckReconciliation (FirstNoticeDate, NSFcheckFlag)" & vbcrlf
strSQL = strSQL & "VALUES SQLDate(FeeTransdt), nsfChecked" & vbcrlf
else
end if
dim strSQL2
'First select recordset for nsf check
if application("ODBC_Oracle") then
strSQL2 = "SELECT "
strSQL2 = strSQL2 & " J.JournalIdnt, J.BadCheckReconciliationIdnt"
strSQL2 = strSQL2 & " ,BCR.nsfCheckFlag"
strSQL2 = strSQL2 & " FROM Journal J, BadCheckReconciliation BCR"
strSQL2 = strSQL2 & " WHERE J.JournalIdnt = BCR.BadCheckReconciliationIdnt(+)"
else ' SQL 7.0
strSQL2 = "SELECT "
strSQL2 = strSQL2 & " J.JournalIdnt, J.BadCheckReconciliationIdnt" & vbcrlf
strSQL2 = strSQL2 & " ,BCR.nsfCheckFlag" & vbcrlf
strSQL2 = strSQL2 & " FROM Journal J, BadCheckReconciliation BCR" & vbcrlf
strSQL2 = strSQL2 & " WHERE J.JournalIdnt = BCR.BadCheckReconciliationIdnt(+)" & vbcrlf
end if
writecomment (strSQL2)
writeComment( strSQL )'This for a different select statement
set objRS = ODBC.Execute( strSQL, strSQL2 )
<td><%= buildCheckBox( "nsfCheck" & i , "", nsfCheck(i) ) %></td>
-----Nothing is happening when I run my code!!!-------------
Thanks for any assistance in the matter!!!!