checkbox pigro

[danielix05]

ciao e auguri a tutti,
sto cercando di far passare i valori di un checkbox ad una seconda pagina.

il primo passo prevede

<%@LANGUAGE = VBScript%>
<form method="post" action="preventivo.asp">
<tr>
<td width="30">
<div align="center">
  <%
dim cn, rs, sql
set cn = Server.CreateObject("ADODB.Connection")
cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;"&_
											"Persist Security Info=False;"&_
											"Data Source="& Server.MapPath("database.mdb")
cn.open()
' rileva tutte le immagini presenti nel DB
sql = "SELECT * FROM tutto"
set rs = cn.execute(sql)
%>
  <%
do while not rs.eof
%>
  <input type="checkbox" name="contollo" value="<%=Rs.Fields("codice")%>">
.......eccetera........

il secondo passo invece

<%
dim strValori
dim ctInd
strValori=split(request.form("contollo"),",")
for ctInd = 0 to ubound(strValori)
response.write strValori(ctInd)&"
"
next
%>

il problema è che nella pagina preventivo.asp mi passa i valori ma come se fosse un unico valore. io vorrei incasellarlo in un campo di testo diverso per ogni valore.

quello che sto combinando lo vededete quihttp://www.viagginelsalento.it/prove/checkbox2.asp

qualche idea ???
grazie e ancora auguri, daniele.

[Lak3d]

non ho capito: a parte che da un errore di sintassi (manca una parentesi), ma usando un solo nome("controllo") per tutti i controlli del form e facendo un unico Request.Form ti restituisce tutti i valori dei checkbox in un sol colpo divisi da una virgola? :master: ... vedo che usi uno split così composto....

se nella seconda pagina aggiungi questo:

dim strValori, ctInd
strValori=request.form("contollo")
Response.Write (strValori)
Response.End
for ctInd = 0 to ubound(strValori)
   response.write strValori(ctInd)&"
"
next

cosa ti appare a video?
Mi pare strano che i valori (sempre se vengono passati tutti) siano divisi da una virgola...

[danielix05]

ciao,
intanto ho corretto il primo errore. effettivamente non mi dà i risultati separati da una virgola ma li mette con
. il problema resta che non li posso incasellare nelle varie caselle che trovi nella pagina preventivo.asp.

se sostituisco il mio con il tuo codice mi restituisce i due risultati separati da una virgola ma non mi fa apparire il resto del form che invece esiste.

[artcava]

Ciao danielix05,

Il suggerimento di Lak3d serviva solo per visualizzare i dati contenuti nella Request, il Response.End invece interrompe il flusso di costruzione della pagina, è per quello che non vedevi più il resto, ma lo scopo di Lak3d era proprio quello!

Veniamo invece al tuo problema...

Grazie al suggerimento di cui sopra sappiamo che l'array di valori comunque viene passato in modo corretto ora si tratta di utilizzarli...

Se ho capito bene tu vorresti inserire tali valori nelle textbox "1 Proposta", "2 Proposta" ecc.?

Se è così ti conviene costruire quelle textbox dinamicamente insieme alla lettura dei valori dell'array, cioè:

dim strValori, ctInd
strValori=request.form("contollo")

for ctInd = 0 to ubound(strValori)
   response.write "<input type=""text"" name=""prop" & ctInd & """ value=""" & strValori(ctInd) & """>
"
next

La gestione degli apici la lascio a te, comunque dovrebbe funzionare...

[danielix05]

MI DA QUEST'ERRORE dipende dagli apici? non credo no?

Microsoft VBScript runtime  error '800a000d'

Type mismatch: 'uBound'

/prove/preventivo2.asp, line 7

che faccio?

[artcava]

Ops, scusa

Devi trasformare il tutto in un array come già facevi tu prima...

strValori=split(request.form("contollo"),",")

invece di

strValori=request.form("contollo")

Buon proseguimento...

[danielix05]

ciao e BUON 2007,
ho effettuato le variazioni ma nn mi restituisce i valori in un textbox, anzi non li stampa nemmeno.
io riesco a visualizzarli (separati da una virgola se sono più di uno) in un'unica textbox tramite

<% =Request.form("controllo") %>

.

qualcosa ci sfugge?

a presto, daniele.

[artcava]

Il codice completo per preventivo.asp dovrebbe essere questo, questa volta l'ho testato e a me funziona...

<%
dim strValori
dim ctInd
strValori=split(request.form("contollo"),",")
for ctInd = 0 to ubound(strValori)
	response.write "<input type=""text"" name=""prop" & ctInd & """ value=""" & strValori(ctInd) & """>
"
next
%>

[danielix05]

ok c'era un errore di battitura è controllo non "contollo" errore mio.
in questi giorni pensavo che comunque, in questo modo, anche se siamo in una textbox non riusciamo a passare queste variabili ad una seconda pagina, in quanto la casella ha sempre lo stesso nome "prop".
io vorrei:

1. scelta strutture-->2. passaggio delle strutture a preventivo.asp-->3. compilare campi anagrafici e inserire i totali ad ogni struttura-->4.memorizzare i dati contenuti in preventivo.asp

punto 1. (ci siamo)
punto 2. (ci vorrebbe un counter nel name del textbox???)
punte 3-4. se si risolve il 2. non ci dovrebbero essere problemi

io stavo cercando di fare qualcosa partendo dal file checkbox2.asp inserendo 5 menu dinamici ognuno dei quali contiene tutte le risorse in db. ne scelgo una per ogni menu e le passo a preventivo.asp- in questo modo non dovrei avere problemi se non quello di reperire uno script adatto.

che pensi?

daniele.

[artcava]

Ciao danielix05,

non vorrei contraddirti, ma forse non ho capito io...

Nel punto 2 dici:

(ci vorrebbe un counter nel name del textbox???)

Ma guarda che c'è...
Riporto il contenuto della tua pagina:

<input type="text" name="prop0" value="01-ts-07">


<input type="text" name="prop1" value=" lm-01-07">

Se non è quello che ti aspetti, per favore rispiegamelo...