Varför fungerar inte det här ??? AntalPoster blir 0 hur jag än gör...

Set Connect = Server.CreateObject("ADODB.Connection")
connect.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("db/shop.mdb")
Addera = "SELECT * FROM Korg WHERE AnvId="& Session.SessionId &" AND ProdId="& Produkt &""
Set RecSet = Connect.Execute(Addera)

AntalPoster=RecSet.RecordCount

If AntalPoster < 1 Then

' **** Fanns ej och har laggts till. ****

Response.Write"Produkten fanns INTE, läggs nu till..."
AdderaProd = "INSERT INTO Korg(Antal, ProdId, AnvId) Values(" & Request.querystring("Antal") & " , " & Request.querystring("ProdId") & " , " & Session.SessionId & ")"
Connect.Execute(AdderaProd)

Else

' **** Fanns och har uppdaterats. ****
Response.Write"Produkten fanns och uppdateras"
UppdatLager = "UPDATE Lager SET Antal = Antal + " & Request.querystring("Antal") & " Where ProdId = " & Request.querystring("ProdId") & " "


End If

Om du skriver ut RecordCountså kommer du antagligen sevärdet -1 om det finns poster och 0 om det inte finns poster. Om OLEDB providern inte känner till antalet poster men vet att det finns värden retunerar den -1. <br>
<br>
Använd istället:
<code>
Set Connect = Server.CreateObject("ADODB.Connection")
connect.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("db/shop.mdb")
Addera = "SELECT * FROM Korg WHERE AnvId=" & Session.SessionId & " AND ProdId=" & Produkt
Set RecSet = Connect.Execute(Addera)

If RecSet.EOF Then ' **** Fanns ej och har laggts till. ****
AdderaProd = "INSERT INTO Korg(Antal, ProdId, AnvId) Values(" & Request.querystring("Antal") & " , " & Request.querystring("ProdId") & " , " & Session.SessionId & ")"
Connect.Execute AdderaProd
Response.Write"Produkten fanns INTE, har nu laggts till..."
Else ' **** Fanns och har uppdaterats. ****
UppdatLager = "UPDATE Lager SET Antal = Antal + " & Request.querystring("Antal") & " WHERE ProdId = " & Request.querystring("ProdId") & " "
Connect.Execute AdderaProd
Response.Write "Produkten fanns och uppdateras"
End If
</code>

Man tackar nu fungerar det mycket bättre...


/Magnus