Frågan#1
Shoppen jag har vill jag ändra lite på.
Jag vill kunna lägga till storlek på tex en t-shirt och lägger jag till en vara med olika storlekar så skall det skapas en ny post i produktfältet.
Nu är det så att om jag lägger till en vara med ett speciellt produktnummer så skapas en post i "kundvagnen", och om jag går tillbaka och "plussar på" en likadan vara så visas det i kundvagnen även fast jag ändrar "storlek".
Jag vill att om en speciell vara med ett speciellt produktnummer finns i en speciell storlek så skall en ny "post" i kundvagnen skapas.
Så att det blir:
T-shirt varunummer:12 storlek: XL antal: 1
T-shirt varunummer:12 storlek: M antal: 2
T-shirt varunummer:12 storlek: L antal: 1
Kofta varunummer:13 storlek: XL antal: 1
OSV...
Är det någon som fattar min luddiga förklaring och är det någon som har ngt tips för att ordna detta?
Lång kod:
<html>
<body>
<%
Sub AddItemToCart(iItemID, iItemCount)
If dictCart.Exists(iItemID) Then
dictCart(iItemID) = dictCart(iItemID) + iItemCount
Else
dictCart.Add iItemID, iItemCount
End If
End Sub
Sub RemoveItemFromCart(iItemID, iItemCount)
If dictCart.Exists(iItemID) Then
If dictCart(iItemID) <= iItemCount Then
dictCart.Remove iItemID
Else
dictCart(iItemID) = dictCart(iItemID) - iItemCount
End If
Else
Response.Write "Det finns inga varor i kundkorgen!.<BR><BR>"
End If
End Sub
Sub ShowItemsInCart()
Dim Key
Dim aParameters ' as Variant (Array)
Dim sTotal, sShipping%>
<div id="SourceCode">
<table border=0 cellpadding=2 cellspacing=0 width="555">
<tr align="center">
<td width="47">Vara</td>
<td width="103">Beskrivning</td>
<td width="44">
Antal
</td>
<td width="192">
Ändra antal varor</td>
<td width="66">Pris</td>
<td width="79">Totalt</td>
</tr>
<%
sTotal = 0
For Each Key in dictCart
aParameters = GetItemParameters(Key)
%>
<tr >
<td width="47"> <%= Key %></td>
<td width="103"><%response.write aParameters(1)&" "& u_size) %><br>
</td>
<td width="44"> <%= dictCart(Key) %></td>
<td width="192"> <a href="default.asp?action=add&item=<%= Key %>&count=1">Lägg
till 1</a>| <a href="default.asp?action=del&item=<%= Key %>&count=1">Ta
bort 1</a> | <a href="default.asp?action=del&item=<%= Key %>&count=<%= dictCart(Key) %>">Ta
bort alla</a> </td>
<td width="66"> Kr.<%= aParameters(2) %></td>
<td width="79"> Kr.<%= FormatNumber(dictCart(Key) * CSng(aParameters(2)),2) %></td>
</tr>
<%
sTotal = sTotal + (dictCart(Key) * CSng(aParameters(2)))
Next
If sTotal <> 0 Then
sShipping = 65.0
Else
sShipping = 0
End If
sTotal = sTotal + sShipping
%>
<tr>
<td colspan=5 >Frakt:</td>
<td width="79" > Kr.<%= FormatNumber(sShipping,2) %></td>
</tr>
<tr>
<td colspan=5 >Totalt:</td>
<td width="79" > Kr.<%= FormatNumber(sTotal,2) %></td>
</tr>
</table>
</div>
<%
End Sub
Private sub SendMailToAdmin()
'Skicka med Jmail
If err.Number < 0 Then
Response.Write "<font size=2 color=red>Något har blivit fel!"
Else
Response.Write "<font size='2'><b> Tack för din order!</b><br>"
End If
End Sub
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("/db/items.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT Name, Price, ImageURL FROM Items"
rs.Open SQL, Conn
rs.MoveFirst
Function GetItemParameters(iItemID)
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("/varor.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT* FROM Items WHERE ProductNum like '%" & iItemID & "%'"
rs.Open SQL, Conn
rs.MoveFirst
Dim aParameters
aParameters = Array(rs("ImageURL"), rs("Name"), rs("Price"))
' Return array containing product info.
GetItemParameters = aParameters
End Function
Dim dictCart ' as dictionary
Dim sAction ' as string
Dim iItemID ' as integer
Dim iItemCount ' as integer
If IsObject(Session("cart")) Then
Set dictCart = Session("cart")
Else
Set dictCart = Server.CreateObject("Scripting.Dictionary")
End If
sAction = CStr(Request.QueryString("action"))
iItemID = CInt(Request.QueryString("item"))
iItemCount = CInt(Request("count"))
%>
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td>
<%
Select Case sAction
Case "add"
AddItemToCart iItemID, iItemCount
ShowItemsInCart
%>
</td>
</tr>
<tr>
<td > <a href="default.asp?action=checkout&#checkout">
<img border="0" src="images/kopvara.gif" width="34" height="20" alt="Köp"></a><br>
<%
Case "del"
RemoveItemFromCart iItemID, iItemCount
ShowItemsInCart
%>
</td>
</tr>
<tr>
<td > <a href="default.asp?action=checkout&#checkout">
<img border="0" src="images/kopvara.gif" width="34" height="20" alt="Köp"></a><br>
<%
Case "viewcart"
ShowItemsInCart
%>
</td>
</tr>
<tr>
<td > <a href="default.asp?action=checkout&#checkout">
<img border="0" src="images/kopvara.gif" alt="Köp" width="34" height="20"></a><br>
<%
case "checkout"
ShowItemsInCart
%>
<br>
<br>
<form action="default.asp?action=send" method="post" name="FrontPage_Form1" onSubmit="return FrontPage_Form1_Validator(this)">
Var vänlig och fyll i alla poster
i formuläret.<br>
<hr size="1">
<table width="558" border="0" cellspacing="0" cellpadding="4">
<tr>
<td width="584" valign="top">Namn<br>
<input type="text" name="sdfsa" size="40" maxlength="100" value="">
</td>
</tr>
<tr>
<td width="584" valign="top">Ditt Ordernamn <br>
<input type="text" name="fldCompanyName" size="40" value="">
</td>
</tr>
<tr valign="top">
<td width="584">
<input type="submit" name="Submit" value="Köp">
</td>
</tr>
</table>
</form>
<%
case "send"
SendMailToAdmin
Case Else
%>
</td>
</tr>
<tr>
<td > </td>
</tr>
</table>
<%
End Select
Set Session("cart") = dictCart
Rs.Close
set rs = nothing
conn.close
Set Conn = nothing
end if %>
</body>
</html>
MVH Jesper