---
title: "Räknar antal"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/55185-räknar-antal"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Firegamez.com"
published: "2002-10-05T14:16:17.000Z"
updated: "2002-10-06T19:48:06.000Z"
replies: 22
views: 431
page: 1
pages: 2
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/55185-räknar-antal"
---

# Räknar antal

_Sida 1 av 2._

## #1 — Firegamez.com, 2002-10-05T14:16Z

Hur gör man en simpel räknare som kollar t.ex hut många medlemar man har?!?!?!?
Denna kod fungerar ej:

```
<%SQL = "SELECT Count(*) From users"
Set rs = db.Execute(SQL)
%>
<%=RS.Fields(0) %></b><br>
```

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

## #2 — @nders, 2002-10-05T14:17Z

På vilket sätt fungerar det inte? Det bör det göra.

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

## #3 — Firegamez.com, 2002-10-05T14:21Z

Den säger sätt in "
Prövade den också förut! Då hände inget!

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

## #4 — @nders, 2002-10-05T14:22Z

Huh?

Hur ser felmeddelandet ut? Är du säker på att det är det här kodstycket som åsyftas?

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

## #5 — Firegamez.com, 2002-10-05T14:25Z

Så här säger den:

```

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/community/index.asp, line 191
```

Raderna runt e bara html!

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

## #6 — @nders, 2002-10-05T14:26Z

Ok, då verkar det som att **db** inte är ett giltigt connectionobjekt.

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

## #7 — Firegamez.com, 2002-10-05T14:33Z

ok! Men nu har jag flyttat runt så här ser det ut nu! Databas stängningen finns längre ner!

```
<%
Option Explicit
Dim sql,username,rsUser,rsMessages,newcount,totalcount,db,rs,usercount,se

username = Request.Cookies("username")

'If the username cookie is set, they must have logged in, so get their details from the database
if username <> "" then
%>
<!--#include file="conn.asp"-->
<%
se=request("se")
if se="" then
	se=username
end if
%>
<%
  sql = "SELECT icon FROM Users WHERE username = '" & username & "'"
  Set rsUser = Server.CreateObject("ADODB.Recordset")
  rsUser.Open sql, conn, 3, 3
  
  sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'"
  Set rsMessages = Server.CreateObject("ADODB.Recordset")
  rsMessages.Open sql, conn, 3, 3
  
  newcount = 0
  totalcount = 0
  if not rsMessages.EOF then
	do until rsMessages.EOF
	totalcount = totalcount + 1
		if rsMessages("messageread") = False then
			newcount = newcount + 1
		end if
		rsMessages.Movenext
	loop
	rsMessages.Movefirst
  end if
end if
%>
<%SQL = "SELECT Count(*) From users"
Set rs = db.Execute(SQL)
%>
<%=RS.Fields(0) %>
```

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

## #8 — @nders, 2002-10-05T14:36Z

Du har fortfarande inget connectionobjekt som heter **db**. På andra ställen i koden använder du **conn** som objektnamn.

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

## #9 — Firegamez.com, 2002-10-05T14:40Z

Tänk att det kunde va så lätt! tack så mycket! Bjuder dig på detta :birp Hare gött!

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

## #10 — CatZ, 2002-10-05T14:49Z

hehe Ser nästan ut som mitt 

```php
dbCom.Execute(SQL)
```

 :P

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

## #11 — Firegamez.com, 2002-10-05T14:56Z

Har en fråga till! Hur gör man om man vill räkna i en tabell som ovan men i en viss kolumn??? t.ex vilka som har gjort mest inlägg i forumet! Den kolumnen heter topics!

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

## #12 — @nders, 2002-10-05T14:58Z

Plockar fram den som gjort flest inlägg:

```
SQL = "SELECT TOP 1 username, count(*) FROM topics GROUP BY username ORDER BY 2 DESC"
```

Du får rätta till fältnamn och ändra så du får så många poster du vill ha.

Mvh,

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

## #13 — Firegamez.com, 2002-10-05T15:45Z

Inget händer! Jag tog koden och klistrade in den! Men inget hände! Posts(Inte topics) räknar med siffror! Och ligger i tabellen users!
Skulle vilja att det stod så här:
Namn             Inlägg
KeNNy             15
MooNiZ            7
??????             4

åsså vidare!

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

## #14 — Firegamez.com, 2002-10-05T16:41Z

Jag fixade det med denna kod!

```
<%
SQLsats = "SELECT TOP 10 * FROM users ORDER BY posts DESC"

Set Rs = Conn.Execute(SQLsats)
Do Until Rs.EOF
Response.Write "<tr>"
Response.Write "<td width=70 align=left><font size=""1"">" & Rs("username") & "</td>"
Response.Write "<td width=40 align=center><font size=""1"">" & Rs("posts") & "</td>"
Response.Write "</tr>"
Rs.MoveNext

Loop

Rs.Close
Conn.Close
Set RS = nothing
Set Conn = nothing 

%>
```

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

## #15 — Firegamez.com, 2002-10-05T17:09Z

Suck fel på första frågan! så här är det! Lägger jag denn innaför if taggarna fungerar räkne koden! Men utanför säger den bara att den vill ha "
If taggarna visar olika saker om man är in eller utloggad

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

## #16 — LarsG, 2002-10-05T17:14Z

Vilka if? Visa bara den kod där du får fel.

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

## #17 — Firegamez.com, 2002-10-05T17:17Z

Här:

```
<%'If they're not logged in, then display a login box
if username = "" then%>
<tr>
  <th width="175" height="5" background="images/backup.JPG"><font size="1">Logga in</font></th>
</tr>
<tr bgcolor="#F3F3F3">
  <form name="login" action="signin.asp" method="post">
  <input type="hidden" name="page" value="index.asp">
  <td align="center" width="175" height="117" background="images/back.JPG">
  <font size="1"><b>Användarnamn</b></font><font face="arial,helvetica" size=1><b> 
  : 
  <input type="text" name="username" size="12" style="font-size: 8pt; font-family: Tahoma, Verdana Arial, Helvetica, sans-serif;"><br>
  Lösenord :&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  <input type="password" name="password" size="10" style="font-size: 8pt; font-family: Arial, Helvetica, sans-serif;"><br>
  Kom ihåg mig : <input type="checkbox" name="stayloggedin" value="yes"><br>
  <input type="submit" value="Logga in" style="font-size: 8pt; font-family: Arial, Helvetica, sans-serif;"><br>
  <a href="pwd_forget.asp">Jag har glömt 
  mitt lösenord</a><br>
  -<br>
  <a href="signupform.asp">Bli medlem</a>
  </b></font>
  </td>
  </form>
</tr>
<%'If they are, show a mini profile box plus a sign out link
else%>
<tr>
  <th width="175" height="2" background="images/backup.JPG"><font size="1">Välkommen</font></th>
</tr>
<tr bgcolor="#F3F3F3">
  <td width="175" height="1" background="images/back.JPG">
  <b>
  <font face="arial,helvetica" size=1>
  <img src="icons/<%=rsUser("icon")%>.gif" width=50 height=50 align="right"> </font>
  <font face="arial,helvetica" size=2>Välkommen</font><font face="arial,helvetica" size=1><font size=2> <%=username%></font><br><br>
  <a href="javascript:popup('profile.asp',360,400)">Visa/ÄndraProfil</a><br>
  <a href="myposts.asp">Mina inlägg</a><br>
  <a href="dagbok.asp?se=<%=username%>">Dagbok</a><br>
  <a href="gb.asp">Gästbok</a><br>
  <a href="userview.asp">Visa medlems lista</a><br>
  <a href="inbox.asp">Min Inbox (<%=newcount%> 
  nya, <%=totalcount%> totala)</a><br>
  <a href="signout.asp">Logga ut</a> </font>
  </b>
  </td>
</tr>

</table>

</font>
</font>
<font face="Arial" size=2>

<table width="426" cellpadding=4 cellspacing=1 border=0 bgcolor="#000000" align="center" height="1">
<tr>
<th width="467" height="1" background="images/backup.JPG">
<font size="1">Nyheter</font></th>
</tr>

</font>
<font face="arial,helvetica" size=2>

<font face="arial,helvetica" size=2>

<tr bgcolor="#F3F3F3">
<td align="center" width="467" height="86" background="images/back.JPG">
</font>
<font face="arial,helvetica" size=2>

<p>
  <p align="left"><font size="1">Välkommen till Firegamez Community! Det kommer 
  att komma mer funktioner med tiden! Får se om jag får den att fungera. Den 
  nyaste funktionen är ladda upp foto! Just nu jobbar vi med poäng och små 
  saker!!</font></p>
  <p align="left"><font size="1">Om ni kryssar i &quot;Kom ihåg mig&quot;, så kommer vi 
  som sagt komma ihåg dig! Då är du in loggad varje gång du kommer till 
  Firegamez! (Klicka bara i den om ni sitter vid din egna dator! Om du klickar i 
  det t.ex på en skol dator, så kommer alla in på din profil!) Så 
  hoppas ni får det bra här på Firegamez!</font></p>
  </font>
<font face="arial,helvetica" size=1>

  <p align="right">Denna sida fungerar bäst i 800x600</p>

  <p align="left">

Antal medlemar: 
Vill ligga innanför if taggarna-->[B]<%SQL = "SELECT Count(*) From users"
Set rs = conn.Execute(SQL)
%>
<%=RS.Fields(0) %>
</b><br></p>
</b><br></p>[/B]

<%
rsUser.close
set rsUser = nothing
rsMessages.close
set rsMessages = nothing
conn.close
set conn = nothing
end if%>
```

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

## #18 — LarsG, 2002-10-05T18:07Z

Exakt vilket fel får du och vilken rad?

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

## #19 — Firegamez.com, 2002-10-05T18:40Z

Menar du om jag lägger det utanför?!?!?!?!
Då får jag fram att jag ska lägga till " på denna rad:
Set rs = conn.Execute(SQL)

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

## #20 — m_soderlund, 2002-10-06T10:21Z

Denna koden fungerar också:

\<% Dim SQL, Rs
SQL = "Select Count(\*) As iCount From dintabell"
Set Rs = Cn.Execute(SQL)
Response.Write Rs("iCount") %\>
Du måste ha ett connectionobjekt som heter Cn också..

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/55185-räknar-antal  
Nästa sida: https://www.webforum.nu/amne/asp/55185-räknar-antal/page2.md