jag har en sida där jag listar alla artiklarna under sin respektive kategori. Under varje artikel har jag en Lägg till knapp som tar me sig prodID å antal till en sida som lägger in de i en tabell i databasen. Problemet är att varje gång jag lägger in nya artiklar så får jag prodID = 1...

här hämtar jag produkterna:

<code>
rsmain.Open "SHAPE {SELECT * FROM TBL_prodkat order by katid asc} APPEND (( SHAPE {SELECT * FROM TBL_prodsubkat} APPEND ({SELECT * FROM TBL_produkter} RELATE subkatID TO subkatID) AS rsprodukt) RELATE katID TO katID) AS rssubkategori ", cn
</code>

här visar jag produkterna och skickar värden till läggtill sidan:

<code>
<%

do until rsmain.EOF
response.write "<tr>"
response.write "<td class=""lila"" height=""13"" width=""100%"" colspan=""3""><font class=""black""><b>" & rsmain("KatNamn") & "</b></font></td>"

Set rssubkategori = rsMain("rssubkategori").Value

Do Until rsSubkategori.EOF

response.write "<tr>"
response.write "<td width=""60%"" height=""15"" colspan=""3""><font class=""bolder""><b>" & rssubkategori ("subkatnamn") & "</b></font></td>"
response.write "</tr>"
.
.
.


set rsprodukt = rssubkategori("rsprodukt").value
do until rsprodukt.eof
.
.
.

response.write "<td class=""normal"" width=""60%""><font class=""normal"">" & rsprodukt("prodID") & "</font></td>"
response.write "<td class=""normal"" width=""40%"" align=""right""><font class=""normal"">" & rsprodukt("Artistnamn") & "</font></td>"
response.write "</tr>"
response.write "<form name=""form1"" method=""post"" action=""saarvirecordsAddprod.asp"" class=""shop1"">"
.
.
.


if rsprodukt("subkatID")= 5 or rsprodukt("subkatID")= 4 then
response.write"<tr>"
response.write "<td class=""lila1"" width=""100%"" valign=""top"" nowrap align=""right"" colspan=""2""><font class=""light"">Pris: " & rsprodukt("Pris") & "Kr</font></td>"
response.write"</tr>"
response.write "<tr>"
response.write "<td class=""lila1"" width=""100%"" valign=""top"" nowrap colspan=""2""><font class=""light"">" & rsprodukt("Beskrivning") & "</font></td>"
response.write "</tr>"
else
response.write "<tr>"
response.write "<td class=""lila1"" valign=""top"" nowrap><font class=""light"">(" & rsprodukt("Ar") & "," & rsprodukt("Producent") &")</font></td>"
response.write "<td class=""lila1"" valign=""top"" nowrap align=""right""><font class=""light"">Pris: " & rsprodukt("Pris") & "Kr</font></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class=""lila1"" valign=""top"" nowrap colspan=""2""><font class=""light"">" & rsprodukt("Beskrivning") & "</font></td>"
response.write "</tr>"
response.write "<tr>"
end if
.
.
.

response.write "<td class=""lila1"" width=""5%"" valign=""bottom"" nowrap ><font class=""normal"">Antal:</font></td>"
response.write "<td class=""lila1"" width=""95%"" valign=""top"" nowrap align=""left"" ><input name=""antal"" type=""text"" class=""shop"" size=""2"" maxlength=""2""></td>"
.
.
.
response.Write "<input type=""hidden"" name=""produktID"" value=""" & rsprodukt("prodID") & """>"
response.Write "<input type=""hidden"" name=""produktNamn"" value=""" & rsprodukt("produktNamn") & """>"
response.Write "<input type=""hidden"" name=""pris"" value=""" & rsprodukt("pris") & """>"
response.write "<td height=""10"" class=""lila1"" width=""90%"" valign=""top"" nowrap align=""right"" ><font class=""normal""><input class=""shop1"" type=""Submit"" value=""Skicka"" name=""lägg till"" size=""10""></font></td>"
response.write "<td height=""10"" class=""lila1"" width=""10%"" valign=""top"" nowrap align=""left"" ><input class=""shop2"" onClick=""parent.location='saarvirecordskundkorg.asp'"" type=""Submit"" value=""Till kundkorg"" name=""kundkorg"" size=""10""></td>"
.
.
.
rsprodukt.movenext
loop
rssubkategori.movenext
loop
.
.
.
rsmain.movenext
loop
rsmain.close
cn.close
set rsmain = Nothing
set cn = Nothing
%>
</code>

här är sidan som gör insert satsen:

<code>
<%
const adOpenStatic=3, adLockOptimistic=3

Dim rs, cn, strSQL, page, rowcount, pagecounter
produktID = request.form("produktID")
anvID = session.SessionID
antal = request.form ("antal")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
call connopen
StrSQL = "Insert into tbl_korg (anvID,prodID,antal) values ('"& anvID &"','" & produktID &"','"& antal & "')"
cn.execute (strsql)
Response.Redirect "saarvirecordsshop.asp"
%>
</code>

är det nån som kan hjälpa mig att klura ut denna?

Tack i Förhand!!

Du har inte ProdID som autonumber?
Så att den sätter nya värden automatiskt, och räknar upp?
Vad har du för databas?

det är en mysql databas och jag har en tabell me alla produkterna och där prodID är en autoincrement fält, det är det jag tycker är konstigt.