Hjælp til kodning af forum

strSQL = "SELECT COUNT(indlaegid) as antal FROM indlaeg"

så kan du hive antal ud af dit recordset og for antallet af indlæg..

hvordan forbinder du indlæg tabellen med user tabellen?

hvilke kolonne navne?

umiddelbar tror jeg faktisk det vil virke hvis bare du retter din første sql til

strSQL = "SELECT navn,COUNT(indlaegid) as antal FROM indlaeg"

forkert! nu spammer jeg dig total (beklager)

den sql tager som sagt bare og tæller antal indlæg..

hvis du retter denne
SELECT * FROM indlaeg order by indlaegid desc
til
SELECT navn,emne,MAX(indlaegid) FROM indlaeg

så burde det virke.

Hey kalp

Når jeg skifter den sætning ud, som du foreslog, fik jeg denne fejl:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "navn" som en del af en aggregatfunktion.

Hvad går der galt...

ja du skal jo lige rette hvad den skal trække ud af kolonnenavne i din tabel;)
jeg er ikke synsk hehe

Det er i denne linje fejlen ligger:

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Kan bare ikke se hvad der er galt..

som du kan se skriver jeg navn og emne i denne sql.. ændre navnene så de passer til tabellen indlaegs' kolonne navne

SELECT navn,emne,MAX(indlaegid) FROM indlaeg

Tror jeg har fundet fejlen...

Mine svar ligger i en anden tabel, ved navn svar...

Er det ikke der problemet ligger???

Jeg har ingen anelse om hvordan din database er opbygget og hvor dine data ligger gemt... kan se lidt i koden.

Hvis du ikke har en tabel kaldet indlaeg men svar så er det et problem ja.

Jeg har to tabeller.

En til at gemme indlæggene og en til at gemme svarene...

Skal de ligge i den samme tabel, for at man kan få vist hvor mange svar der er??

næh.. det fint de ligger i hver sin..

hvad med at du skriver hvilke kolonner der findes i de 2 tabeller?

jeg skal gå nå, men så kan jeg da i det mindste svare senere når jeg ved hvordan din db ser ud;)

Her er indholdet i tabellerne:

Indlaeg:
Navn - personen som har oprettet indlægget
Emne
Indlaeg - Teksten
Dato
Tid
indlageID - ID til indlægget

Svar:
ID
Emne - RE: Emnenavn
Navn - Personen der har oprettet svaret
Svar - Teksten
IndlaegID - hvilket indlæg de hører til
Dato
Tid

SELECT COUNT(indlageID) as antal FROM Indlaeg

til at hente antal indlæg... hvis dette er stavet rigtigt
indlageID - ID til indlægget

ellers skal det være

SELECT COUNT(IndlaegID) as antal FROM Indlaeg


til at hente hvem der sidst har svaret kan du lave denne SQL

SELECT Emne, Navn, Svar MAX(ID) as sidste FROM Svar WHERE ID = sidste;

lidt uoverskuelig kode her på E, så har lige skåret lidt i din kode bare så vi kan teste om det virker... prøv det her.. og huske at rette  COUNT(indlageID) til COUNT(IndlaegID) hvis det bare var en stave fejl


<%Set id = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(indlageID) as antal FROM Indlaeg"
id.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>

Antal indlæg = <%=id("antal")%>

<%
dim id

    Set indlaeg = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT Emne, Navn, Svar MAX(ID) as sidste FROM Svar WHERE ID = sidste"
    indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>


<%
do until indlaeg.eof
%>

<tr bgcolor="white">                            <td>
&nbsp;<a href=indlaeg.asp?id=<%=indlaeg("indlaegid")%>><%=indlaeg("emne")%></a>    </td>                                <td>                                    Antal Svar                                </td>                                <td>                                <%=indlaeg("navn")%>                            </td>                                <td>                                Seneste Svar                            </td>
</tr>
<%indlaeg.movenext
loop%>
<%end if%>

Det vil sige at:
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg order by indlaegid desc"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Skal skiftes ud med:
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(indlageID) as antal FROM Indlaeg"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Og til sidste svar skal jeg lave denne:
Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn, Svar MAX(ID) as sidste FROM Svar WHERE ID = sidste;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic


Er det rigtig??

yep

Når jeg tjekker det i browseren, får jeg denne besked:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.

Fejlen ligger i denne linje:
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

på denne her????

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(indlageID) as antal FROM Indlaeg"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic


for så ville jeg jo foreslå a ud retter indlageID som jeg gjorde dig opmærksom på i mit indlæg før

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal FROM Indlaeg"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Fandt fejlen..

Taste fejl, skrev indlage istedet for indlaeg..

Nu får jeg tilgengæld at vide at:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl, fordi der mangler en operator i forespørgselsudtrykket "Svar MAX(ID)".

Har skrevet dette:
Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn, Svar MAX(ID) as sidste FROM Svar WHERE ID = sidste;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn, Svar MAX(IndlaegID) as sidste FROM Svar WHERE ID = sidste;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Den siger stadig det samme...

Fejlen, efter linjenummeret, ligger i:
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TOP 1 Emne, Navn,svar, dato FROM Svar;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

sorry..

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TOP 1 Emne, Navn,svar, dato,IndlaegID FROM Svar ORDER BY IndlaegID DESC;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Nu kan jeg se siden, men den fungere ikke helt rigitigt..

Istedet for at vise hvor mange svar der er for hvert indlæg, giver den antallet af svar der overhovedet er..

Samtidig viser den kun det nyeste svar, og ikke den nyeste for hvert indlæg...

Kan det lade sig gøre???

Denne kode regner heller ikke ud hvor mange svar der er:
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(indlaegID) as antal FROM indlaeg"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Men hvor mange inlæg der er, hvilket jo ikke helt var meningen

okay... det sådan jeg forstod det.. men kun fordi din navngivning på tabellerne er dårlig=)

et indlæg er det samme som et svar i mine øjne.. men ja så skal der jo laves om i tingene... nu skal jeg i hvertfald lige spise

Helt i orden...

tæller denne dine svar?


<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(svar.indlaegid) as antal, indlaeg.emne as Emne FROM indlaeg, svar WHERE svar.indlaegid = indlaeg.indlaegid ORDER BY indlaeg.indlaegid desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne: <%=indlaeg("Emne")%><br /><br />
<%indlaeg.movenext
loop%>

Hvad skal den erstatte??

Har jo disse:
<%
dim id
id=request.querystring("id")

if id="" then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(indlaegID) as antal FROM indlaeg"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

i=1
a=0

Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From indlaeg order by indlaegid desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   
Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TOP 1 Navn, Tid, dato,IndlaegID FROM Svar ORDER BY IndlaegID desc"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>

kan du ikke lave en helt ny side og så bare lige teste koden seperat?

for den bruger intet af det du har laet.. bare test kode.

om ikke andet skal erstatte

if id="" then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(indlaegID) as antal FROM indlaeg"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Har prøvet at køre den i en side for sig selv..

Giver denne fejlbesked:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "Emne" som en del af en aggregatfunktion.
/varde/test.asp, line 7


Linjenummeret, siger at fejlen ligger i:
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(svar.indlaegid) as antal, indlaeg.emne FROM indlaeg, svar WHERE svar.indlaegid = indlaeg.indlaegid ORDER BY indlaeg.indlaegid desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne: <%=indlaeg("Emne")%><br /><br />
<%indlaeg.movenext
loop%>

Den siger stadig det samme..

men dette giver dig vel antallet men uden emne?

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(svar.indlaegid)FROM indlaeg, svar WHERE svar.indlaegid = indlaeg.indlaegid ORDER BY indlaeg.indlaegid desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
<%indlaeg.movenext
loop%>

Nu siger den dette:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "indlaeg.indlaegID" som en del af en aggregatfunktion.

Hele koden er:

<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(svar.indlaegID)FROM indlaeg, svar WHERE svar.indlaegID = indlaeg.indlaegIDd ORDER BY indlaeg.indlaegID desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
<%indlaeg.movenext
loop%><!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(svar.indlaegID)FROM indlaeg, svar WHERE svar.indlaegID = indlaeg.indlaegIDd ORDER BY indlaeg.indlaegID desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
<%indlaeg.movenext
loop%>

Kom til at kopire koden to gange:
<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(svar.indlaegID)FROM indlaeg, svar WHERE svar.indlaegID = indlaeg.indlaegIDd ORDER BY indlaeg.indlaegID desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
<%indlaeg.movenext
loop%>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(svar.indlaegid) as antal FROM svar ORDER BY indlaeg.indlaegid desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
<%indlaeg.movenext
loop%>

okay.. den der gør så

Ked af at sige det, men nu siger den dette:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.


Koden:
<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(svar.IndlaegID) as antal FROM svar ORDER BY indlaeg.indlaegID desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>

Antal: <%=indlaeg("antal")%> <br />

<%indlaeg.movenext
loop%>

skal vi prøve at skære det ud i pak så hehe


<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) FROM svar ORDER BY IndlaegID desc"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("IndlaegID")%> <br />

<%indlaeg.movenext
loop%>

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "IndlaegID" som en del af en aggregatfunktion.
/varde/test.asp, line 7

Den her skal køre

<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) FROM svar"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("IndlaegID")%> <br />

<%indlaeg.movenext
loop%>

Nu kan den ikke finde IndlaegID fra svar tabellen, og jeg er sikker på at jeg har stavet det rigtig da jeg har kopiret navnet direkte fra Acces..

Hvis jeg fjerner COUNT(IndlaegID) kan den sagtens finde IndlaegID...

men du kan ikke sådan her??


<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal FROM svar"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />

<%indlaeg.movenext
loop%>

<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal FROM svar"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />

<%indlaeg.movenext
loop%>

Virker nu...

usorteret... men virker det


<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<% Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg "
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn,svar, dato,IndlaegID FROM Svar ;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal FROM svar"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne:  <%=rs("emne")%> <br />
Nyeste: <%=svar("Navn")%> <br />
<%indlaeg.movenext
rs.movenext
svar.movenext
loop%>

Det virker... Selvføllgelig usorteret, men det virker

tror vi skal prøve os lidt frem med sorteringen.. det er det med antal som måske vil brokke sig=)


<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<% Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg ORDER BY IndlaegID desc"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn,svar, dato,IndlaegID FROM Svar ORDER BY IndlaegID desc;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal FROM svar ORDER BY IndlaegID"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne:  <%=rs("emne")%> <br />
Nyeste: <%=svar("Navn")%> <br />
<%indlaeg.movenext
rs.movenext
svar.movenext
loop%>

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "IndlaegID" som en del af en aggregatfunktion.
/varde/test.asp, line 69

Fejlinje:
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

<% Response.Buffer = True %>

<% Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg ORDER BY IndlaegID desc"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn,svar, dato,IndlaegID FROM Svar ORDER BY IndlaegID desc;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal,IndlaegID  FROM svar ORDER BY IndlaegID"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne:  <%=rs("emne")%> <br />
Nyeste: <%=svar("Navn")%> <br />
<%indlaeg.movenext
rs.movenext
svar.movenext
loop%>

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "IndlaegID" som en del af en aggregatfunktion.
/varde/test.asp, line 15

Fejlinie:
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

tror ikke man kan gøre det sådan.. men må lige prøve

<% Response.Buffer = True %>

<% Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg ORDER BY IndlaegID desc"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn,svar, dato,IndlaegID FROM Svar ORDER BY IndlaegID desc;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal,IndlaegID as indid  FROM svar ORDER BY indid"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne:  <%=rs("emne")%> <br />
Nyeste: <%=svar("Navn")%> <br />
<%indlaeg.movenext
rs.movenext
svar.movenext
loop%>

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "indid" som en del af en aggregatfunktion.
/varde/test.asp, line 15

Fejlinie:
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

<% Response.Buffer = True %>

<% Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg ORDER BY IndlaegID desc"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn,svar, dato,IndlaegID FROM Svar ORDER BY IndlaegID desc;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal FROM svar WHERE svar IN (SELECT IndlaegID FROM svar ORDER BY IndlaegID"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne:  <%=rs("emne")%> <br />
Nyeste: <%=svar("Navn")%> <br />
<%indlaeg.movenext
rs.movenext
svar.movenext
loop%>

men tvivler faktisk på det virker..

<% Response.Buffer = True %>

<% Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg ORDER BY IndlaegID desc"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set svar = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn,svar, dato,IndlaegID FROM Svar ORDER BY IndlaegID desc;"
svar.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT COUNT(IndlaegID) as antal, IndlaegID FROM svar WHERE IndlaegIDIN (SELECT IndlaegID FROM svar ORDER BY IndlaegID"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne:  <%=rs("emne")%> <br />
Nyeste: <%=svar("Navn")%> <br />
<%indlaeg.movenext
rs.movenext
svar.movenext
loop%>

strSQL = "SELECT COUNT(IndlaegID) as antal, IndlaegID FROM svar WHERE IndlaegID IN (SELECT IndlaegID FROM svar

Der manglede et mellemrum i den

Mangler der ikke ) efter FROM svar???

strSQL = "SELECT COUNT(IndlaegID) as antal, IndlaegID FROM svar WHERE IndlaegID IN (SELECT IndlaegID FROM svar ORDER BY IndlaegID)"

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Du har forsøgt at køre en forespørgsel, der ikke medtager det angivne udtryk "IndlaegID" som en del af en aggregatfunktion.

vi kan også gre det anderledes...

i denne tabel  " indlaeg " opretter vi et tal felt kaldet antal..
og hver gang der oprettes et svar så tælles denne kolonne 1 op..

er det fint med dig?? det er lettere end det andet og så har du kun 2 databasekald istedet for 3

Kan vi godt prøve, opretter en kolonne der hedder antal i tabellen indlaeg

fint... må jeg se koden der hvor du indsætter svar i databasen?

<%
i=1

a=a+1

dim id
id=Request.QueryString("ID")
svarid="0"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM svar WHERE IndlaegID="&ID&""
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set rs2 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg WHERE IndlaegID="&ID&""
rs2.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if i=1 then
bg="#FFFFFF"
i=0
else
bg="#eeeeee"
i=1
end if

%>
                                <tr>
                                    <td colspan="4" class="topoverskrift">
                                        &nbsp;<%=rs2("emne")%>
                                    </td>
                                </tr>
                                <tr>
                                    <td valign="top" width="15%">
                                        <%=rs2("Navn")%>
                                        <br>
                                        <%=rs2("dato")%><br>
                                        <%=rs2("tid")%>
                                    </td>
                                    <td width="1px" bgcolor="#004277">
                                    </td>
                                    <td width="3px">
                                    </td>
                                    <td valign="top" width="300">
                                        <%=rs2("indlaeg")%>
                                    </td>
                                </tr>
                                <tr>
                                    <td height="1px" bgcolor="#004277" colspan="4">
                                    </td>
                                </tr>
                                <tr>
                                    <td height="10">
                                    </td>
                                </tr>
<%if rs.eof then%>
<tr>
    <td colspan="4">
        Der er ikke svaret på denne tråd. Vær den første til at svare.
    </td>
</tr>
<tr>
    <td height="10">
    </td>
</tr>
<%else
do while not rs.eof
svarid=svarid+1%>
                                <tr>
                                    <td colspan="4" class="topoverskrift">
                                        &nbsp;Svar #<%=svarid%>
                                    </td>
                                </tr>
                                <tr>
                                    <td valign="top" width="15%">
                                        <%=rs("Navn")%>
                                        <br>
                                        <%=rs("dato")%><br>
                                        <%=rs("tid")%>
                                    </td>
                                    <td width="1px" bgcolor="#004277">
                                    </td>
                                    <td width="3px">
                                    </td>
                                    <td valign="top">
                                        <%=rs("svar")%>
                                    </td>
                                </tr>
                                <tr>
                                    <td height="1px" bgcolor="#004277" colspan="4">
                                    </td>
                                </tr>
                                <tr>
                                    <td height="10">
                                    </td>
                                </tr>
<%rs.movenext
loop%>
<%end if%>
                                <tr>
                                    <td height="1px" bgcolor="#004277" colspan="4">
                                    </td>
                                </tr>
                                <tr>
                                    <td height="10">
                                    </td>
                                </tr>
                                <tr>   
                                    <td><a name="opret"></a>
                                        <strong>Opret Svar</strong>
                                    </td>
                                </tr>
<form action="svar.asp?id=<%=id%>" method="post">
                                <tr>
                                    <td colspan="4">
                                        <table>
                                            <tr>
                                                <td valign="top">
                                                    Svar:
                                                </td>
                                                <td>
                                                    <textarea style="font-size:12px; border-style: solid; border-width: 1" name="svar" rows="10" cols="50"></textarea>
                                                </td>
                                            </tr>
                                            <tr>
                                                <td>
                                                </td>
                                                <td>
                                                    <input style="border-style:solid; border-width:0px; background-color:#e3e3e3; font-size:12px" type="submit" value="Opret Svar" name="B1">
                                                </td>
                                        </table>
                                    </td>
                                </tr>
</form>

Forkerte kode...

Her er den kode som skriver dataene ind i databasen:
<%
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM svar order by svarid"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Users WHERE brugernavn='"&session("username")&"'"
rs1.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if Request.ServerVariables("REQUEST_METHOD") = "POST" then 
rs.AddNew
rs("Navn") = session("username")
rs("svar") = Replace(Request.Form("svar"), vbCrLf, "<br>")
rs("indlaegID") = id
rs.update
response.redirect "indlaeg.asp?id="&id
end if
%>

<%
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM svar order by svarid"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Users WHERE brugernavn='"&session("username")&"'"
rs1.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if Request.ServerVariables("REQUEST_METHOD") = "POST" then 
rs.AddNew
rs("Navn") = session("username")
rs("svar") = Replace(Request.Form("svar"), vbCrLf, "<br>")
rs("indlaegID") = id
rs.update
response.redirect "indlaeg.asp?id="&id
end if
%>


<%
dim connection
dim sSQL
sSQL= "UPDATE Indlaeg SET tal = tal + 1 WHERE IndlaegID = " & id "
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open
connection.execute(sSQL)
Connection.Close
Set Connection = Nothing
%>



hvis ikke det virker må du gerne tilpasse den din database forbindelse.. den skal bare køre denne sql

"UPDATE Indlaeg SET tal = tal + 1 WHERE IndlaegID = " & id "

den sql før skal hedde antal  som i din db.. beklager..
"UPDATE Indlaeg SET antal = antal + 1 WHERE IndlaegID = " & id "

men efter det burde denne nedenstående kode fungere


<!--#include file="datacon.asp"-->
<% Response.Buffer = True %>

<% Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM indlaeg ORDER BY indlaegID desc;"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<%
Set indlaeg = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Emne, Navn,svar, dato,IndlaegID, antal FROM Svar ORDER BY indlaegID desc;"
indlaeg.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
do until indlaeg.eof
%>
Antal: <%=indlaeg("antal")%> <br />
Emne:  <%=rs("emne")%> <br />
Nyeste: <%=indlaeg("Navn")%> <br />
<%indlaeg.movenext
rs.movenext
svar.movenext
loop%>

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0409)
Strengkonstanten er uafsluttet
/varde/svar.asp, line 26, column 66
sSQL= "UPDATE Indlaeg SET tal = tal + 1 WHERE IndlaegID = " & id "
-----------------------------------------------------------------^

sSQL= "UPDATE Indlaeg SET tal = tal + 1 WHERE IndlaegID = " & id & " "

Når jeg prøver at køre testkoden får jeg denne meddelelse:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/varde/test.asp, line 11

Samtidig, ændrere tallet i databasen sig ikke, der står stadig nul, selvom, jeg opretter et svar uden problemer..

sSQL= "UPDATE Indlaeg SET antal = antal + 1 WHERE IndlaegID = " & id & " "

den nye kolonne hedder "antal"  ? så burde den der virke

Den ligger ikke 1 til, når jeg opretter et svar...

Og har tjekket kolonnenavnet, det er det samme...

og værdien i kolonnen antal er 0 lige nu? eller er den tom?
der skal stå 0 i den.... den må ikke være tom

Der står 0...

okay om kolonnen er oprettet i tabellen Indlaeg? og det her id du henter
request.querystring("id")

er det ID'et til en indlæg'et?

IndlaegID="&ID&"

lukket

lukket