---
title: "räkna poster från datum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/127350-räkna-poster-från-datum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ramboo"
published: "2005-04-29T13:31:06.000Z"
updated: "2005-05-02T03:26:54.000Z"
replies: 11
views: 458
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/127350-räkna-poster-från-datum"
---

# räkna poster från datum

## #1 — Ramboo, 2005-04-29T13:31Z

jo jag håller på gör en count funktion som ska räkna antal poster från ett vist datum det har jag fått att funka men den ska även följa med då nästa datum och räkna ut antal poster med det datum lite som denna.

\<%
Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open Conn_String
sql2 = "SELECT \* FROM start order by ID desc"
Set rs2 = Connect2.Execute(sql2)
plats = rs2("platser")
datum = rs2("datum")
%\>
\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open Conn_String
SQL = "Select Count (\*) As Antal From tun where datum=" & Datum
Set RS = Connect.Execute(SQL)
antal = rs("antal")
%\>
\<%
If RS2("Datum") \> Date() OR RS2("slut") \> Date() Then 
     Response.Write "\<span class=""myStyle""\>Anmälda ("& Antal & " st av totalt "& plats &" st)\</span\>"
Else
     Response.write "\<span class=""myStyle""\>Bordet är fullt\</span\>"
End If
%\>

Fast denna skriver bara ut antal plaster min inte hur måga som anmält sig till det datum. + att jag har bara 1 databas och då är det ju onödigt att öppna 2..

Någon som kan hjälpa mig lite???

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

## #2 — Guffa, 2005-04-29T16:34Z

Vad menar du med att den inte skriver ut hur många som anmält sig? Den skriver ju visst ut antalet. Menar du att den visar fel antal?

Vad är det för datatyp på fältet datum?

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

## #3 — Ramboo, 2005-04-29T17:04Z

Dags för turnering Bara -6 dagar kvar Anmälda (0 st av totalt 8 st) på det datum som finns nu i databasen

skriver den ut och inte 8 st av totalt 8 då det finns 8 poster av det datum i databaen..

den är instäld på datum/tid i db

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

## #4 — Guffa, 2005-04-29T17:45Z

Då måste du ju lägga in datumet som ett datum i SQL-frågan:

SQL = "Select Count (\*) As Antal From tun where datum='" & Datum & "'"

eller om du använder Access:

SQL = "Select Count (\*) As Antal From tun where datum=#" & Datum & "#"

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

## #5 — Ramboo, 2005-04-29T17:49Z

jo nu funkar den men sedan då jag lägger in en ny med nytt datum så blir det 0 av 

<http://85.226.56.226/Poker/start/tid.asp>
kolla på denna länk..

så får du se hur det blir...

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

## #6 — Guffa, 2005-04-29T19:46Z

Det säger ju inte så mycket bara att se resultatet.

Hur skiljer det sig ifrån vad du förväntar dig?

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

## #7 — Ramboo, 2005-04-29T20:28Z

jag får ju den att skriva ut resultat då det bara är en en post med det datum den ska ta men när det kommer en till post så med annat datum står det lika dant på den post under som ovan
då jag vill att det ska stå hur många det är i varge turnering.

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

## #8 — @nders, 2005-04-30T18:14Z

Hur ser din kod ut nu?
Hur ser innehållet i tabellen *tun* ut?

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

## #9 — Ramboo, 2005-04-30T22:28Z

i tun finns
id
namn
alder
datum
ip
stad
mail

och i start

id
pris
datum 
ip
vart
med
tid
slut
platser

Så ser det ut..
och koden ser ut
\<%
Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open Conn_String
sql2 = "SELECT \* FROM start order by id desc"
Set rs2 = Connect2.Execute(sql2)
plats = rs2("platser")
Datum = rs2("datum")
%\>
\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open Conn_String
SQL = "Select Count (\*) As Antal From tun where datum=#" & Datum & "#"
Set RS = Connect.Execute(SQL)
Antal = rs("Antal")
%\>
\<%
If RS2("slut") \> Date()Then 
     Response.Write "\<span class=""myStyle""\>Anmälda ("& Antal & " st av totalt "& plats &" st)\</span\>"
Else
     Response.write "\<span class=""myStyle""\>Inga anmälningar tas nu\</span\>"
End If
%\>

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

## #10 — Ramboo, 2005-05-01T16:58Z

Asså det funkar nu om man bara har en turnering inlagd med ett datum men ska jag lägga in en till turnering så blir det fel. då är det 0 anmälda på båda och 25 st tävlande på båda då hur man kan lösa det..

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

## #11 — Guffa, 2005-05-01T20:10Z

Den där koden skriver inte ut mer än en turnering. Har du inte en loop också?

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

## #12 — Ramboo, 2005-05-02T03:26Z

Här kommer hela min kod till den sidan
Vart ska jag ha loopen som du säger 
Jag har glömt bort den helt.
vill du visa.

```
<%Response.Buffer = True%>
<!--#include file="../inc_settings.asp" -->
<!-- #include file="adovbs.inc" -->
<%
Set Connect1 = Server.CreateObject("ADODB.Connection") 
Connect1.Open Conn_String
sql2 = "SELECT * FROM start order by datum desc"
Set rs = Connect1.Execute(sql2)
plats = rs("platser")
Datum = rs("datum")
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open Conn_String
SQL = "Select Count (*) As Antal From tun where datum=#" & Datum & "#"
Set RS2 = Connect2.Execute(SQL)
Antal = rs2("Antal")
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title>Tider</title>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
Response.Write "<link href=""../stil.css"" rel=""stylesheet"" type=""text/css"">"
Response.Write "</head>"
Response.Write "<body bgcolor=""#FFFFFF"" link=""#000000"" vlink=""#000000"" alink=""#000000"">"
do until RS.EOF
Response.Write "<tr valign=""top"">"
Response.Write "<td width=""300"">"
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000"" frame=""HSIDES"">"
Response.Write "<tr>"
Response.Write "<td colspan=""2"" bgcolor=""#003366""><div align=""center""><font color=""#FFFFFF"">Dags f&ouml;r turnering Bara"&DateDiff("d",rs("datum"),now)&"dagar kvar"
If RS("slut") > Date()Then 
Response.Write "Anmälda ("& Antal & " st av totalt "& plats &" st)"
Else
Response.write "Inga anmälningar tas nu"
End if
Response.Write "</font></div>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr> "
Response.Write "<td width=""35%"">Sista anm&auml;lningsdag</td>"
Response.Write "<td width=""65%"">"&rs("slut")&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""35%"">Datum f&ouml;r spel:</td>"
Response.Write "<td width=""65%"">"&rs("datum")&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""35%"">Tid :</td>"
Response.Write "<td width=""65%"">"&rs("tid")&"</td>"
Response.Write "</tr>"
Response.Write "<tr> "
Response.Write "<td width=""35%"">Vart :</td>"
Response.Write "<td width=""65%"">"&rs("vart")&"</td>"
Response.Write "</tr>"
Response.Write "<tr> "
Response.Write "<td width=""35%"">Pris :</td>"
Response.Write "<td width=""65%"">"&rs("pris")&"</td>"
Response.Write "</tr>"
Response.Write "<tr> "
Response.Write "<td width=""35%"" valign=""top"">Med :</td>"
Response.Write "<td width=""65%"" valign=""top"">"&rs("med")&"</td>"
Response.Write "</tr><tr bgcolor=""#CCCCCC""> "
Response.Write "<td colspan=""2"" valign=""top""></td></tr>"
Response.Write "</table>"
RS.MoveNext
Loop
RS.Close
Connect1.Close
Set RS = nothing
Set Connect1 = nothing
Response.Write "</body>"
Response.Write "</html>"
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/127350-räkna-poster-från-datum