3 variabili non sempre valorizzate

[semolino]

Ho un form dal quale recupero tre campi:

strColore1 = Form("col1")
strColore2 = Form("col2")
strColore3 = Form("col3")

Ho reso strColore1 obbligatorio ma gli altri due possono non essere inseriti.

Ora quando vado ad aggiungere la riga nel db devo scrivere i 3 valori all'interno di un solo campo Colore.

objTapRs("Colore") = strColore1 & ...

Posso creare una serie di If per gli altri due valori?
Il risultato che voglio ottenere è che nel campo Colore il valore deve risultare cosi:
rosso,verde,giallo

Nel caso i valori siano solo due:
rosso,verde
Nel caso sia uno solo:
rosso

N.B. la virgola esiste se esiste il secondo valore.

[Roby_72]

strColore1 = Form("col1")
strColore2 = Form("col2")
strColore3 = Form("col3")

strColore = ""
strColore = strColore1
if len(strColore2) > 0 then
strColore = strColore &","& strColore2
end if
if len(strColore3) > 0 then
strColore = strColore &","& strColore3
end if

Nel db metti direttamente la nuova variabile strColore

Roby

[semolino]

Grazie Roby,ora i miei dati sono salvati all'interno di Colore cosi:
rosso,giallo,verde
oppure
rosso
oppure
rosso,verde
Quando estraggo il campo Colore, vorrei dividere la stringa:
colori = Split(objRs("Colore"), ",")

Ma posso stampare a video il/i colore/i a mio piacimento?

Immagina un testo scritto...
xxx xxxxx xxxxx 'colore1'; xx xxxxx xxxx 'colore2'...

Vorrei poter stampare a video i vari colori in punti diversi. Come posso valorizzarli?

[Roby_72]

Ma l'hai provato?
Non ho capito la tua osservazione.

Roby

[semolino]

Scusa roby, si l'ho provato e funziona bene, guarda su ho modificato il post.

[Roby_72]

In colori hai un array

colori = Split(objRs("Colore"), ",")

Con elem hai il numero di elementi di cui si compone:

elem = UBound(colori)

in

elem(0) 'hai il primo
elem(1) 'hai il secondo, se c'è!
elem(2) 'hai il terzo, se c'è

Roby

[semolino]

Mi da tipo non corrispondete quando stampo
<%= elem(0)%>

Dato che per questo errore non l'ho ancora potuto verificare
nel caso in cui elem(1) e/o elem(2) non ci fossero rimangono vuoti o danno errore?

[Roby_72]

Attenzione!
Hai un array solo se ci sono almeno due elementi altrimento no.

colori = Split(objRs("Colore"), ",")
if IsArray(colori) then
elem = UBound(colori)
...
...
else
unico = objRS("Colore")
end if

Roby

[semolino]

Ora lo sto testando cosi

strColori = Split(objRs("Colore"), ",")
If IsArray(strColori) Then
elem = UBound(strColori)
elem(0)
elem(1)
elem(2)
Else
unico = objRs("Colore")
End If

come mi hai indicato e mi da sempre lo stesso errore in
elem(0)

Il record che sto aprendo ha ineserito in Colore
giallo,verde :master:

[Roby_72]

Ok ma le variabili??

col1 = elem(0)
col1 = elem(1)
col1 = elem(2)

Roby