Asp classic 将循环变量插入一个表列

Asp classic 将循环变量插入一个表列,asp-classic,Asp Classic,我有一个复选框表单,我正试图将我的循环值保存到一个变量中 这就是我循环的方式: 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.w

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

这就是我循环的方式:

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
Dim sql1
sql1=“插入电价计划(套餐)”
sql1=sql1&“值”
sql1=sql1&“(”&panamn&“)”
出错时继续下一步
执行sql1,重新生效
如果错误为0,则
响应写入(错误描述)
其他的
响应。写入“已保存”
如果结束

您必须将值添加到执行响应的变量中。在循环后写入并执行插入操作

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
'在此处插入