Det kan sagtesn lade sig. Det kræver lidt tid at lave det, så det bliver først i weekend jeg får tid til det.
Her er lidt fremtil weekend
viskurv.asp
<%
Response.Expires = 0
Titel = "Indkøbskurv"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("shop.mdb")
Mode = LCase(Request.QueryString("Mode"))
ID = CLng(Request.QueryString("ID"))
Antal = CLng(Request.QueryString("Antal"))
If CLng(Session("CartID")) = 0 then
SQLstmt = "INSERT INTO ShoppingCarts (SessionID, [Date]) VALUES (" & Session.SessionID & ", '" & Now & "');"
Conn.Execute SQLstmt
Set RS = Conn.Execute ("SELECT * FROM ShoppingCarts ORDER BY ID Desc")
Session("CartID") = RS("ID")
End If
Select Case Mode
Case "tilfoej"
If Not Conn.Execute("SELECT ID FROM Articles WHERE ID = " & ID).EOF Then
If Conn.Execute("SELECT ID FROM ShoppingCartItems WHERE CartID = " & Session("CartID") & " AND ArticleID = " & ID).EOF Then
SQLstmt = "INSERT INTO ShoppingCartItems (CartID, ArticleID, ArticleAmount) VALUES ("
SQLstmt = SQLstmt & Session("CartID") & ", "
SQLstmt = SQLstmt & ID & ", "
SQLstmt = SQLstmt & "1);"
Conn.Execute SQLstmt
Else
Conn.Execute "UPDATE ShoppingCartItems SET ArticleAmount = ArticleAmount + 1 WHERE CartID = " & Session("CartID") & " AND ArticleID = " & ID
End If
End If
Case "fjernvare"
Conn.Execute "DELETE * FROM ShoppingCartItems WHERE ArticleID = " & ID
Case "nytantal"
If Antal < 1 Then
Conn.Execute "DELETE * FROM ShoppingCartItems WHERE ArticleID = " & ID
Else
Conn.Execute "UPDATE ShoppingCartItems SET ArticleAmount = " & Antal & " WHERE ArticleID = " & ID
End If
Response.Redirect "viskurv.asp"
Case "toem"
Conn.Execute "DELETE * FROM ShoppingCartItems"
Response.Redirect "viskurv.asp"
Case "indtastantal"
SQLstmt = "SELECT "
SQLstmt = SQLstmt & "(SELECT Name FROM Articles WHERE ID = ShoppingCartItems.ArticleID) AS ArticleText, "
SQLstmt = SQLstmt & "ArticleAmount "
SQLstmt = SQLstmt & "FROM ShoppingCartItems WHERE CartID = " & Session("CartID") & " AND ArticleID = " & ID & ";"
Set RS = Conn.Execute(SQLstmt)
End Select
SQLstmt = "SELECT "
SQLstmt = SQLstmt & "(ArticleAmount * (SELECT Price FROM Articles WHERE ID = ShoppingCartItems.ArticleID)) AS ArticlePriceTotal, "
SQLstmt = SQLstmt & "(SELECT Price FROM Articles WHERE ID = ShoppingCartItems.ArticleID) AS ArticlePrice, "
SQLstmt = SQLstmt & "(SELECT Name FROM Articles WHERE ID = ShoppingCartItems.ArticleID) AS ArticleText, "
SQLstmt = SQLstmt & "ArticleID, ArticleAmount "
SQLstmt = SQLstmt & "FROM ShoppingCartItems WHERE CartID = " & Session("CartID") & "; "
Set RSList = Conn.Execute(SQLstmt)
%>
<!-- #include file="top.inc" -->
<%
Select Case Mode
Case "indtastantal"
If Not RS.EOF Then
%>
<form action="viskurv.asp" method="nytantal">
<table width="100%" border="0" cellspacing="2" cellpadding="5">
<tr bgcolor="#FFF7DF">
<td colspan="3"><b><%= RS("ArticleText") %></b><b></b></td>
</tr>
<tr>
<td bgcolor="#FFF7DF" width="1%" nowrap>Nyt antal</td>
<td bgcolor="#FFF9EA" width="99%">
<input type="text" name="antal" class="FlatInput" maxlength="3" value="<%= RS("ArticleAmount") %>" style="width=40; text-align=right;">
</td>
<td bgcolor="#FFF9EA" width="1%">
<input type="submit" name="Submit" value="OK" class="FlatButton">
</td>
</tr>
</table>
<input type="hidden" name="id" value="<%= ID %>">
<input type="hidden" name="mode" value="nytantal">
</form>
<%
End If
Case Else
If Not RSList.EOF Then
%>
<table width="100%" border="0" cellspacing="2" cellpadding="5">
<tr>
<td bgcolor="#FFF7DF" width="1%"><center><b>Varenr.</b></td>
<td bgcolor="#FFF7DF" width="99%"><b>Tekst</b></td>
<td bgcolor="#FFF7DF" width="1%"><center><b>Antal</b></td>
<td bgcolor="#FFF7DF" width="1%"><center><b>á</b></td>
<td bgcolor="#FFF7DF" width="1%"><center><b>Total</b></td>
<td bgcolor="#FFF7DF" width="1%"></td>
</tr>
<%
Do While Not RSList.EOF
%>
<tr>
<td bgcolor="#FFF9EA"><center><%= RSList("ArticleID") %></td>
<td bgcolor="#FFF9EA"><a href="visvare.asp?id=<%= RSList("ArticleID") %>"><%= RSList("ArticleText") %></a></td>
<td bgcolor="#FFF9EA"><center><a href="viskurv.asp?mode=indtastantal&id=<%= RSList("ArticleID") %>"><%= RSList("ArticleAmount") %></a></td>
<td bgcolor="#FFF9EA"><center><%= RSList("ArticlePrice") %>,-</td>
<td bgcolor="#FFF9EA"><center><%= RSList("ArticlePriceTotal") %>,-</td>
<td bgcolor="#FFF9EA"><font size="1"><a href="viskurv.asp?mode=fjernvare&id=<%= RSList("ArticleID") %>">Slet</a></font></td>
</tr>
<%
PriceTotal = PriceTotal + RSList("ArticlePriceTotal")
RSList.MoveNext
Loop
%>
<tr>
<td colspan="4" bgcolor="#FFF7DF"><b>Ialt</b></td>
<td bgcolor="#FFF9EA"><center><%= PriceTotal %>,-</td>
<td bgcolor="#FFF7DF"> </td>
</tr>
</table>
<form method="post" action="bestil.asp">
<table width="100%" border="1">
<tr bgcolor="#FFF7DF">
<td colspan="2">Bestil af varer - kundenummer =
<% a = Session.SessionID
response.write a %>
</td>
</tr>
<tr>
<td width="17%" bgcolor="#FFF7DF">Navn</td>
<td width="83%" bgcolor="#FFF7DF"><input type="text" name="navn"></td>
</tr>
<tr>
<td bgcolor="#FFF7DF">Adresse</td>
<td bgcolor="#FFF7DF"><input type="text" name="adresse"></td>
</tr>
<tr>
<td bgcolor="#FFF7DF">Postnummer</td>
<td bgcolor="#FFF7DF"><input type="text" name="postnummer"></td>
</tr>
<tr>
<td bgcolor="#FFF7DF">By</td>
<td bgcolor="#FFF7DF"><input type="text" name="by"></td>
</tr>
<tr>
<td bgcolor="#FFF7DF">Email</td>
<td bgcolor="#FFF7DF"><input type="text" name="email"></td>
</tr>
<tr>
<td bgcolor="#FFF7DF"> </td>
<td bgcolor="#FFF7DF"><input type="submit" name="bestil" value="Bestil">
<input type="reset" name="Submit3" value="Slet indtastning"></td>
</tr>
</table>
</form>
<%
Else
%>
<center>Indkøbskurven er tom.</center>
<%
End If
End Select
%>
<p align="center">[<a href="viskategori.asp?id=<%= CLng(Session("LastCategory"))%>">Luk indkøbskurv</a>] [<a href="viskurv.asp?mode=toem">Tøm indkøbskurv</a>] [<a href="viskurv.asp">Genindlæs indkøbskurv</a>]</p>
<!-- #include file="bund.inc" -->
bestil.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body>
<% Set Conn = Server.CreateObject("ADODB.Connection")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("shop.mdb")
SQLstmt = "SELECT "
SQLstmt = SQLstmt & "(ArticleAmount * (SELECT Price FROM Articles WHERE ID = ShoppingCartItems.ArticleID)) AS ArticlePriceTotal, "
SQLstmt = SQLstmt & "(SELECT Price FROM Articles WHERE ID = ShoppingCartItems.ArticleID) AS ArticlePrice, "
SQLstmt = SQLstmt & "(SELECT Name FROM Articles WHERE ID = ShoppingCartItems.ArticleID) AS ArticleText, "
SQLstmt = SQLstmt & "ArticleID, ArticleAmount "
SQLstmt = SQLstmt & "FROM ShoppingCartItems WHERE CartID = " & Session("CartID") & "; "
Set RSList = Conn.Execute(SQLstmt)
%>
<table width="100%" border="0" cellspacing="2" cellpadding="5">
<tr>
<td bgcolor="#FFF7DF" width="1%"><center><b>Varenr.</b></td>
<td bgcolor="#FFF7DF" width="99%"><b>Tekst</b></td>
<td bgcolor="#FFF7DF" width="1%"><center><b>Antal</b></td>
<td bgcolor="#FFF7DF" width="1%"><center><b>á</b></td>
<td bgcolor="#FFF7DF" width="1%"><center><b>Total</b></td>
<td bgcolor="#FFF7DF" width="1%"></td>
</tr>
<%
Do While Not RSList.EOF
%>
<tr>
<td bgcolor="#FFF9EA"><center><%= RSList("ArticleID") %></td>
<td bgcolor="#FFF9EA"><%= RSList("ArticleText") %></td>
<td bgcolor="#FFF9EA"><center><%= RSList("ArticleAmount") %></td>
<td bgcolor="#FFF9EA"><center><%= RSList("ArticlePrice") %>,-</td>
<td bgcolor="#FFF9EA"><center><%= RSList("ArticlePriceTotal") %>,-</td>
<td bgcolor="#FFF9EA"></td>
</tr>
<%
PriceTotal = PriceTotal + RSList("ArticlePriceTotal")
RSList.MoveNext
Loop
%>
<tr>
<td colspan="4" bgcolor="#FFF7DF"><b>Ialt</b></td>
<td bgcolor="#FFF9EA"><center><%= PriceTotal %>,-</td>
<td bgcolor="#FFF7DF"> </td>
</tr>
</table>
<p>Endelig bestilling</p>
<form name="form1" method="post" action="">
<% navn = request.Form("navn")
adresse = request.Form("adresse")
postnummer = request.Form("postnummer")
by = request.Form("by")
email = request.Form("email") %>
<table width="100%" border="1">
<tr>
<td width="20%">Navn</td>
<td width="80%"><% response.write navn %> </td>
</tr>
<tr>
<td>Adresse</td>
<td> <% response.write adresse %></td>
</tr>
<tr>
<td>Postnummer</td>
<td> <% response.write postnummer %></td>
</tr>
<tr>
<td>By</td>
<td> <% response.write by %></td>
</tr>
<tr>
<td>Email</td>
<td> <% response.write email %></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="Submit" value="Godkend bestilling">
<input name="Submit2" type="button" onClick="MM_goToURL('parent','viskategori.asp');return document.MM_returnValue" value="Fortryd bestilling"></td>
</tr>
</table>
</form>
</body>
</html>
