--- title: "QueryString hur?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/73748-querystring-hur" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "tank82" published: "2003-04-11T01:32:48.000Z" updated: "2003-04-11T09:33:07.000Z" replies: 2 views: 243 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/73748-querystring-hur" --- # QueryString hur? ## #1 — tank82, 2003-04-11T01:32Z Hejsan, Jag har försökt att klura ut detta själv men det går bara inte. Jag vill ha funktionen QueryString, så man kan Tex. skriva lankar.asp?sortlank=bilar så kommer alla billänkar upp, och om man skriver lankar.asp?sortlank=datorer så kommer alla datorlänkar fram osv. (4 kategorier totalt) Kolumnen som jag sorterar länkarna heter ”sortlank” och där har jag 4st kategorier bilar, dator, media och vapen Jag har provat en massa olika varianter med inget funkar, jag tror det har något att göra med "Connect, adOpenStatic," ? men vad vet jag, jag är ju bara en nybörjare =) Så är det någon som kan hjälpa mig med detta, så vore det kanon. Tack på förhand! ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("lankar.mdb") Set RecSet = Server.CreateObject("ADODB.Recordset") SQLsats = "SELECT * FROM lankar WHERE sortlank = '"&"bilar"&"' ORDER by namn" RecSet.Open SQLsats, Connect, adOpenStatic, adLockOptimistic %> <% Do Until RecSet.EOF %> <% Recset.MoveNext Loop Recset.Close Connect.Close Set Recset = Nothing Set Connect = Nothing %>

" target="_blank"><% = RecSet(">

 " target="_blank"><% = RecSet("namn") %>
<% = RecSet("medd") %>
``` Permalänk: https://www.webforum.nu/p/73748 ## #2 — voigtann1, 2003-04-11T04:41Z ``` <%[b] dim vad vad = request.querystring("sortlank") if vad = "" then vad = "Bilar" end if [/b] Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("lankar.mdb") Set RecSet = Server.CreateObject("ADODB.Recordset") SQLsats = "SELECT * FROM lankar WHERE sortlank = '"& [b]vad[/b] &"' ORDER by namn" RecSet.Open SQLsats, Connect, [b]3, 3[/b] %> <% Do Until RecSet.EOF %> <% Recset.MoveNext Loop Recset.Close Connect.Close Set Recset = Nothing Set Connect = Nothing %>

" target="_blank"><% = RecSet(">

 " target="_blank"><% = RecSet("namn") %>
<% = RecSet("medd") %>
``` så eller? Jag tog bort: ``` ``` och ändrade :adOpenStatic, adLockOptimistic till 3,3 så slipper du ladda många variabler och gör sidan snabbare :e Permalänk: https://www.webforum.nu/p/1008110 ## #3 — tank82, 2003-04-11T09:33Z Tack som fan voigtann1 =) Det funka kanon! Permalänk: https://www.webforum.nu/p/1008306 --- Tråden på webben: https://www.webforum.nu/amne/asp/73748-querystring-hur