---
title: "samma"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9410-samma"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PixelFix"
published: "2001-05-11T09:35:00.000Z"
updated: "2001-05-11T09:42:00.000Z"
replies: 2
views: 261
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9410-samma"
---

# samma

## #1 — PixelFix, 2001-05-11T09:35Z

Ok...
Kategorilista först då:

```
<link rel=stylesheet href="stil.css" type="text/css">
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set catRs = Server.CreateObject("ADODB.Recordset")
sqlString = "SELECT DISTINCT Kategori FROM Lager ORDER BY Kategori"
MinCon.Open "DSN=xxxx;UID=;PWD="
catRs.Open sqlString, MinCon
%>

<% If cat = "Home" THEN %>
<font color="red"><b></b></font>
<UL>
<% ELSE %>
<a href="start.asp?cat=Home">Home</a>
<UL>
<% END IF %>
<% WHILE NOT catRs.EOF %>
<% IF catRs( "Kategori" ) = cat THEN %>
<li><font color="red"><b>
<%=catRs( "Kategori" )%>
</b></font>
<% ELSE %>
<li><a href="start2.asp?cat=<%=catRs("Kategori")%>"><%=catRs( "Kategori" )%></a>
<% END IF %>
<% 
catRs.MoveNext
WEND 
%>
</UL>
<% catRs.Close %>
```

Och produktlista:

```
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set prodRs = Server.CreateObject("ADODB.Recordset")
sqlString = "SELECT Artnr, Kategori, Produkt, Utpris FROM Lager WHERE Kategori='" & cat & "'ORDER BY Artnr" 
MinCon.Open "DSN=xxxx;UID=;PWD="
prodRs.Open sqlString, MinCon
%>
<table width="100%" border=0 cellpadding=0 cellspacing=0>
<%
WHILE NOT prodRs.EOF
%>
<link rel=stylesheet href="stil.css" type="text/css">
<body background="bilder/bg_innehall.jpg">

<tr>
  <td width="20px"></td>
  <td width="60px"></td>
  <td><b>
  <a href="product.asp?Nr=<%=prodRs("Artnr")%>"
  <b><%=prodRs("Kategori")%></b></a>
  <br><%=prodRs("Produkt")%>
  <br><br></td>
</tr>

<%
prodRs.MoveNext
WEND
%>

</table>
```

Permalänk: https://www.webforum.nu/p/9410

## #2 — @nders, 2001-05-11T09:39Z

du öppnar ditt connectionobjekt (minCon) i båda filerna, som du dessutom inkluderar på en sida där du dessutom skapar kopplingen högst upp.

dessutom kan jag inte se att du stänger objektet någonstans.

till att börja med: ta bort dina databaskopplingar inne i includefilerna kategorilista och produktlista.

mvh,

Permalänk: https://www.webforum.nu/p/268321

## #3 — PixelFix, 2001-05-11T09:42Z

Hoppsan!
Det här skulle inte hamnat här. Det hör hemma i tråden: (Filen används redan???)

f'låt!

Permalänk: https://www.webforum.nu/p/268322

---

Tråden på webben: https://www.webforum.nu/amne/asp/9410-samma
