Jeg sidde med en næsten færdig webshop der skal afleveres som
projekt i morgen....men mangler at få lavet en
betalingsside....kan ikke få den til at hente værdierne fra
kurven. Koden til min kurv ser således ud:
<!--#include file='db.asp'-->
<b>Indkøbskurv</b><p>
<%
dim sizearray(23)
sizearray(1) = "1"
sizearray(2) = "2"
sizearray(3) = "3"
sizearray(4) = "4"
sizearray(5) = "5"
sizearray(6) = "6"
sizearray(7) = "7"
sizearray(8) = "8"
sizearray(9) = "9"
sizearray(10) = "10"
sizearray(11) = "11"
sizearray(12) = "12"
sizearray(13) = "XXS"
sizearray(14) = "XS"
sizearray(15) = "S"
sizearray(16) = "M"
sizearray(17) = "L"
sizearray(18) = "XL"
sizearray(19) = "XXL"
sizearray(20) = "XXXL"
sizearray(21) = "enkelt"
sizearray(22) = "tvilling"
' Antal varer
SQL = "SELECT COUNT(id) FROM Vare"
set rs = conn.execute(SQL)
dim quantity()
dim unitCost()
redim quantity(rs(0))
redim unitCost(rs(0))
' Denne brugers kurv
SQL = "SELECT Kurv.itemID, Vare.vare, Vare.pris, Kurv.color,
Kurv.size FROM Vare INNER JOIN Kurv ON Vare.id = Kurv.itemID
WHERE Kurv.custID=" & custID
set rs = conn.execute(SQL)
subtot = cCur(0)
lastid = -1
indItem = 0
' Er der emner i kurven?
if rs(0) > 0 then
Response.Write "<table border=1 bordercolor=#cccccc width=400
cellpadding=0 cellspacing=0>"
do while not rs.eof
id = rs(0)
vare = rs(1)
subtot = cCur(subtot) + cCur(rs(2))
pris = formatCurrency(rs(2))
color = rs(3)
str_size = rs(4)
' Ny vare = ny række
lastid = id
indItem = indItem + 1
unitCost(indItem) = cCur(rs(2))
str = str & "<tr valign=top><td>" & indItem &
" <b> <a href='#' onClick='showDetail(" & id &
");return false;'>" & vare & "</a> Farve: <img
src=""images/color_"& color &".gif""> Størrelse: "&
sizearray(str_size) &""
str = str & "</b></td><td align=right></td><td
align=right><b>"& pris &"</b><td align=right> <a href='#'"
str = str & " onClick='removeItem(" & id & ");return
false;'>Fjern vare</a></td></tr>"
rs.movenext
loop
' for i = 1 to indItem
' str = replace(str,"_Q_" & i & "_",quantity(i))
' str = replace(str,"_S_" & i &
"_",formatCurrency(cCur(quantity(i)*unitCost(i))))
' next
str = str & "<tr><td colspan=2 align=right> <br>I
alt:</td><td align=right> <br><b>" & formatcurrency(subtot)
& "</b></td>"
str = str & "<td> </td></tr><tr><td colspan=5><a href='#'
onClick='emptyKurv();return false;'>Tøm
kurven</a></td></tr></table>"
Response.Write(str)
else
Response.Write("Din Indkøbskurv er tom!<p>")
end if
%>
<a href="koeb.asp">Gå til kassen</a>
<!--#include file='fod.asp'-->
Hvordan får jeg genreret en html side med de værdier der er i
kurven? Jeg kan SLET ikke få det til at virke....nogen der vil
kigge på det???
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials