Denne fejl fra denne kode ???

Hejsa

Hvorfor får jeg denne fejl:

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

kundeid = request.form("kundeid")
firmaid = request.form("firmaid")
ordrenr = request.form("ordrenr")
ugekode = request.form("ugekode")
pris = request.form("pris")
antal = request.form("antal")
vaskesymbol = request.form("vaskesymbol")
kvalitet = request.form("kvalitet")
levering = request.form("levering")
navn = request.form("navn")
Etiket = request.form("Etiket")
DESSIN1 = request.form("DESSIN1")
STR1 = request.form("STR1")
ANTAL1 = request.form("ANTAL1")
STREGKODER1 = request.form("STREGKODER1")

SQL1 = "SELECT * FROM Etiket where GruppeId = " & request("Id") & " Order by Nummer"
set RS1 = conn.execute(sql1)
DO WHILE NOT rs1.EOF
nummer = rs1("Nummer")
Xnummer = request.form("" & nummer & "")

Vis = Vis & "<table border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#000000' width='255' id='AutoNumber3'><tr><td width='30'>&nbsp;" & nummer & "</td><td width='200'>&nbsp;" & rs1("Etiket") & "</td><td width='30'><center>" & Xnummer & "</center></td></tr></table><p>"

rs1.MoveNext
LOOP
RS1.Close

SQLstmt = "INSERT INTO Bestilling (kundeid, firmaid, ordrenr, ugekode, pris, antal, vaskesymbol, kvalitet, Levering, Navn, Etiket, DESSIN1, STR1, ANTAL1, STREGKODER1)"
SQLstmt = SQLstmt & "VALUES ('" & kundeid & "','" & firmaid & "','" & ordrenr & "','" & ugekode & "','" & pris & "','" & antal & "','" & vaskesymbol & "','" & kvalitet & "','" & levering & "','" & Navn & "','" & Vis & "','" & DESSIN1 & "','" & STR1 & "','" & ANTAL1 & "','" & STREGKODER1 & "')"

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("bestil.asp")

Af denne kode:

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

kundeid = request.form("kundeid")
firmaid = request.form("firmaid")
ordrenr = request.form("ordrenr")
ugekode = request.form("ugekode")
pris = request.form("pris")
antal = request.form("antal")
vaskesymbol = request.form("vaskesymbol")
kvalitet = request.form("kvalitet")
levering = request.form("levering")
navn = request.form("navn")
Etiket = request.form("Etiket")
DESSIN1 = request.form("DESSIN1")
STR1 = request.form("STR1")
ANTAL1 = request.form("ANTAL1")
STREGKODER1 = request.form("STREGKODER1")

SQL1 = "SELECT * FROM Etiket where GruppeId = " & request("Id") & " Order by Nummer"
set RS1 = conn.execute(sql1)
DO WHILE NOT rs1.EOF
nummer = rs1("Nummer")
Xnummer = request.form("" & nummer & "")

Vis = Vis & "<table border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#000000' width='255' id='AutoNumber3'><tr><td width='30'>&nbsp;" & nummer & "</td><td width='200'>&nbsp;" & rs1("Etiket") & "</td><td width='30'><center>" & Xnummer & "</center></td></tr></table><p>"

rs1.MoveNext
LOOP
RS1.Close

SQLstmt = "INSERT INTO Bestilling (kundeid, firmaid, ordrenr, ugekode, pris, antal, vaskesymbol, kvalitet, Levering, Navn, Etiket, DESSIN1, STR1, ANTAL1, STREGKODER1)"
SQLstmt = SQLstmt & "VALUES ('" & kundeid & "','" & firmaid & "','" & ordrenr & "','" & ugekode & "','" & pris & "','" & antal & "','" & vaskesymbol & "','" & kvalitet & "','" & levering & "','" & Navn & "','" & Vis & "','" & DESSIN1 & "','" & STR1 & "','" & ANTAL1 & "','" & STREGKODER1 & "')"

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect ("bestil.asp")