Ok, ya es un avance importante...
Bueno, el combo, revisa como lo recibes haciendo:
Reponse.write request.form("combo")
Response.End()
Si lo recibes dividido por ",", entonces haz esto
arrVar = split(request.form("combo"), ",")
Entonces haz cun ciclo basado en arrVar para correr el update uno por uno, como:
largo = ubound(arrVar)
for i = 0 to largo
cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand = " & arrVar(i)
next
Asi seria lo mas facil basado con lo que ya tienes
Suerte!!