Estrazione valori da un campo select case

[saber]

E' giusta questa sintassi?

  <%
      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  <%

[99eros9]

Mai vista, ma sarò ignorante io.
Mi sembri alla ricerca di un'identità, tra vb script e javascript

[diegoctn]

Fai così:
setti la variabile

var=Trim(rs("campo"))

Poi

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

Prova con " e ', non ricordo se utilizzare gli apici o le virgolette.

Ciao

[saber]

provo subito, grazie.

[saber]

iniziano i problemi
Microsoft VBScript compilation error '800a0400'

Expected statement

/public/mestiere.asp, line 114

<input type='radio' name='campo' value='restauro' checked>

[diegoctn]

Mi ero confuso, prova così:


select case var
Case "restauro"
<input type="radio" name="campo" value="restauro" checked>
<input type="radio" name="campo" value="edile" >
<input type="radio" name="campo" value="altro" >
Case "edile"
<input type='radio' name='campo' value='restauro' >
<input type='radio' name='campo' value='edile' checked>
<input type='radio' name='campo' value='altro' >
Case Else
<input type='radio' name='campo' value='restauro' >
<input type='radio' name='campo' value='edile' >
<input type='radio' name='campo' value='altro' checked>


End Select

[saber]

Niente , mi sempre questo errore
Microsoft VBScript compilation error '800a0400'

Expected statement

/public/M1attivita.asp, line 110

<input type='radio' name='campo' value='restauro' checked>
^
ecco il codice che ho usato

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


End Select  %>

mi blocca proprio alla prima riga della select

[saber]

manco cosi

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


End Select  %>

Microsoft VBScript compilation error '800a0400'

Expected statement

/public/mestiere.asp, line 113

<input type='radio' name='campo' value='restauro' checked>

[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  %>

[saber]

Solo che il codice ha la stessa lunghezza di quello che scriverei usando else if.
Non abbrevio un gazzo.