mi aiutate con uno split?

[yro]

Ciao avrei bisogno di alcuni suggerimenti su come splittare sta cosa:

<%codice = Left((rs_cards.Fields.Item("pwd").Value),4)%>
<input type="checkbox" name="codicestore" value="<%=(codice)%>">

prelevo la checkbox così:

strStore = request.Form("codicestore")

e mi se li stampo a video mi escono così: 2000, 2001, 2003 ecc.

ora io devo immettere in un db tanti record quanti i numeri che prelevo e scrivere in un campo il numero e una serie di altre informazioni!

come posso fare??
grazie!!

[Roby_72]

<%
strStore = request.Form("codicestore")
arr_strStore = split(strStore, ",")
for xx = 0 to UBound(arr_strStore)
strSQL="INSERT INTO tabella (nomecampo,...,...) VALUES ("& trim(arr_strStore(xx)) &",...,...)"
conn.Execute(strSQL)
Next
%>

Roby

[yro]

adesso provo!! grazie!!!

[yro]

puo andare cosi??

Dim rs_01
Set rs_01= Server.CreateObject("ADODB.Recordset")
rs_01.ActiveConnection = MM_conn_blocconote_STRING 
rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data) VALUES ("& trim(arr_strStore(xx)),strnNome,strTitolo,strMessaggio,strData)
rs_01.CursorType = 0
rs_01.CursorLocation = 3
rs_01.LockType = 3
rs_01.Open()
MM_conn_blocconote_STRING.Execute
Next

perche non mi funziona...!

[Roby_72]

Non si costriuisce così la query.
I campi dopo il VALUES vanno tra virgolette se sono campi numerici (come nel mio esempio) altrimenti anche tra apici se sono campi di tipo testo.

Roby

[yro]

cosi intendi?? ma sono variabili!

dim strNome, strTitolo, strMessaggio, strData, strStore

strNome = request.Form("nome")
strTitolo = request.Form("titolo")
strMessaggio = request.Form("messaggio")
strStore = request.Form("idstore")
strData =  Date()

arr_strStore = split(strStore, ",")
for xx = 0 to UBound(arr_strStore)

Dim rs_01
Set rs_01= Server.CreateObject("ADODB.Recordset")
rs_01.ActiveConnection = MM_conn_blocconote_STRING 
rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data) VALUES ("& trim(arr_strStore(xx))&",strnNome,strTitolo,strMessaggio,strData)"
rs_01.CursorType = 0
rs_01.CursorLocation = 3
rs_01.LockType = 3
rs_01.Open()
MM_conn_blocconote_STRING.Execute
Next

[Roby_72]

Qui dentro...

rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data) VALUES ("& trim(arr_strStore(xx))&" ,strnNome,strTitolo,strMessaggio,strData
)"

non le hai messe come variabili. Non noti una certa differenza tra il modo con cui ho scritto la mia variabile e le tue?

Roby

[yro]

rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data) VALUES ("& trim(arr_strStore(xx)) &" ,(strnNome),(strTitolo),(strMessaggio),(strData))"

ma mi da errore!

[yro]

rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data) VALUES ("& trim(arr_strStore(xx))&","&strnNome&","&strTitolo&","&strMessaggio&","&strData&")"

[superesse]

Originariamente inviato da yro

rs_01.Source ="INSERT INTO tblblocco (store,autore,titolo,testo,data) VALUES ("& trim(arr_strStore(xx))&","&strnNome&","&strTitolo&","&strMessaggio&","&strData&")"

INSERT INTO tblblocco (store,autore,titolo,testo,data)
 VALUES 
('"& trim(arr_strStore(xx))& "','"&strnNome&"','"&strTitolo&"','"&strMessaggio&"','"&strData&"')"

tra parentesi dovresti fare la replace per il controllo degli apici...