eposter+indkøb
Hejjeg har fundet koder til en indkøbside fra eposter
jeg kan ikke få min conn string til at virker tror problemet ligger der, er der nogen der kan hjælpe mig
include filen ser sådan her ud
db.inc
<!-- #include file="adovbs.inc" -->
<%
'--------------------------------------------------------------------
'
' Constants added for shopping cart
'
' (c) 1999 Katrien De Graeve
'
' http://www.URLogy.com
'--------------------------------------------------------------------
Const maxCartItems = 10
Const cartAttributes = 5
'--- Shopping cart attributes ----
Const cProductid = 1
Const cProductCode = 2
Const cProductname = 3
Const cQuantity = 4
Const cUnitPrice = 5
%>
<%
Dim DSN
dim conn
Dim strConn
Set strConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/scart.mdb")
%>
default.asp
<%@ Language=VBScript %>
<!-- #include file="db.inc" -->
<%
'if user returns to the homepage after shopping, clean up the session variables
If Request.QueryString ("end") = 1 Then
Session.Abandon
End If
%>
<html>
<head>
<title>Nisse piger Hobby-forum</title>
</head>
<body>
<table border="0" width="600" cellpadding="4">
<tr>
<td width="120" bgcolor="#004080" valign="top"><font face="Arial" color="#FFFFFF"><small>Hej<br/>
Dette er et forsøg jeg kan ikke få den til at vise varegrupper</small></font></td>
<td width="480"><h3><font face="Tahoma">Hobby artikler til salg</font> </h3>
<ul>
<%
'create recordset to show categories from database
Dim rs
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "categories",DSN ,adOpenForwardOnly ,adLockReadOnly,adCmdTable
While Not rs.EOF
%>
<li><font face="Tahoma"><a HREF="products.asp?id=<%= rs("categoryID") %>&cat=<%= rs("catdescription") %>"><%= rs("catdescription") %></a></font>
</li>
<%
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
%>
</ul>
</td>
</tr>
</table>
</body>
</html>
products.asp
<%@ Language=VBScript %>
<!-- #include file="db.inc" -->
<%
Dim catid, strcat
catid = CInt(Request.QueryString("id"))
strcat = Request.QueryString ("cat")
If catid = "" or strcat = "" Then
Response.Redirect "default.asp"
End if
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>Products</title>
</head>
<body>
<table border="0" width="600" cellpadding="4">
<tr>
<td width="100%" colspan="2" valign="top"><h3><img src="images/eplogo2.gif" alt="EPoster store" width="187" height="36">
<br><font face="Arial"><%If strcat <> "" Then %><%= strcat %><% Else %>Products<%End If%></font></h3>
</td>
</tr>
<tr>
<td width="120" bgcolor="#004080" valign="top">
<!--#include file="navleft.htm" --></td>
<td width="480">
<!-- ASP code, needed to create table of products, do not delete -->
<%
'this ASP code needs to be pasted into the template. leave this as it is
Dim rsprod
Set rsprod = Server.CreateObject("ADODB.Recordset")
rsprod.Open "products", DSN, adOpenForwardOnly, adLockReadOnly, adCmdTable
If catid <> "" Then
rsprod.Filter = "ccategory = " & catid
End If
%>
<%
While Not rsprod.EOF
%>
<table border="0" cellPadding="4" cellSpacing="2" width="100%">
<tr>
<td bgColor="#004080" valign="center">
<h3><font color="White" face="sans-serif"><%= rsprod("cname") %></font></h3></td></tr>
<tr>
<td><img src="<%= rsprod("cimageurl") %>" align="right"><%= rsprod("cdescription") %></td></tr>
<tr>
<td><form action="addprod.asp" method="POST">
<input type="hidden" name="fproductid" value="<%= rsprod("catalogID")%>">
Quantity:
<input maxLength="1" name="fquantity" size="2" value="1"> <strong> <input type="submit" value="ORDER" name="order"></form><br>
Price: <%= FormatCurrency(rsprod("cprice"),2)%></font></strong></td></tr>
</table>
<hr align="center" color="darkblue" noShade SIZE="2" width="80%">
<%
rsprod.MoveNext
Wend
rsprod.Close
DSN.Close strConn
%>
<!-- end asp code --->
<p></td>
</tr>
</table>
</body>
</html>
jeg har rettet i koderne men har sikkert ikke fået lukket og åbnet rigtigt ??
på forhånd tak
Tine
