Recordset.AddNew
HejJeg sidder her og slås med et lille problem som er ved at blive temmeligt uoverskueligt da jeg ikke kan finde fejlen.
Jeg har et script som ser ud som følgende :
<% @language=\"VBScript\" %>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0
Dim KurveRS, KoebRS, strConnection
strConnection = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../access/lm-indkoebskurv.mdb\")
Set KurveRS = Server.CreateObject(\"ADODB.RecordSet\")
KurveRS.Open \"SELECT * FROM Kurve WHERE SessionId = \'\" & session(\"KurveId\") & \"\'\", strConnection, 1,3
If KurveRS.EOF Then
KurveRS.AddNew
KurveRS(\"SessionId\") = session(\"KurveId\")
KurveRS(\"Dato\") = now
KurveRS.Update
Set KoebRS = Server.CreateObject(\"ADODB.RecordSet\")
KoebRS.Open \"SELECT * FROM Indhold\", strConnection, 1,3
KoebRS.AddNew
KoebRS(\"Varenummer\") = Request.Form(\"varenr\")
KoebRS(\"Antal\") = Request.Form(\"antal\")
KoebRS(\"KurveId\") = session(\"KurveId\")
KoebRS(\"DataTabel\") = Request.Form(\"recordset\")
KoebRS.Update
Response.Redirect(\"../adgangskode.asp?id=2\")
Else
Set KoebRS = Server.CreateObject(\"ADODB.RecordSet\")
KoebRS.Open \"SELECT * FROM Indhold\", strConnection, 1,3
KoebRS.AddNew
KoebRS(\"Varenummer\") = Request.Form(\"varenr\")
KoebRS(\"Antal\") = Request.Form(\"antal\")
KoebRS(\"KurveId\") = session(\"KurveId\")
KoebRS(\"DataTabel\") = Request.Form(\"recordset\")
KoebRS.Update
Response.Redirect(\"../adgangskode.asp?id=1\")
End If
KoebRS.Close
KurveRS.Close
Set KoebRS = Nothing
Set KurveRS = Nothing
Set strConnection = Nothing
%>
I dette script undersøger den om jeg allerede har oprettet et SessionId, har jeg ikke det opretter den det. Dette virker ganske udemærket men når jeg så vil ligge flere ting sammen med dette SessionId fucker den med mig. Jeg har prøvet at gå over på en anden maskine og fået et andet SessionId men derr kan den heller ikke oprette flere SessionId eller andet.
Hvis jeg nulstiller/overskriver databasen med en tom database kan jeg oprette igen, men kun den ene gang ligesom før.
