Hello Paul and FengShui,
Here is what I want to do: On my form I have 10 combo box that users can select their option and on each option, I have 3 checkbox and a text box to key in a date. Once a date is filled on the text box(DateResolvedO), checkbox will be disabled. If user already selection the option from previous time, I want to display the combo box with the option that they selected as well as the all 3 checkbox with the check that they checked. Those combo boxes are visible to the user only if they click on a button to open it or if a option is selected previously.
For nOTH=0 to 9
If Not objRecData.EOF Then
If objRecData("EXO"

<> 0 Then valEXO = "CHECKED"
If objRecData("RNO"

<> 0 Then valRNO = "CHECKED"
If objRecData("SNO"

<> 0 Then valSNO = "CHECKED"
If objRecData("DateResolvedO"

<>"" then DisOthcheckbox = "Disabled"
If objRecData("DateResolvedO"

<>"" then DisResolvedDateO= "ReadOnly=True"
valDateResolvedO = objRecData("DateResolvedO"

& ""
valCommentsO = objRecData("CommentsO"

& ""
if valEXO="CHECKED" then
EXvalueO="ON"
else
EXvalueO=""
end if
if valRNO="CHECKED" then
RNvalueO="ON"
else
RNvalueO=""
end if
if valSNO="CHECKED" then
SNvalueO="ON"
else
SNvalueO=""
end if
else
'***** this is where I don't know how to do, I try many many way, either I am not
'***** the value set or getting error message. I want to do this--
'***** If record doesn't exist then check the checkbox value to see if it is checked.
'***** 'If checked set hidden field value to ON
'
End If
response.write "<td width='0%'><input type='checkbox' name='cbOTHEX" & nOTH & "' value='ON' " & valEXO & " " & DisOthcheckbox & " onClick='checkEXO(" & nOTH & "

'></td>"
response.write "<input type='hidden' name='cbOTHEXh" & nOTH & "' value='" & EXvalueO & "'></td>" & vbCrLf
response.write "<td width='0%'><input type='checkbox' name='cbOTHRN" & nOTH & "' value='ON' " & valRNO & " " & DisOthcheckbox & " onClick='checkRNO(" & nOTH & "

'></td>"
response.write "<input type='hidden' name='cbOTHRNh" & nOTH & "' value='" & RNvalueO & "'></td>" & vbCrLf
response.write "<td width='0%'><input type='checkbox' name='cbOTHSN" & nOTH & "' value='ON' " & valSNO & " " & DisOthcheckbox & " onClick='checkSNO(" & nOTH & "

'></td>"
response.write "<input type='hidden' name='cbOTHSNh" & nOTH & "' value='" & SNvalueO & "'></td>" & vbCrLf
response.write "<td width='141'><center><input type='text' name='txtOTHDateResolved" & nOTH & "' size='13' Value='" & valDateResolvedO & "'" & " " & DisResolvedDateO & ">"
response.write "<td width='0%'><input type='button' value='Desc/Steps' name='btnOTHDesc' onClick='ViewDetails2(" & nOTH & "

'></td>" & vbCrLf
response.write "</tr></table></div>" & vbCrLf
this is driving me nut. I have been trying and trying all day yesterday and today. If there is a better way to do this, please let me know. Thanks in advance.