insert i database fra select multiple

Jeg er ikke helt med på hvad ud mener, men du Requester din SELECT sådan her:

Request.Form("MultipleSelectnavn")

Hvis du så har valgt flere poster i din Multiple Selector så vil det automatis blive genereret som en komaseperaret variabel, så det vil sige du skal bruge IN() i SQL!

//>Rune

For Each Groupx In Request.Form("multifelt")
        Set oRs = oConn.Execute("INSERT INTO tabel (tabelnavn) VALUES (" & Groupx & ")")
Set oRs = Nothing
Next

Du kunne fx. updatere din database ved at sige:

strSQL = "UPDATE tblTabelnavn SET Kolonne1 = "Rune" WHERE (ID IN(" & Request.Form("MultipleSelectnavn") & "))"

//>Rune

jeg går i mit eksempel ud fra at du har fx en dropdown multiselect.

din tabel skal jo bare ha et felt id, som er fortløbende.

Jeg har prøvet sådan her:

For Each Groupx In Request.Form("kampagnemodtager")
set rsTilfoej = Server.createobject("adodb.recordset")
sql = "insert into T_Kampagne (Kampagne, Firmanavn, Dato) Values ('"
sql = sql & request.form("kampagnenavn") & "','"
sql = sql & request.form("kampagnemodtager") & "','"
sql = sql & request.form("kampagnedato") & "')"
rsTilfoej.open sql, conn
Set rsTilfoej = Nothing
Next

men det virker ikke helt. er der valgt 2 firmanavne bliver begge firmanavne langt ind 2.

For Each Groupx In Request.Form("kampagnemodtager")
set rsTilfoej = Server.createobject("adodb.recordset")
sql = "insert into T_Kampagne (Kampagne, Firmanavn, Dato) Values ('"
sql = sql & request.form("kampagnenavn") & "','"
sql = sql & request.form(Groupx) & "','"
sql = sql & request.form("kampagnedato") & "')"
rsTilfoej.open sql, conn
Set rsTilfoej = Nothing
Next

//>Rune

Okay, nu virker det næsten, på nær at firmanavnene ikke bliver langt ind i databasen. Felterne er tomme.

For Each Groupx In Request.Form("kampagnemodtager")
set rsTilfoej = Server.createobject("adodb.recordset")
sql = "insert into T_Kampagne (Kampagne, Firmanavn, Dato) Values ('"
sql = sql & request.form("kampagnenavn") & "','"
sql = sql & Groupx & "','"
sql = sql & request.form("kampagnedato") & "')"
rsTilfoej.open sql, conn
Set rsTilfoej = Nothing
Next

For Each Groupx In Request.Form("kampagnemodtager")
set rsTilfoej = Server.createobject("adodb.recordset")
sql = "insert into T_Kampagne (Kampagne, Firmanavn, Dato) Values ('"
sql = sql & request.form("kampagnenavn") & "','"
sql = sql & Groupx & "','"
sql = sql & request.form("kampagnedato") & "')"
Conn.Execute(sql)
Set rsTilfoej = Nothing
Next

//>Rune

Det virker. Jeg deler pointene mellem jer. Håber det er iorden ?

Tak for hjælpen.