Recupero valori da form dinamico

[wegawhite]

Ciao.

Ho un problema nel recuperare i valori di un form dinamico.

Il form è questo:

strSQL = "SELECT * "
strSQL = strSQL & " FROM " 
strSQL = strSQL & " TBL " 
strSQL = strSQL & " ORDER " 
strSQL = strSQL & " BY DESCR ASC "

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL, objconn

If Not Rs.EOF Then

strID = 0

Do while NOT Rs.EOF
strID = strID + 1 

Response.write "<td><input type=""text"" name=""descr_<%=strID%>"" Value="& Rs("DESCR") &"></td>"

Rs.MoveNext
Loop
end if

Rs.Close
set Rs = nothing

objconn.Close
set objconn = nothing

%>

La variabile strID viene assegnata automaticamente e progressivamente a secondo dei campi "descr" estratti nel ciclo dalla query; quindi descr è variabile: da un minimo di uno ad un massimo di n.

Così recupero il valore di "descr" correttamente:

for each item in request.form
   response.write item & " = " & request.form(item) & "
"
next

Ma adesso vorrei inserire i dati provenienti dal form in una query, come faccio?

Grazie
WW

[wegawhite]

up

[Mems]

Se tutti i campi della tabella sono di tipo testo:

sql1 = "INSERT INTO TBL "
for each item in request.form
  sql2 = sql2 & replace(item,"descr_","") & ","
  sql3 = sql3 & "'" & request.form(item) & "',"
next
sql2 = left(sql2,len(sql2) - 1)
sql3 = left(sql3,len(sql3) - 1)

sql = sql1 & "(" & sql2 & ") VALUES(" & sql3 & ")"
response.write sql
conn.execute(sql)

[wegawhite]

Grazie, ma i campi sono misti: testo e numerici.

[Mems]

sql1 = "INSERT INTO TBL "
for each item in request.form
  sql2 = sql2 & replace(item,"descr_","") & ","
    if isNumeric(request.form(item)) then
      sql3 = sql3 & request.form(item) & "',"
    else
      sql3 = sql3 & "'" & request.form(item) & ","
    end if
next
sql2 = left(sql2,len(sql2) - 1)
sql3 = left(sql3,len(sql3) - 1)

sql = sql1 & "(" & sql2 & ") VALUES(" & sql3 & ")"
response.write sql
conn.execute(sql)

[wegawhite]

Grazie, ti stampo la query (mette un apice alla fine di ogni valore numerico):

INSERT INTO TBL 

(Totale_imponibile_1,Totale_imponibile_2,Totale_imponibile_3,descrizione_1) 

VALUES

(20.80',14.20',21.30','FABBRIYOG 30 GR 1 KG)

[Mems]

sql1 = "INSERT INTO TBL "
for each item in request.form
  sql2 = sql2 & replace(item,"descr_","") & ","
    if isNumeric(request.form(item)) then
      sql3 = sql3 & request.form(item) & ","
    else
      sql3 = sql3 & "'" & request.form(item) & "',"
    end if
next
sql2 = left(sql2,len(sql2) - 1)
sql3 = left(sql3,len(sql3) - 1)

sql = sql1 & "(" & sql2 & ") VALUES(" & sql3 & ")"
response.write sql
conn.execute(sql)

[wegawhite]

Scusa, ma la query richiama i campi:

Totale_imponibile_1,
Totale_imponibile_2,
Totale_imponibile_3,
Totale_imponibile_4,
descrizione_1,
descrizione_2,
descrizione_3,
descrizione_4

Che nella tbl non esistono... nella tbl esiste solo i campo descrizione e totale_imponibile...

[Mems]

Beh, allora fai le request.form mirate su qui campi, no?

[wegawhite]

Originariamente inviato da Mems
Beh, allora fai le request.form mirate su qui campi, no?

Non posso farlo perchè no so quanti campi mi arrivano dal form dinamico...