Indkøbskurv med ASP
Jeg er igang med at lave, et indkøbskurv, men desvære kan ikke komme vidre, der er såden at jeg bruger Access databasen, for at hente data, som Der fremgår af koden. Jeg visser min poster og laver et link, man skal så kunne tilføje den valgte produkt til indkøbskurven. -kan nogen hjælpe.???tak.
<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<!--#include virtual="includes/TopMenuScript.ssi" -->
<!--#include virtual="intertechclass.asp" -->
<title>Budkort siden ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<BODY BGCOLOR="#666666" onload="init()">
<br>
<!--#include virtual="includes/index_tabel_start.ssi" -->
<%
Dim rsItems
Set rsItems = Server.CreateObject("ADODB.Recordset")
rsItems.Open "BundkortF", objConnect, adOpenForwardOnly, adCmdTable
If Not rsItems.EOF Then ' current user has items for sale
Response.Write _
"<CENTER>" &_
"<TABLE width= ""100%"" BORDER=""0"" CELLSPACING=""1"" CELLPADDING=""1"">" & _
"<TR>" & _
" <TH bgcolor=""#FFFF00"" >Produkt</TH>" & _
" <TH bgcolor=""#FFFF00"">Beskrivelse</TH>" & _
" <TH bgcolor=""#FFFF00"">Lager Status</TH>" & _
" <TH bgcolor=""#FFFF00"">Pris</TH>" & _
"</TR>"
Do While Not rsItems.EOF
Response.Write _
"<TR ALIGN=CENTER>" & _
" <TD bgcolor=""#CCCCCC""><A HREF=""bag.asp?id=" & rsItems("Produktnavn") & """>" & _
rsItems("Produktnavn") & "</A></TD>" & _
" <TD bgcolor=""#CCCCCC"">" & rsItems("Produktbeskrivelse") & "</TD>" & _
" <TD bgcolor=""#CCCCCC"">" & rsItems("Lagerstatus") & "</TD>" & _
" <TD bgcolor=""#CCCCCC"">" & rsItems("PrisPrEnhed") & "</TD>" & _
"</TR>" &_
"</CENTER>"
rsItems.MoveNext
Loop
Response.Write "</TABLE>"
Else ' Ingen Data i databassen
Response.Write "<CENTER><H2>Der findes ingen kategorier</H2></CENTER>"
End If
rsItems.close
%>
<!--#include virtual="includes/index_tabel_end.ssi" -->
</body>
</html>
