25. oktober 2005 - 00:33Der er
3 kommentarer og 1 løsning
Tilfældigt databaseudtræk?
Hej.
Jeg har her følgende kode, som er et ganske simpelt databaseudtræk:
<% Set ConnWEB = Server.CreateObject("ADODB.Connection") ConnWEB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Database.mdb") strSQLWEB = "select TOP 1 * from WebWords ORDER BY dato DESC" set rsWEB = ConnWEB.execute(strSQLWEB) do until rsWEB.EOF word = "" & rsWEB("word") & "" %> <%="" & word & ""%> <% rsWEB.MoveNext Loop ConnWEB.Close set ConnWEB=nothing %>
Kan man ikke lave denne kode sådan at den vælger en tilfældig række i databasen? Sådan at "<%="" & word & ""%>" altid er tilfældig...
Flere kommuner går nu i gang med at bruge AI-understøttet dokumentation. Målet er, at sagsbehandlere skal bruge mindre tid på referater og registrering – og mere tid på nærvær i mødet med borgeren.
<% Set ConnWEB = Server.CreateObject("ADODB.Connection") ConnWEB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Database.mdb") randomize rndNum = int(-1000*rnd()) strSQLWEB = "select TOP 1 * from WebWords ORDER BY rnd(" & rndNum & "*id)" set rsWEB = ConnWEB.execute(strSQLWEB) do until rsWEB.EOF word = rsWEB("word") & "" response.write word
rsWEB.MoveNext Loop rsWEB.close set rsWEB = nothing ConnWEB.Close set ConnWEB=nothing %>
Forudsat du har en identity-kolonne i tabellen som hedder id.
Synes godt om
Slettet bruger
25. oktober 2005 - 00:46#2
- Jeg siger mange tak! Lige det jeg manglede for at få mit hjemmesideprojekt gjort endnu mere dynamisk!
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.
