插入循環變量到一個表列

Question

我有複選框的形式，我試圖將我的循環值保存到一個變量。

這是怎麼了循環：

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 

Answer 1

您必須將值添加到您正在執行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