NEWBIE - Interact with checkbox
I have tried to read from my checkbox using request.form, but I don't believe I have done it right. Also, do I need to set my checkbox value to false or 0 when updating SQL server?
'declare variable
dim nsfCheck
'Initialize variable
nsfCheck = False
'=======================
' nsfCheck Flag Function
'=======================
Function nsfCheckFlagChecked(nsfCheck)
If (nsfCheck = True) Then
nsfCheckFlagChecked = True
Else
nsfCheckFlagChecked = False
End If
End Function
If (nsfCheck = true) Then
If application("ODBC_Oracle") Then
strSQL = strSQL & "UPDATE BadCheckReconciliation (FirstNoticeDate, NSFcheckFlag), " & vbcrlf
strSQL = strSQL & " (SET BadCheckReconciliation_seq.nextval, SQLDate( FeeTransdt ),nsfCheck) " & vbcr
strSQL = strSQL & "UPDATE Journal ( BadCheckReconciliationIdnt) " & vbcrlf
strSQL = strSQL & " FROM BadCheckReconciliation" & vbcrlf
else 'SQL 7.0
strSQL = strSQL & "UPDATE BadCheckReconciliation BCR" & vbcrlf
strSQL = strSQL & "SET FirstNoticeDate = FeeTransdt,NSFcheckFlag = nsfCheck" & vbcrlf
strSQL = strSQL & "UPDATE Journal J" & vbcrlf
strSQL = strSQL & "SET J.BadCheckReconciliationIdnt = BCR.BadCheckReconciliationIdnt" & vbcrlf
StrSQL = strSQL & " FROM BadCheckReconciliation BCR" & vbcrlf
End If
End If
<INPUT TYPE=CHECKBOX NAME=nsfCheck VALUE=False><BR>
Ty
|