Estrazione valori da un campo select case

[saber]

il codice giusto dovrebbe essere questo

dim var
    var=Trim(rs("campo"))
  select case var
Case "restauro"
Response.Write "<input type='radio' name='campo' value='restauro' checked>"
Response.Write "<input type='radio' name='campo' value='edile' >"
Response.Write "<input type='radio' name='campo' value='altro' >"
Case "edile"
Response.Write "<input type='radio' name='campo' value='restauro' >"
Response.Write "<input type='radio' name='campo' value='edile' checked>"
Response.Write "<input type='radio' name='campo' value='altro' >"
Case Else
Response.Write "<input type='radio' name='campo' value='restauro' >"
Response.Write "<input type='radio' name='campo' value='edile' >"
Response.Write "<input type='radio' name='campo' value='altro' checked>"


End Select  %>