Kommaseparert string

string = \"ette,wert,et\"

myArr = split(string,\",\",-1)
for i = LBound(myArr) to UBound(myArr)
  strSQL = \"INSERT INTO table (kolonneNavn) VALUES (\'\"& myArr(i) &\"\')\"
  connection.Execute (strSQL)
next

først splittes din string, ved kommaerne, til en array;

myarray=split(streng,\",\")

dernæst;

<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")

for i=0 to ubound(myarray)
Conn.Execute(\"INSERT INTO tabel (feltnavn) VALUES (\'\" & myarray(i) & \"\'\")
next

smider lige et svar.
ref.: http://www.eksperten.dk/spm/118912

Det kan da gøres en lille smule nemere:

Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")

For each item in split(streng, \",\")
Conn.Execute(\"INSERT INTO tabel (feltnavn) VALUES (\'\" & item & \"\'\")
Next

Det er da ikke nemere det er præsis det samme.... og du har endda en fejl i SQL\'en.

Det bliver ikke letter bare fordi der er færer linier. Dit eks viser jo kun at det bliver svære at overskue med få linier.

Jeg synes det bliver mere der er mere overskueligt, når man gør det så enkelt, som muligt. Nu er der jo ikke så meget kode, så jeg vil da gerne give dig ret i at det i dette tilfælde bliver præsis det samme.

Du har også ret i at der er en fejl i SQL\'en, nemlig at der mangler en parantes, det skulle selvfølgelig være:
Conn.Execute(\"INSERT INTO tabel (feltnavn) VALUES (\'\" & item & \"\')\")