ASP filen: <% intPage = Request("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If
strKeyword = Request.Form("keyword") strSQL = "SELECT * FROM seneste WHERE" strSQL = strSQL & " (beskrivelse LIKE '" & strKeyword & "')" strSQL = strSQL & " OR (overskrift LIKE '" & strKeyword & "')" Set rs = Server.CreateObject("ADODB.RecordSet") strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/database.mdb") rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 15 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount %> Og her skriver jeg resultat ud... Det virker da jeg bruger det til andet.. :-)
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Ja, altså hvis du mener at de to sidste kriterier altid skal være opfyldt uanset hvad de to eksisterende kriterier så giver, så skal du tilføje dem med en AND, således:
strSQL = "SELECT * FROM seneste WHERE" strSQL = strSQL & " ((beskrivelse LIKE '" & strKeyword & "')" strSQL = strSQL & " OR (overskrift LIKE '" & strKeyword & "'))" strSQL = strSQL & " AND tal < 2" strSQL = strSQL & " AND beskrivelse <> ''"
bemærk paranteserne omkring de 2 første kriterier, da disse skal tælle som et samlet kriterie ifht. tal < 2 og at beskrivelse skal have indhold.
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.