Indkøbskurv problemmer
Jeg er ved og lave et handels sted på nettet, men jeg er lige stødt ind i et lille problem...Når man står på siden og kigger på en vare, er der et link til at putte varen i kurven, når man trykker på det link, loader den en ny side som putter varen i kurven, på den side er der et redirect link til en anden side..
Jeg vil gerne have det sådan at man automatisk kommer tilbage til den side hvor man stod inden man trykkede på "kom i kurv"
Siden er lavet i ASP og køre med en access database, alle varene bliver hentet i databasen.
Knappen "kom i kurv" linker til den side varetilkurv.asp, så der skal vel skrives noget i den fil, så den kan finde tilbage igen..
håber der er en der kan hjælpe mig, da det haster lidt
koden ser sådan her ud :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="inc_CharonCart.asp" -->
<!--#include file="Connections/db.asp" -->
<%
Dim valgtvare__MMColParam
valgtvare__MMColParam = "1"
If (Request.QueryString("vare") <> "") Then
valgtvare__MMColParam = Request.QueryString("vare")
End If
%>
<%
Dim valgtvare
Dim valgtvare_numRows
Set valgtvare = Server.CreateObject("ADODB.Recordset")
valgtvare.ActiveConnection = MM_db_STRING
valgtvare.Source = "SELECT * FROM varer WHERE id = " + Replace(valgtvare__MMColParam, "'", "''") + ""
valgtvare.CursorType = 0
valgtvare.CursorLocation = 2
valgtvare.LockType = 1
valgtvare.Open()
valgtvare_numRows = 0
%>
<%
'**Add to cart from Link on previous page**
'**Charon Cart**
'
Randomize Timer
isFound=false
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) = cstr(valgtvare("id")) then
CCcart(CC_Quantity,i) = CCcart(CC_Quantity,i) + 1
isFound=true
exit for
end if
next
if not isFound then
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) = "" then
CCcart(CC_ProductID,i)=valgtvare("id")
CCcart(CC_Quantity,i)=("1")
CCcart(CC_Name,i)=valgtvare("varenavn")
CCcart(CC_Price,i)=valgtvare("pris m/moms")
CCcart(CC_UniqueKey,i)=int(rnd*9999999)+10000000
exit for
end if
next
end if
CartToCookie CCcart,"CharonCart"
CC_RedirectURL="default.asp"
Response.Redirect "default.asp"
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
</body>
</html>
<%
valgtvare.Close()
Set valgtvare = Nothing
%>
