17. september 2001 - 19:22Der er
3 kommentarer og 1 løsning
Count fra anden tabel
Jeg har en tabel med news i og en tabel med kommentare til de news.
Min kode ser sådan ud ------------------------------------------------ <% Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\") strSQL = \"select * from news ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)
if rs.EOF then Response.write \"Databasen er tom.\" else Do Until rs.EOF %> <tr> <td width=\"100%\"><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><%= rs(\"dato\") %></font> <br><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><b> <%= rs(\"headline\") %><br> </b></font><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><%= rs(\"tekst\") %></font> <hr> </td> </tr> <%RS.MoveNext Loop end if
Conn.Close Set Conn = Nothing%>
------------------------------------------- så ville jeg gerne lave så den tæller fra den anden database, hvor mange kommentare der var til den nyhed. Og den skal stadig kunne loope newsne
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% Set Conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\") strSQL = \"select * from news ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)
if rs.EOF then Response.write \"Databasen er tom.\" else Do Until rs.EOF set temp = Conn.Execute(\"select count(*) as antal from din_tabel where dit_felt = værdi\") %> <tr> <td width=\"100%\"><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><%= rs(\"dato\") %></font> <br><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><b> <%= rs(\"headline\") %><br> </b></font><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><%= rs(\"tekst\") %></font> <hr>Der er <%=temp(\"antal\")%> </td> </tr> <%RS.MoveNext Loop end if
Conn.Close Set Conn = Nothing%>
Du skal lige rette det til med dine oplysninger, men det forstår du vel ?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.