Mika3lMedlem sedan nov. 20018 492 inlägg Hejsan!
Jag använder följande kod till en kundvagn...
<%
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
Rad 26 är "blåad".
Tacksam för hjälp!
/Mika3l
------------------
Det stora datatestet:
Ok, då börjar vi!
För att börja testet tryck alt+F4.
MK-Studios v2!
LarsGMedlem sedan dec. 200012 464 inlägg if response.Cookies(item).haskeys then
------------------
essentitia preter non sans multiplicandum
mikulMedlem sedan aug. 20013 824 inlägg Mikael: hur går det? funkade min kod?
maila mig sen när du har tid...
test:
cookies
va kul... helt plötsligt kan man använda ordet cookies igen...
kom ihåg att byta ut kaka mot cookies på alla ställen i koden...
/ Mikul
------------------
vad är det för fel mad att vara lat?, tänk om det blev krig och ingen kom dit.
[Redigerat av mikul den 09 feb 2002]
Mika3lMedlem sedan nov. 20018 492 inlägg Hmmm...
Dessvärre verkar det inte vilja fungera Mikul... :l :p
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.
/Mika3l
------------------
Det stora datatestet:
Ok, då börjar vi!
För att börja testet tryck alt+F4.
MK-Studios v2!
PaceMedlem sedan juni 20019 024 inlägg For each item in Response.kaka
Next
If Response.kaka(item).Haskeys Then
Lägg Next sist.
------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."
mikulMedlem sedan aug. 20013 824 inlägg 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...
/ Mikul
------------------
vad är det för fel mad att vara lat?, tänk om det blev krig och ingen kom dit.
spangoMedlem sedan juni 20008 205 inlägg Response.Cookies?
------------------
God is real, unless declared integer.
mikulMedlem sedan aug. 20013 824 inlägg 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
/ Mikul
------------------
vad är det för fel mad att vara lat?, tänk om det blev krig och ingen kom dit.
Mika3lMedlem sedan nov. 20018 492 inlägg Det är lungt Mikul, jag har bytt ut alla kaka till Cookies.
Jag skriver bara kaka när jag postar koden p.g.a WF...
Ska testa Pace kod nu...
/Mika3l
------------------
Det stora datatestet:
Ok, då börjar vi!
För att börja testet tryck alt+F4.
MK-Studios v2!
Mika3lMedlem sedan nov. 20018 492 inlägg JAA! Nu fungerar det! :D
Jippie! :D :)
<%
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
%>
Tack allihopa!
Jag kommer säkert med fler frågor snart! ;)
/Mika3l
------------------
Det stora datatestet:
Ok, då börjar vi!
För att börja testet tryck alt+F4.
MK-Studios v2!
mikulMedlem sedan aug. 20013 824 inlägg ok....
bra....
men det var en lite miss av mig där...
hade glömt att flytta "Next"
/ Mikul
------------------
vad är det för fel mad att vara lat?, tänk om det blev krig och ingen kom dit.
