Tælle poster, som machter - SQL-spørgsmål

Måske noget lignende det her...

strSQL = "Select Count(post_parent) AS amount FROM debat Where post_parent = '" & emneID & "'"
Set rs = Conn.Execute(strSQL)

Det der mangler er den lille del som siger at post_parent skal være det samme som emneID(emneID er her skrevet som en variabel du kan selv ændre det hvis du har lyst)

EmneID = request("EmneID")
strSQL = "Select Count(post_parent) AS amount FROM debat WHERE post_parent = "&EmneID&""

-master-d- > du mangler at slette ' når du henter EmneID ind i SQL strengen. Hvis feltet er et heltal skal der ikke være apostroffer...

/Gangsta

Hej igen, master-d!

Jeg har forøvrigt dette stående i forvejen, hvordan skal det flettes ind?:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT TOP 25 * FROM debat WHERE post_parent = 0 ORDER BY emneID DESC"
Set RS = Conn.Execute( SQL )

strSQL = "Select Count(post_parent) AS amount FROM debat Where post_parent = '" & emneID & "'"
Set rs = Conn.Execute(strSQL)

    response.write "<tr><td valign=""top"" width=""50%""><span class=""tekst11""><b>" & "Emne" & "</b></span></td>"
    response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><b><p align=""center"">" & "Bsv" & "</p></b></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><b>" & "Oprettet" & "</b></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><b>" & "Besvaret" & "</b></span></td></tr>"

while NOT RS.EOF
    tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

    response.write "<tr><td valign=""top"" width=""50%""><span class=""tekst11""><a href=""/members/debat/debatemne.asp?emneID=" & RS("emneID") & """>" & RS("emne") & "</a></span></td>"
    response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><p align=""center"">" & rs("amount") & "</p></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td></tr>"
   
    RS.MoveNext
    text=""
wend

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Virker det ikke eller hvad?

Nej, det gør det ikke. Jeg har prøvet at rette lidt:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT TOP 25 * FROM debat WHERE post_parent = 0 ORDER BY emneID DESC"
strSQL = "SELECT COUNT(post_parent) AS amount FROM debat Where post_parent = '" & emneID & "'"
Set RS = Conn.Execute( SQL )

    response.write "<tr><td valign=""top"" width=""50%""><span class=""tekst11""><b>" & "Emne" & "</b></span></td>"
    response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><b><p align=""center"">" & "Bsv" & "</p></b></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><b>" & "Oprettet" & "</b></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><b>" & "Besvaret" & "</b></span></td></tr>"

while NOT RS.EOF
    tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

    response.write "<tr><td valign=""top"" width=""50%""><span class=""tekst11""><a href=""/members/debat/debatemne.asp?emneID=" & RS("emneID") & """>" & RS("emne") & "</a></span></td>"
    response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><p align=""center"">" & rs("amount") & "</p></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td>"
    response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td></tr>"
   
    RS.MoveNext
    text=""
wend

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

- som giver flg. fejl:

ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.

/members/debat/lst_debat.asp, line 28



Linie 28:

response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><p align=""center"">" & rs("amount") & "</p></span></td>"

Hov, nu er den der vist? Prøver at oprette/besvare.

Nej, fejlmeddelelsen forsvandt af en eller anden årsag, men der er ingen sammentællinger. Og besvarelserne ligger i databasen.

Og besvarelserne bliver trukket ud på siden som de skal.

UNDSKYLD, jeg sover! Jeg havde sat ' foran de to sætninger, som gav problemer. Fejlmeddelelsen er der stadig.

RS indeholder ikke feltet amount, da du har åbnet RS baseret på det første statement SQL og ikke strSQL.

Prøv i stedet med denne:

SQL = "SELECT TOP 25 *, (SELECT COUNT(*) FROM debat d2 Where d2.post_parent = d1.post_parent) AS Amount FROM debat d1 WHERE post_parent = 0 ORDER BY emneID DESC"

og slet så bare strSQL

Jeg fik lidt hjælp fra en kammerat:

SQL = "SELECT debat.emneID, debat.post_parent, debat.nick, debat.emne, debat.brodtekst, debat.kommentar, debat.tid, debat.hits, debat.url, Count(debat_1.emneID) AS CountOfemneID, Max(debat_1.tid) AS MaxOftid FROM debat AS debat_1 RIGHT JOIN debat ON debat_1.post_parent=debat.emneID GROUP BY debat.emneID, debat.post_parent, debat.nick, debat.emne, debat.brodtekst, debat.kommentar, debat.tid, debat.hits, debat.url HAVING (((debat.post_parent)=0));"

response.write "<td valign=""top"" width=""10%""><span class=""tekst11""><p align=""center"">" & RS("CountOfemneID") & "</p></span></td>"

response.write "<td valign=""top"" width=""20%""><span class=""tekst11""><nobr>" & rs("MaxOfTid") & "</nobr></span></td></tr>"

Og det virker. Tak for hjælpen :o)

Forøvrigt! Hvis det er ok for dig, har jeg et lille tillægsspørgsmål:

Hvis brugeren indtaster 8 cifre (tlf.nr.), kan man dele det op i 4 klaser á 2 cifre i hver, hvis du forstår. Hvordan deler jeg det op, så det bliver vist i 2 klaser á cifre istedet?

Jeg sætter lige point op, hvis det er ok for dig. Eller skal jeg oprette et nyt spm? :o)

Forkert tråd