Do While Not chkRS.EOF
If chkRS("IDCard") = '1' Then
Radio = "<input type='checkbox' name='chk23' value='checkbox' disabled='chk23'>"
Else
Radio = "<input type='checkbox' name='chk23' value='checkbox'>"
End If
chkRS.MoveNext
Loop

Så här ser koden ut på ett ställe där jag behöver kontrollera om värdet i ett recordset stämmer med värdet 1. Om så är fallet skall en checkbox bli "disabled".

Jag loopar genom rs och försöker i varje loop kontrollera värdet med en enkel IF sats. Detta får jag tydligen inte göra!? Automations fel som inte stöds i VBScript står det i error meddelandet. Finns det andra sätt att för att nå mitt resultat?

Tacksam för hjälp.

Peter

<code>
Do While Not chkRS.EOF
If clng(chkRS("IDCard")) = 1 Then
Radio = "<input type='checkbox' name='chk23' value='checkbox' disabled='chk23'>"
Else
Radio = "<input type='checkbox' name='chk23' value='checkbox'>"
End If
chkRS.MoveNext
Loop
</code>

Tack Lars!
Supertack... en lättnadens suck har fallit över mitt tangentbord tack vara dig. Bug och bock. :)