将循环变量插入一个 table 列

Insert looped variable to one table column

我有复选框表单,我正在尝试将我的循环值保存到一个变量中。

这就是我循环的方式:

For i = 1 to Request.Form("packages").count
Set packnamn = ObjConn.Execute ("Select * from services_package where id='"&
Request.Form("packages")(i) &"'")

panamn = packnamn("name") & "-"
Response.write panamn
Next

这将输出

Greece-English-Spanish-

现在我正在尝试将整个输出保存在我的 MySQL 中。但我只得到循环的最后一个值(西班牙语-),这是我的插入代码。

Dim sql1
sql1= "insert into tariff_plan(package)"
sql1=sql1 & " VALUES "
sql1=sql1 & "('" & panamn &"')"

on error resume next
ObjConn.Execute sql1,recaffected
if err<>0 then
    Response.Write(err.description)
else
    response.write "Saved"
End if

您必须将值添加到执行 response.write 的变量并在循环后执行插入。

panamn = ""
For i = 1 to Request.Form("packages").count
  Set packnamn = ObjConn.Execute ("Select * from services_package where id='"&
  Request.Form("packages")(i) &"'")

  panamn = panamn & packnamn("name") & "-"

Next
Response.write panamn

'Do the insert here