Inkøbskurv flettet ind her - men jeg er helt rundt på gulvet
Hej eksperter!Se evt. siden her: http://www.a-vision.dk/test/ks/list/default2.asp
Jeg skal have koblet en indkøbskurv til denne kode, jeg har fået levet søgefunktion mv. Men jeg er helt rundt på gulvet mht. indkøbskurv.Gode forslag modtages gerne! Der skal ikke være priser på men man skal kunne vælge antal.
KODEN:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Response.Expires = 0 %>
<% response.buffer = true
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("../dataentry/filmdatabase.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
%>
<html>
<head>
<title>Untitled Document</title>
</head>
<body>
<%
set rs=server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM hovedetabel ORDER by Titel ASC ",Conn, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 12
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
response.write "<table width='600' border='0' cellspacing='0' cellpadding='0'>"
response.write "<tr align='center'>"
counter = 0
Do while not rs.eof And intRecCount > 0
%>
<td align="left"> <%If rs("Cover - Thumbnail") <> "" Then%> <img src="../images/<%=rs("Cover - Thumbnail")%>.jpg" align="top">
<%Else%> <img src="../images/no_image.jpg" align="top">
<%End If%><br>
<% =rs("Titel") %></td> <%
counter = counter + 1
intRecCount = intRecCount - 1
if counter = 3 then
response.write("</TR><TR>")
counter = 0
end if
rs.MoveNext
loop
response.write "</tr>"
response.write "</table>"
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=default2.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=default2.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default2.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
<form action="search.asp" method="POST">
<input type="text" name="keyword" size="30"><br>
<input type="submit" name="Action" value="Søg">
</form>
