Internet Explorer vs Internet Explorer
Hvad gør jeg galt her ???Jeg skal oprette/ligge til i en database.
<% @language=\"VBScript\" %>
<%
Option Explicit
Response.Buffer = True
Response.Expires = 0
Session(\"Sending\") = Request.Servervariables(\"HTTP_REFERER\")
If Session(\"KurveId\") = \"\" Then
If Request.Cookies(\"KurveId\")(\"Nummer\") = \"\" Then
Response.Cookies(\"KurveId\")(\"Nummer\") = Idnummer
Response.Cookies(\"KurveId\").Path = \"/\"
Response.Cookies(\"KurveId\").Expires = DateAdd(\"d\",7,now)
Session(\"KurveId\") = Idnummer
Else
Session(\"KurveId\") = Request.Cookies(\"KurveId\")(\"Nummer\")
Response.Cookies(\"KurveId\")(\"Nummer\") = Request.Cookies(\"KurveId\")(\"Nummer\")
Response.Cookies(\"KurveId\").Path = \"/\"
Response.Cookies(\"KurveId\").Expires = DateAdd(\"d\",7,now)
End If
End If
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
End If
Set KoebRS = Server.CreateObject(\"ADODB.RecordSet\")
KoebRS.Open \"SELECT * FROM Indhold WHERE Varenummer = \'\" & Request.Querystring(\"varenr\") & \"\' AND KurveId = \" & Session(\"KurveId\") & \"\", strConnection, 1,3
If KoebRS.EOF Then
KoebRS.AddNew
KoebRS(\"Varenummer\") = Request.Querystring(\"varenr\")
KoebRS(\"Antal\") = \"1\"
KoebRS(\"KurveId\") = Session(\"KurveId\")
KoebRS(\"DataTabel\") = Request.Querystring(\"recordset\")
KoebRS.Update
Else
KoebRS(\"Antal\") = KoebRS(\"Antal\") + \"1\"
KoebRS.Update
End If
KoebRS.Close
Set KoebRS = Nothing
KurveRS.Close
Set KurveRS = Nothing
Set strConnection = Nothing
Response.Redirect(\"\" & Session(\"Sending\") &\"\")
%>
Den virker i IE 5.5, men ikke i 5.0....
Jeg har siddet og tæsket min hjerne, eller det der er tilbage af den i de sidste 14 dage.
Regards
