viewcartprocess.asp

online sales system of texttile mill was a project within which there was great opportunity for Lear

<%

Dim IntCount, IntShowCounter, IntTotalItems, DblTotalPrice, DblFinalPrice

IF Session("LoginBuyer") = "" OR Session("LoginUser") = "" Then
Response.Redirect("Default.asp")
END IF

IntTotalItems = 0

%>

<table border="0">
	<tr>
		<td><h3><font face="verdana, arial" color="darkblue">Your Cart Items!</font></h3></td>
	</tr>
</table>
<hr color="black" noshade>
<table border="1" bordercolor="lightgrey" style="border-collapse:collapse">
	<tr>
		<td class="SimpleText"><b>Product Name</b></td>
		<td class="SimpleText"><b>Product No</b></td>
		<td class="SimpleText"><b>Quantity</b></td>
		<td class="SimpleText"><b>Price</b></td>
		<td class="SimpleText"><b>Total Price</b></td>
		<td class="SimpleText"><b>Option</b></td>
	</tr>
	<%
		IntCount = CInt(Session("TotalItems"))
		For IntShowCounter = 1 to IntCount
		IF Session("MyItems")("Purchase" & IntShowCounter) = "yes" Then
		IntTotalItems = IntTotalItems + 1
		DblTotalPrice = CDbl(Session("MyItems")("Price" & IntShowCounter) * CInt(Session("MyItems")("Quantity" & IntShowCounter)))
		DblFinalPrice = DblFinalPrice + CDbl(DblTotalPrice)
	%>
	<tr>
		<td class="SimpleText"><%= Session("MyItems")("BookName" & IntShowCounter) %></td>
		<td class="SimpleText"><%= Session("MyItems")("ISBN" & IntShowCounter) %></td>
		<td class="SimpleText"><%= Session("MyItems")("Quantity" & IntShowCounter) %></td>
		<td class="SimpleText"><%= Session("MyItems")("Price" & IntShowCounter) %></td>
		<td class="SimpleText"><%= CDbl(DblTotalPrice) %></td>
		<td><a href="RemoveItem.asp?ISBN=<%= Session("MyItems")("ISBN" & IntShowCounter) %>" class="NormalLink">Remove Item</a></td>
	</tr>
	<%
		END IF
		Next
	%>
</table>
<hr color="black" noshade>
<table border="1" bordercolor="lightgrey" style="border-collapse:collapse">
	<tr>
		<td class="SimpleText">Total items in your cart: <b><%= IntTotalItems %></b></td>
	</tr>
	<tr>
		<td class="SimpleText">Total cost of all items: <b><%= CDbl(DblFinalPrice) %></b></td>
	</tr>
	<%
		IF IntTotalItems > 0 Then
	%>
	<tr>
		<td><a href="SubmitOrder.asp" class="NormalLink">Submit My Order</a></td>
	</tr>
	<%
		END IF
	%>
</table>