webForumDet fria alternativet

räkna poster från datum

ASP

11 svar · 452 visningar · startad av Ramboo

Medlem sedan apr. 200516 inlägg
Frågan#1

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???

Medlem sedan juni 2004533 inlägg
#2

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?

Medlem sedan apr. 200516 inlägg
#3

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

Medlem sedan juni 2004533 inlägg
#4

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 & "#"

Medlem sedan apr. 200516 inlägg
#5

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...

Medlem sedan juni 2004533 inlägg
#6

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

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

Medlem sedan apr. 200516 inlägg
#7

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.

Medlem sedan juni 200032 967 inlägg
#8

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

Medlem sedan apr. 200516 inlägg
#9

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
%>

Medlem sedan apr. 200516 inlägg
#10

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..

Medlem sedan juni 2004533 inlägg
#11

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

Medlem sedan apr. 200516 inlägg
#12

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>"
%>
259 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)