Recupero valori da form

[wegawhite]

Buonasera.

Da un form recupero i seguenti valori:

4-CD47-Cet, 1-CD11-Lat, 3-CD6-Ace, 5-CD48-Sal, 2-C04-Tel
0, 0, 0, 0, 0
0, 0, 0, 0, 0
0, 0, 0, 0, 0

Come faccio a ricavare singoli valori, cioè:

4
CD47
Cet
1
CD11
Lat
3
CD6
Ace
5
CD48
Sal
2
C04
Tel
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

Grazie

[Roby_72]

Trasforma tramite la replace il - in ,
Poi usa la split ed otterrai un vettore i cui elementi sono quelli che cerchi.

ROby

[wegawhite]

Grazie, risolto!

[Roby_72]

In tutto il vocabolario italiano sei andato a scegliere come nome di variabile il nome di una funzione VbScript!

strComp non lo puoi usare (almeno per quello che vuoi tu).

Roby

[wegawhite]

Infatti ho cambiato il nome ed ha funzionato...

Scusa un'altra domanda se volessi inserire tutti quei valori in una tbl di un db con i seguenti campi: ID, IDrec, CodInt, Num, Quan?

Una insert into all'interno di un ciclo for... next? :master:

[Roby_72]

Si.
Il for/next è pacifico visto che hai un array da scorrere.
In base alla posizione dell'elemento sposti il valore in corrispondenza del nome campo appropriato.
Nel ciclo devi creare la query dinamicamente, solo alla fine dello stesso farai la eseguirai.

Roby

[wegawhite]

Ho provato, ma non riesco... questo è il codice:

Dim strCom
strCom = split(strComponente, ",")
strComponente0 = strCom(0)
strComponente1 = strCom(1)
strComponente2 = strCom(2)
strComponente3 = strCom(3)
strComponente4 = strCom(4)
strComponente5 = strCom(5)
strComponente6 = strCom(6)
strComponente7 = strCom(7)
strComponente8 = strCom(8)
strComponente9 = strCom(9)
strComponente10 = strCom(10)
strComponente11 = strCom(11)
strComponente12 = strCom(12)
strComponente13 = strCom(13)
strComponente14 = strCom(14)
strComponente15 = strCom(15)
strComponente16 = strCom(16)
strComponente17 = strCom(17)
strComponente18 = strCom(18)
strComponente19 = strCom(19)

for i=LBound(strCom) to UBound(strCom)
sql = "INSERT INTO Tabella (campoUno, CampoDue) values ("&AutoIncremento&", "&strComponente0&")"
response.write Sql & "
"
objCONN.execute (Sql)
next

Inserisce soltanto il primo dei valori... :master:

[Roby_72]

Occhio agli spazi:

strComponente0 = trim(strCom(0)) e così via...

Roby

[wegawhite]

Dim strCom
strCom = split(strComponente, ",")
strComponente0 = trim(strCom(0))
strComponente1 = trim(strCom(1))
strComponente2 = trim(strCom(2))
strComponente3 = trim(strCom(3))
strComponente4 = trim(strCom(4))
strComponente5 = trim(strCom(5))
strComponente6 = trim(strCom(6))
strComponente7 = trim(strCom(7))
strComponente8 = trim(strCom(8))
strComponente9 = trim(strCom(9))
strComponente10 = trim(strCom(10))
strComponente11 = trim(strCom(11))
strComponente12 = trim(strCom(12))
strComponente13 = trim(strCom(13))
strComponente14 = trim(strCom(14))
strComponente15 = trim(strCom(15))
strComponente16 = trim(strCom(16))
strComponente17 = trim(strCom(17))
strComponente18 = trim(strCom(18))
strComponente19 = trim(strCom(19))

for i = LBound(strCom) to UBound(strCom)
sql = "INSERT INTO Tabella (campoUno, campoDue) values ("&AutoIncremento&", "&strCom&")"
response.write Sql & "
"
objCONN.execute (Sql)
next

Restituisce:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente
/Processa.asp, line 89

Devo praticamente inserire:

4
CD47
Cet
1
CD11
Lat
3
CD6
Ace
5
CD48
Sal
2
C04
Tel

Nei vari campi della tabella del db... :master:

[Roby_72]

Se non blocchi lo script con

response.end

la query non la vedi.

Roby