[kryptoMatic]

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Left' at the line:
strInList = Left(strInList, len(strInList)-1)

any ideas?

Dim arrCuisines, strInList

arrCuisines = array("AFRICAN","CARIBBEAN","CHINESE","CONTINENTAL ",....")

For each cuisine In arrCuisines
If Request.Form(cuisine) = "true" Then
strInList = strInList & "'" & cuisine & "',"
End If
Next

strInList = Left(strInList, len(strInList)-1)

sql = "SELECT * FROM logbook WHERE cusine IN (" & strInList & ")"

[Stealth]

strInList = Left(strInList, len(strInList - 1))