Shopfunktion i eksisterende Acces DB
Jeg er igang med at lave en lille butik til min kammerat - men jeg hænger gevaldigt fast i koderne. Jeg er ikke en haj til asp -men har da fået lidt strikket sammen - men nu overstiger det mine evner.Jeg skal have en inkøbsfunktion koblet på denne kode - der skal ikke være priser og alt muligt - man skal "bare" kunne lægge emner i en liste/kurv og kunne afslutte med at sende en mail med indholdet. MEN HVORDAN???? Hjælp til koder søges....
<%@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 Dato DESC ",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>
<a href="filminfo.asp?id=<%=rs("Filmnummer")%>"><%=rs("Titel")%></a> </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>
</body>
</html>
