Indkøbskurv melder fejl.
Hejsa eksperter,Jeg har førhen brugt et script til en indkøbskurv som virker helt perfekt ud fra cookies. Nu har jeg dog tilføjet 2 ekstra felter som er "farve" og "størrelse" hvilket får det til at melde fejl.
Min cookie ser således ud:
1*38*blå*medium|1*23*Rød*s|
antal*produktID*farve*størrelse
| = dette adskiller produkterne.
Min fejl forekommer i dette udsnit som også kan findes forneden i hele scriptet:
for i = lbound(arrVareLinier) to ubound(arrVarelinier)
'splitter ved *
arrVare = Split(arrVareLinier(i), "*")
Call writeLine(arrVare(0), arrVare(1)) '<- her kommer fejlen
next
Nedenstående er mit hele mit script.
'#####################
Set Connshop = Server.CreateObject("ADODB.Connection")
Connshop.Open MM_database_STRING
set sitesettings = Connshop.Execute("select * from usersettings")
response.write "<p>"
arrVareLinier = Split(Request.Cookies("steinshoppingcart"), "|")
if isarray(arrVareLinier) = True then
for i = lbound(arrVareLinier) to ubound(arrVarelinier)
arrVare = Split(arrVareLinier(i), "*")
next
else
'returnerede ikke array
end if
Sub writeLine(pAntal, pID, Pfarve, Pstorrelse)
set rsshop = Connshop.Execute("select * from produkter where PID = "& pID &"")
pris = FormatNumber(rsshop("pPris"), 0)
'læg til totalen
total = total + (pris * pAntal)
'skriv række
with response
.write "<tr valign='top'>"
.write "<td><a href='" & sitesettings("Uwebadress") & "extra/03extra/save.asp?howmany=1&whatitem="&rsshop("PID")&"&redirectpath="&Request.ServerVariables("PATH_INFO")&"'><img src='../../admin/ekstras/03extra/images/thumbs/plus.gif' width='9' height='9' border='0'></a> <a href='" & sitesettings("Uwebadress") & "extra/03extra/minus.asp?removethis="&pAntal&"*"&rsshop("PID")&"&redirectpath="&Request.ServerVariables("PATH_INFO")&"'><img src='../../admin/ekstras/03extra/images/thumbs/minus.gif' width='9' height='9' border='0'></a> " & pAntal & "x" & Left(rsshop("Poverskrift"),150) & "</td>"
.write "<td><div align='right'>kr. " & pris*pAntal & ".-</div></td>"
.write "</tr>"
End with
rsshop.Close
End Sub
dim total, arrVareLinier, arrVare, cookieShop
cookieShop = Request.Cookies("steinshoppingcart")
if cookieShop <> "" then
'fjerner sidste | - hvis der er et... :o)
'således at der ikke bliver fejl når der splittes
If Right(cookieShop, 1) = "|" then
cookieShop = Left(cookieShop, Len(cookieShop) - 1)
End if
'åben db conn
Set Connshop = Server.CreateObject("ADODB.Connection")
Connshop.Open MM_database_STRING
'varelinie ser sådan ud:
'antal*varenr XX|antal*varenr XX|
arrVareLinier = Split(cookieShop, "|")
if isarray(arrVareLinier) = False then
'returnerede ikke array
Response.Write "Kurven er ikke gyldig!"
'slutter udførsel
Response.End
end if
with response
.write "<table width='100%' border='0' cellpadding='4' cellspacing='1' bgcolor='#999999'>"
.write "<tr>"
.write "<td bgcolor='#62B7BD'><b>Indkøbskurv</b></td>"
.write "</tr>"
.write "<tr>"
.write "<td bgcolor='#FFFFCC'><table width='100%' border='0' cellspacing='0' cellpadding='0'>"
for i = lbound(arrVareLinier) to ubound(arrVarelinier)
'splitter ved *
arrVare = Split(arrVareLinier(i), "*")
Call writeLine(arrVare(0), arrVare(1)) #### her kommer fejlen
next
.write "<tr valign='top'>"
.write "<td> </td>"
.write "<td> </td>"
.write "</tr>"
.write "<tr valign='top'>"
.write "<td>Moms<br><b>Total</b></td>"
'udskriv totalen...
.write "<td><div align='right'>kr. "& total*0.25 &".-<br><b>kr. " & total &".-</b></div></td>"
.write "</tr>"
.write "<tr valign='top'>"
.write "<td colspan='2'><div align='right'><br><a href='" & sitesettings("Uwebadress") & "extra/03extra/checkout/index.asp'>Check ud <img src='../../admin/ekstras/03extra/images/thumbs/shoppingcart.gif' width='22' height='26' border='0' align='absmiddle'></a></a></div></td>"
.write "</tr>"
.write "</table></td>"
.write "</tr>"
.write "</table>"
end with
'lukker og slukker :o)
Connshop.close
set arrVareLinier = Nothing
set arrVare = Nothing
set connshop = Nothing
end if
