"Flette" tabeller

Ehm... og hvordan tæller jeg egentlig antal records? For den skal jo ikke tælle alle records i tabellen "kommentarer", men kun f.eks. antal records, hvor newsid (fra "kommentarer") = id (fra "nyheder").

ER det lidt indviklet eller er det mig, der har fået bikset det sammen på en usmart måde fra starten? :S

hvis jeg forstår dig rigtigt...

Så vil du have vist antallet af kommentare ud for hver nyhed.
Der skal du ikke flette nogle tabeller når du vil det..

I stedet skal du blot gøre noget i stilen af:


set conn = server.createobject("adodb.connection")
sql = "SELECT * FROM nyheder ORDER BY ID DESC LIMIT 5"
set rs = conn.execute(sql)

while not rs.eof
sql = "select count(id) as antal from kommentarer where newsid = " & rs("id")
set rs2 = conn.execute(sql)
response.write rs("overskrift") & "<br>"
response.write "tilføjet d. " & rs("date") & "<br>"
response.write rs2("antal") & " kommentarer"
rs.movenext
wend

altså at du for hver nyhed tæller antallet af kommentarer...

Hm jaah, men det går den ikke helt med til. Det kører over mySQL-database (ved godt, det er usmart, men webhotellet understøttede ikke Access og jeg gad ikke skulle til at lære php...)

Og den brokker sig lidt over den connection string, du laver i dit eksempel. Jeg kan ikke helt hitte ud af at modificere den, så den passer til mit stykke kode, som ser sådan ud lige nu:

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=vibytaekwondokl;UID=*****;PWD=*****;"
objConn.Open

objRS.Open "SELECT * FROM nyheder ORDER BY ID DESC LIMIT 5", objConn, 1,3
set objRS = objConn.execute(SQL)

If Not objRS.EOF Then
DO WHILE NOT objRS.EOF

objRS.Open "select count(id) as antal from kommentarer where newsid = " & objRS("id"), objConn, 1,3
set objRS2 = objConn.execute(SQL)

response.write objRS("overskrift") & "<br>"
response.write "tilføjet d. " & objRS("date") & "<br>"
response.write objRS("antal") & " kommentarer"

objRS.movenext
LOOP

Den brokker sig jo lidt over det "set objRS2 = objConn.execute(SQL)", eftersom jeg ikke har noget "SQL = " og jeg kan ikke lige hitte ud af, hvordan jeg ændrer det, så syntaksen er i orden?

muligvis sådan her skal det se ud..

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=vibytaekwondokl;UID=*****;PWD=*****;"
objConn.Open

objRS.Open "SELECT * FROM nyheder ORDER BY ID DESC LIMIT 5", objConn, 1,3
set objRS = objConn.execute(SQL)

If Not objRS.EOF Then
DO WHILE NOT objRS.EOF
sql = "select count(id) as antal from kommentarer where newsid = " & objRS("id")
set rs = objConn.execute(sql)

response.write objRS("overskrift") & "<br>"
response.write "tilføjet d. " & objRS("date") & "<br>"
response.write rs("antal") & " kommentarer"

objRS.movenext
LOOP

Hmm...
"The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another."

I denne linje ---> set objRS = objConn.execute(SQL)

muligvis fordi der er en fejl i typen...

virker måske sådan her:

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=vibytaekwondokl;UID=*****;PWD=*****;"
objConn.Open

objRS.Open "SELECT * FROM nyheder ORDER BY ID DESC LIMIT 5", objConn, 1,3
set objRS = objConn.execute(SQL)
sqlstr = ""
If Not objRS.EOF Then
DO WHILE NOT objRS.EOF
sql = "select count(id) as antal from kommentarer where newsid = " & CInt(objRS("id"))
sqlstr = sqlstr & sql &"<br>"
set rs = objConn.execute(sql)

response.write objRS("overskrift") & "<br>"
response.write "tilføjet d. " & objRS("date") & "<br>"
response.write rs("antal") & " kommentarer"

objRS.movenext
LOOP
response.write sqlstr

men skriv lige sqlerne herinde..
de bliver udskrevet nu...