<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("shop.mdb")
%>
<html>
<head>
<title>Black</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body class="orange">
<%
If Request.Form("PID") <> "" Then
PID =trim(Request.Form("PID"))
Set rs = Connection.Execute("SELECT PID, namn, pris FROM produkter WHERE PID = " & PID & "")
response.kaka(PID)("namn") = rs("namn")
response.kaka(PID)("pris") = rs("pris")
response.kaka(PID)("antal") = trim(Request.Form("antal"))
For each item in Response.kaka
Next
If Response.kaka.Hashkeys Then
For each objitem in Reaponse.kaka(item)
namn = Request.kaka(item)("namn")
pris = Request.kaka(item)("pris")
antal = Request.kaka(item)("antal")
Response.Write antal &" st "& namn &" för "& pris &" /st."
Next
End If
Else
Response.Write "Din kundvagn är tom."
End If
%>
</body>
</html>
<%
Connection.Close
Set Connection = Nothing
%>
...men när jag ska lägga till en produkt i kundvagnen så får jag felmeddelandet
Körningsfel i Microsoft VBScript (0x800A01B6)
Objektet stöder inte egenskapen eller metoden.: 'Hashkeys'
/test/mystore/kundvagn.asp, line 26
Hmmm...
Dessvärre verkar det inte vilja fungera Mikul...
Nu när jag har skrivit Response.Kaka(item).Haskeys så får jag felmeddelandet
Cookies-objekt, ASP 0102 (0x80004005)
Funktionen förväntar sig en sträng som inmatning.
/test/mystore/kundvagn.asp, line 26
kundvagn.asp(rad 26 är "blåad")
<%
If Request.Form("PID") <> "" Then
PID = Trim(Request.Form("PID"))
Set rs = Connection.Execute("SELECT PID, namn, pris FROM produkter WHERE PID = " & PID & "")
response.kaka(PID)("namn") = rs("namn")
response.kaka(PID)("pris") = rs("pris")
response.kaka(PID)("antal") = trim(Request.Form("antal"))
For each item in Response.kaka
Next
If Response.kaka(item).Haskeys Then[/red]
For each objitem in Response.kaka(item)
namn = Request.kaka(item)("namn")
pris = Request.kaka(item)("pris")
antal = Request.kaka(item)("antal")
Response.Write antal &" st "& namn &" för "& pris &" /st."
Next
End If
Else
Response.Write "Din kundvagn är tom."
End If
%>
Jag skickar PID i ett hiddenfält och sedan antal från ett vanligt textfält.
du har ju inte bytt ut "kaka" mot "cookies"
testa:
<%
If Request.Form("PID") <> "" Then
PID = Trim(Request.Form("PID"))
Set rs = Connection.Execute("SELECT PID, namn, pris FROM produkter WHERE PID = " & PID & "")
response. cookies(PID)("namn") = rs("namn")
response. cookies(PID)("pris") = rs("pris")
response. cookies(PID)("antal") = trim(Request.Form("antal"))
For each item in Response. cookies
Next
If Response. cookies(item).Haskeys Then
For each objitem in Response. cookies(item)
namn = Request. cookies(item)("namn")
pris = Request. cookies(item)("pris")
antal = Request. cookies(item)("antal")
Response.Write antal &" st "& namn &" för "& pris &" /st."
Next
End If
Else
Response.Write "Din kundvagn är tom."
End If
%>
lägg nu märke till att jag lagt till ett mellanrum innan ordet "cookies"
för att wf inte tillåter . och sedan cookies...
nä men va faaan....
tack så mycket för upplysningen spango...
faan va blind man kan vara...
tur att inte alla har tappat ögonen...
If Response. cookies(item).Haskeys Then -->> If Request. cookies(item).Haskeys Then
<%
If Request.Form("PID") <> "" Then
PID = Trim(Request.Form("PID"))
Set rs = Connection.Execute("SELECT PID, namn, pris FROM produkter WHERE PID = " & PID & "")
response. Cookies(PID)("namn") = rs("namn")
response. Cookies(PID)("pris") = rs("pris")
response. Cookies(PID)("antal") = trim(Request.Form("antal"))
For each item in Response. Cookies
If Response. Cookies(item).Haskeys Then
For each objitem in Response. Cookies(item)
namn = Request. Cookies(item)("namn")
pris = Request. Cookies(item)("pris")
antal = Request. Cookies(item)("antal")
Response.Write antal &" st "& namn &" för "& pris &" /st."
Next
End If
Next
Else
Response.Write "Din kundvagn är tom."
End If
%>
