Her er lidt af den kode:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="classes/Cart.asp" -->
<%
Set objCart=new Cart
%>
<%
'
'Update cart contents
'
CC_UpdateAction=Request.ServerVariables("SCRIPT_NAME")
objCart.UpdateCart
'
'Kill cart by setting cookie to nothing
'
objCart.RedirectUrl="Cart2Empty.asp"
objCart.KillCart
%>
<%
'
'Redirect if cart is empty
'
if objCart.isCartEmpty then response.redirect "Cart2Empty.asp"
%>
<%
response.expires=-180
%>
<html>
<head>
<title>Shopping Cart</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<style type="text/css">
<!--
-->
</style>
<link rel="stylesheet" href="Styles.css">
</head>
<body TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 bgcolor="#FFFFFF" onLoad="">
<div id="content">
<h2 id="pageName"><table width="90%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td><h2>Indkøbsvogn</h2></td>
<td align="right"></td>
</tr>
</table></h2>
<br>
<a href="java script:history.go(-1);"><< Fortsæt med at handle</a>
<div class="story">
<form action="<%=CC_UpdateAction%>" name="form1" method="post">
<table width="90%" border="0" cellpadding="5" cellspacing="0">
<tr class="tableheader">
<td width="13%" align="center">Antal</td>
<td width="19%" method="post" action="">Varenavn</td>
<td width="13%" method="post" action="">ProductNummer</td>
<td width="14%">Pris</td>
<td width="13%" align="right">Total</td>
<td width="14%" align="center">Fjern</td>
</tr>
<%
'
'Begin cart repeat region
'
For i=0 to objCart.NumberItems - 1
%>
<tr class="story">
<td width="13%" align="center">
<input name="<%="Qty" & objCart.GetCartValue("Key",i)%>" type="text" value="<%=objCart.GetCartValue("Quantity",i)%>" size="6">
</td>
<td width="19%" method="post" action=""><%=objCart.GetCartValue("Name",i)%><br>
</td>
<td width="13%" method="post" action=""><%=objCart.GetCartValue("ProductNummer",i)%></td>
<td width="14%" align="right">Kr <%= FormatNumber(objCart.GetCartValue("Price",i), -1, -2, -2, -2) %></td>
<td width="13%" align="right">Kr <%= FormatNumber(objCart.LineTotal(i), -1, -2, -2, -2) %></td>
<td width="14%" align="center">
<input name="<%="Delete" & objCart.GetCartValue("Key",i)%>" type="checkbox" value="1">
</td>
</tr>
<%
next 'end cart repeat region
%>
<tr>
<td width="13%" class="story"> </td>
<td width="19%" class="story"> </td>
<td width="13%" class="story"> </td>
<td width="14%" class="story"> </td>
<td colspan="2" align="right" class="story">Sub Total:</td>
<td width="14%" class="story">Kr <%= FormatNumber(objCart.SubTotal, 2, -2, -2, -2) %></td>
</tr>
<tr>
<td colspan="7" class="verdana10bold" align="center"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="login.asp"> </a>| <a href="<%=Request.ServerVariables("SCRIPT_NAME")&"?RemoveAll=1"%>">Tøm
indkøbsvogn </a> | <a href="java script:document.form1.submit()">Opdater
indkøbsvogn </a></td>
</tr>
</table>
<input type="hidden" name="CC_UpdateCart" value="1">
</form>
</div>
<div class="story"></div>
</div>
</body>
</html>
<%
Set objCart=Nothing
%>
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
