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?
11 svar · 452 visningar · startad av Ramboo
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???
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?
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
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 & "#"
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...
Det säger ju inte så mycket bara att se resultatet.
Hur skiljer det sig ifrån vad du förväntar dig?
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.
Hur ser din kod ut nu?
Hur ser innehållet i tabellen tun ut?
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
%>
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..
Den där koden skriver inte ut mer än en turnering. Har du inte en loop också?
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ö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älningsdag</td>"
Response.Write "<td width=""65%"">"&rs("slut")&"</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""35%"">Datum fö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>"
%>