---
title: "Antal poster i db..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/106888-antal-poster-i-db"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "wborg"
published: "2004-07-07T20:56:51.000Z"
updated: "2004-08-02T11:27:44.000Z"
replies: 8
views: 404
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/106888-antal-poster-i-db"
---

# Antal poster i db...

## #1 — wborg, 2004-07-07T20:56Z

...har sökt och hittat en del trådar men inte fått det att fungera så nu prövar jag att fråga även om det finns trådar som handlar om detta.

Jag har följande kodsnutt för min db koppling:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/db.mdb")
Set Recset = Connect.execute("SELECT * FROM register ORDER BY namn")
%>
```

det jag nu skulle vilja göra är att räkna ut hur många poster db:n innehåller, någon vänlig själ som kan hjälpa mig med detta?

/Stefan

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

## #2 — Vide, 2004-07-07T21:21Z

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/db.mdb")
Set Recset = Connect.execute("SELECT count(*) FROM register")
Response.Write Recset( 0 )
%>
```

Mvh, Vide

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

## #3 — wborg, 2004-07-07T21:29Z

Hmm men hur sätter jag ut Response.Writeraden där jag vill att värdet ska synas? Jag provade att köra en \<%=Response.Write Recset ( 0 ) %\> men fick då följande meddelande:

Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/projekt/bollar/TMPv0okpi3lw.asp, line 58

/Stefan

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

## #4 — LarsG, 2004-07-07T21:33Z

Posta raderna 50-60 ungefär.

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

## #5 — wborg, 2004-07-07T21:36Z

Postar hela sidan (ca 80 rader).

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/bollar.mdb")
Set Recset = Connect.execute("SELECT count(*) FROM register")
%>

<HTML>
<HEAD>
<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="css.css" media="screen">
<TITLE>Register över bollväskan</TITLE>
</HEAD>
<BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#F6F6F6">

<!-- HUVUDTABELLEN STARTAR //-->

<table cellpadding="10" cellspacing="1" border="0" width="100%" height="50">

   <tr>
     <td colspan="12" style="border: 1px #9F9F9F solid;" bgcolor="#E9B761" height="20">
    
	<b>Register över bollar i klubbväskan</b> _ | _ <a href="add.asp">Lägg till ny boll</a> _ - _ <a href="search.asp">Sök</a> _ - _ Sortera _ | _ Klubbväskan innehåller <%=Response.Write( 0 )%> bollar.

     </td>
   </tr>
   <tr>
      <td height="20"></td>
   </tr>
   <tr bgcolor="#F2C881">
     <td style="border: 1px #9F9F9F solid;" valign="top"><b>Bollnamn:</b></td>
     <td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Färg:</b></td>
     <td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Studs:</b></td>
     <td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Vikt:</b></td>
     <td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Hårdhet:</b></td>
     <td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Storlek:</b></td>
     <td width="50" style="border: 1px #9F9F9F solid;" valign="top"><b>Lack:</b></td>

     <!--<td width="50" style="border: 1px #9F9F9F solid;" valign="top"><b>Utlånad:</b></td>-->
     <!--<td width="50" style="border: 1px #9F9F9F solid;" valign="top"><b>Återlämnad:</b></td>-->
     <td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Ta bort:</b></td>
   </tr>

<% do while not recset.eof 
        i = i + 1
        If i Mod 2 = 0 Then
%>
<tr bgcolor="#CCCCCC">
<% Else %>
<tr bgcolor="#FFFFFF">
<% End If %>

     <td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("namn")%></td><!--Rad 58-->
     <td style="border: 1px #9F9F9F solid;"  valign="top"><%=RecSet("color")%></td>
     <td style="border: 1px #9F9F9F solid;"  valign="top"><%=RecSet("studs")%></td>
     <td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("vikt")%></td>
     <td style="border: 1px #9F9F9F solid;"  valign="top"><%=RecSet("hardhet")%></td>
     <td style="border: 1px #9F9F9F solid;"  valign="top"><%=RecSet("storlek")%></td>
     <td style="border: 1px #9F9F9F solid;"  valign="top"><%=RecSet("lack")%></td>

     <!--<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("utl")%></td>-->
     <!--<td style="border: 1px #9F9F9F solid;"  valign="top"><%=RecSet("inl")%></td>-->
     <td style="border: 1px #9F9F9F solid;"  valign="top"><a href="del.asp?delID=<%=RecSet("id")%>">Ta bort</a></td>
   </tr>

   <%  
   RECSET.MOVENEXT
   LOOP
    %>

</table>

</BODY>
</HTML>
```

PS! Rad 58 är precis efter loopen DS!

/Stefan

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

## #6 — LarsG, 2004-07-07T21:53Z

Du behöver inte använda select count eftersom variabeln i kommer att innehålla antal rader efter loopen.

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

## #7 — wborg, 2004-07-07T21:56Z

Humm hur menar du nu? Det jag vill göra är att skriva ut antalet bollar som finns i klubbens väska på hemsidan, kan jag göra det med hjälp av variabeln i menar du?

Jag är inte så där jättehaj på ASP

/Stefan

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

## #8 — magnusfernstrom, 2004-07-07T22:21Z

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Set RecSet = Conn.Execute("SELECT Count(*) As tabell FROM forum")
%>

<%=RecSet("tabell")%>

<%
RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing
%>
```

Eller?

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

## #9 — wborg, 2004-08-02T11:27Z

Löste det så här:

```
<%
Dim i : i = 0
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/bollar.mdb")
Set Recset = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM register ORDER BY namn"
RecSet.Open sql,Connect,adOpenStatic,adLockReadOnly,adCmdText 
%>
```

och sen där jag ville ha ut värdet:

```
<%= Recset.recordcount %>
```

/S

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/106888-antal-poster-i-db
