(asp) ricezione di dati usando select case

[shambler1]

<%
Select Case (campo)
Case :'trim(rs('campo'))='restauro'
<input type='radio' name='campo' value='restauro' checked>
Break
Case :Case :'trim(rs('campo'))='edile'
<input type='radio' name='campo' value='edile' checked>
Break
Case Else
<input type='radio' name='campo' value='altro' checked>
End Select <%

E' giusta questa sintassi?

[shambler1]

Non lo è ...quale sarebbe la sintassi giusta?
Ho provato
<%
Select Case (numero)
Case trim(rs("campo"))="restauro"
esponse.Write "<td width='30'>restauro</td><td width='30' ><input type='radio' name='campo' value='restauro' checked></td></tr><tr>"
Break
Case 1 'trim(rs("campo"))="edile"
<input Response.Write "<td width='30'>edile</td><td width='30' ><input type='radio' name='campo' value='edile' checked></td></tr><tr>"
Case Else
Response.Write "<td width='30'>altro</td><td width='30' ><input type='radio' name='campo' value='altro' checked></td></tr><tr>"
End Select %>

ma niente
siccome devo fare un campo con 10 opzioni, devo capire come usare select case o mi toccherà scrivere 100 mila righe di codice usando if then else

[shambler1]

<%
Dim var
var=Trim(rs("campo"))



select case var
Case "restauro"
<input type='radio' name='campo' value='restauro' checked>
Case "edile"
<input type='radio' name='campo' value='edile' checked>
Case Else
<input type='radio' name='campo' value='altro' checked>
End Select %>
Manco cosi...

[© Rocky]

@ shambler1

Hai provato anche così ?


<%
Dim var
var=Trim(rs("campo"))

Select Case var
Case 1 "restauro"
<input type='radio' name='campo' value='restauro' checked>
Case 2 "edile"
<input type='radio' name='campo' value='edile' checked>
Case Else
<input type='radio' name='campo' value='altro' checked>
End Select %>