CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

thomashansen Nybegynder

24. oktober 2008 - 17:45 Der er 9 kommentarer

Sortering af kolonner ved udtræk fra DB

Med nedenstående kode vil jeg gerne kunne sortere mine kolonner ligesom i Windows stifinder (hvor man ved tryk på f.eks Dato kan sortere i ASC eller DESC.

Imidlertid vil jeg gerne åbne siden med en default-sortering med ORDER BY, men ved ikke hvordan det kombineres med de øvrige sorteringsmuligheder.

Sidst vil det være fikst hvis man ved tryk på en knap genskaber default-sorteringen.

KODEN:

<html>

<%@LANGUAGE="VBSCRIPT"%>



<%
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "'%'"
Else
soegestreng = "'%" & soeg & "%'"
End If

sort1= Request.QueryString("sort1")
If sort1 = "" Then
sort1 = "ASC"
ElseIf sort1 = "ASC" Then
sort1 = "DESC"
Else
sort1 = "ASC"
End If

sort2 = Request.QueryString("sort2")
If sort2 = "" Then
sort2 = "ASC"
ElseIf sort2 = "ASC" Then
sort2 = "DESC"
Else
sort2 = "ASC"
End If

sort3 = Request.QueryString("sort3")
If sort3 = "" Then
sort3 = "ASC"
ElseIf sort3 = "ASC" Then
sort3 = "DESC"
Else
sort3 = "ASC"
End If

sort4 = Request.QueryString("sort4")
If sort4 = "" Then
sort4 = "ASC"
ElseIf sort4 = "ASC" Then
sort4 = "DESC"
Else
sort4 = "ASC"
End If

sort5 = Request.QueryString("sort5")
If sort5 = "" Then
sort5 = "ASC"
ElseIf sort5 = "ASC" Then
sort5 = "DESC"
Else
sort5 = "ASC"
End If

sort6 = Request.QueryString("sort6")
If sort6 = "" Then
sort6 = "ASC"
ElseIf sort6 = "ASC" Then
sort6 = "DESC"
Else
sort6 = "ASC"
End If

sort7 = Request.QueryString("sort7")
If sort7 = "" Then
sort7 = "ASC"
ElseIf sort7 = "ASC" Then
sort7 = "DESC"
Else
sort7 = "ASC"
End If

sort8 = Request.QueryString("sort8")
If sort8 = "" Then
sort8 = "ASC"
ElseIf sort8 = "ASC" Then
sort8 = "DESC"
Else
sort8 = "ASC"
End If

sort9 = Request.QueryString("sort9")
If sort9 = "" Then
sort9 = "ASC"
ElseIf sort9 = "ASC" Then
sort9 = "DESC"
Else
sort9 = "ASC"
End If

sort10 = Request.QueryString("sort10")
If sort10 = "" Then
sort10 = "ASC"
ElseIf sort10 = "ASC" Then
sort10 = "DESC"
Else
sort10 = "ASC"
End If

sort11 = Request.QueryString("sort11")
If sort11 = "" Then
sort11 = "ASC"
ElseIf sort11 = "ASC" Then
sort11 = "DESC"
Else
sort11 = "ASC"
End If
%>

<%

Set list = Server.CreateObject ("ADODB.Recordset")
'list.Open "SELECT * FROM test WHERE test_Status =1 AND Anvendelse LIKE " & soegestreng & " ORDER BY Ejer, TilgaaetAar, Lokalitet, LoebeNr, Sporvidde_mm, LokomotivNavn, Transmision, Status", Conn
'list.Open "SELECT * FROM test WHERE test_Status =1 AND Anvendelse LIKE " & soegestreng & " ORDER BY Ejer, TilgaaetAar, Lokalitet, LoebeNr, Sporvidde_mm, LokomotivNavn, Transmision, Status, ID " & sort1 & ", Foto " & sort2 & "", Conn
'list.Open "SELECT * FROM test WHERE test_Status =1 AND Anvendelse LIKE " & soegestreng & " ORDER BY ID " & sort1 & ", Foto " & sort2 & ", Ejer " & sort3 & ", TilgaaetAar, Lokalitet, LoebeNr, Sporvidde_mm, LokomotivNavn, Transmision, Status", Conn
'list.Open "SELECT * FROM test WHERE test_Status =1 AND Anvendelse LIKE " & soegestreng & " ORDER BY ID " & sort1 & ", Foto " & sort2 & "", Conn
'list.Open "SELECT * FROM test WHERE test_Status =1 AND Anvendelse LIKE " & soegestreng & " ORDER BY Foto " & sort2 & "", Conn
list.Open "SELECT * FROM test WHERE test_Status =1 AND Anvendelse LIKE " & soegestreng & " ORDER BY ID " & sort1 & "", Conn

Set counter = Server.CreateObject ("ADODB.Recordset")
counter.Open "SELECT COUNT (*) AS antal from test WHERE test_Status =1 AND Anvendelse LIKE " & soegestreng & "", Conn
antal = counter.fields("antal")

Set dampcounter = Server.CreateObject ("ADODB.Recordset")
dampcounter.Open "SELECT COUNT (transmision) AS damptransmision from test WHERE test_Status =1 AND Transmision ='Damp' AND Anvendelse LIKE " & soegestreng & "", Conn
damptransmision = dampcounter.fields("damptransmision")

Set elcounter = Server.CreateObject ("ADODB.Recordset")
elcounter.Open "SELECT COUNT (transmision) AS eltransmision from test WHERE test_Status =1 AND Transmision IN ('Akkumulator-elektrisk', 'Kontakt-ledning') AND Anvendelse LIKE " & soegestreng & "", Conn
eltransmision = elcounter.fields("eltransmision")

Set motorcounter = Server.CreateObject ("ADODB.Recordset")
motorcounter.Open "SELECT COUNT (transmision) AS motortransmision from test WHERE test_Status =1 AND NOT Transmision ='Akkumulator-elektrisk' AND NOT Transmision ='Damp' AND NOT Transmision ='Kontakt-ledning' AND Anvendelse LIKE " & soegestreng & "", Conn
motortransmision = motorcounter.fields("motortransmision")

Set driftcounter = Server.CreateObject ("ADODB.Recordset")
driftcounter.Open "SELECT COUNT (status) AS driftstatus from test WHERE test_Status =1 AND Status ='I drift' AND Anvendelse LIKE " & soegestreng & "", Conn
status = driftcounter.fields("driftstatus")

%>

<html>
<head>
<title>testede industribanelokomotiver  © SearchFunction Build V</title>
</head>

<body bgcolor="#FFFFFF">

</td></tr>

<tr><td bgcolor="#CCCCCC">

<form name="FrontPage_Form1" method="get" action="search_anvendelse06test.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript">

<table style="border-left-color: #000000; border-top-color: #000000; border-collapse:collapse" bordercolorlight="#000000" bordercolordark="#000000" border="2" cellpadding="0">

<tr>
<th width="1300" valign="top" colspan="11 " bgcolor="#C0C0C0">

Søgeordet <% = soeg%> giver <% = antal%>
lokomotiver. Heraf <% = damptransmision%> damp-, <% = eltransmision%> el- og <% = motortransmision%> motor-drevne. <% = status%>
lokomotiver er i drift. </th>
</tr>

<td valign="top" align="center">
<%
sort1 = Request.QueryString("sort1")
if sort1 = "ASC" then
'ændre sort1 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort1=DESC&soeg=" & soeg & "'>ID Z</A>"
else
'ændre sort1 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort1=ASC&soeg=" & soeg & "'>ID A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort2 = Request.QueryString("sort2")
if sort2 = "ASC" then
'ændre sort2 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort2=DESC&soeg=" & soeg & "'>Foto Z</A>"
else
'ændre sort2 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort2=ASC&soeg=" & soeg & "'>Foto A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort3 = Request.QueryString("sort3")
if sort3 = "ASC" then
'ændre sort3 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort3=DESC&soeg=" & soeg & "'>Ejer Z</A>"
else
'ændre sort3 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort3=ASC&soeg=" & soeg & "'>Ejer A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort4 = Request.QueryString("sort4")
if sort4 = "ASC" then
'ændre sort4 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort4=DESC&soeg=" & soeg & "'>Tilg. År Z</A>"
else
'ændre sort4 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort4=ASC&soeg=" & soeg & "'>Tilg. År A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort5 = Request.QueryString("sort5")
if sort5 = "ASC" then
'ændre sort5 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort5=DESC&soeg=" & soeg & "'>Lokalitet Z</A>"
else
'ændre sort5 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort5=ASC&soeg=" & soeg & "'>Lokalitet A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort6 = Request.QueryString("sort6")
if sort6 = "ASC" then
'ændre sort6 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort6=DESC&soeg=" & soeg & "'>Lb. Nr. Z</A>"
else
'ændre sort6 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort6=ASC&soeg=" & soeg & "'>Lb. Nr. A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort7 = Request.QueryString("sort7")
if sort7 = "ASC" then
'ændre sort7 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort7=DESC&soeg=" & soeg & "'>Sporv. mm Z</A>"
else
'ændre sort7 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort7=ASC&soeg=" & soeg & "'>Sporv. mm A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort8 = Request.QueryString("sort8")
if sort8 = "ASC" then
'ændre sort8 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort8=DESC&soeg=" & soeg & "'>Lokomotiv Fabrikat Z</A>"
else
'ændre sort8 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort8=ASC&soeg=" & soeg & "'>Lokomotiv Fabrikat A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort9 = Request.QueryString("sort9")
if sort9 = "ASC" then
'ændre sort9 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort9=DESC&soeg=" & soeg & "'>Byg. Nr. Z</A>"
else
'ændre sort9 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort9=ASC&soeg=" & soeg & "'>Byg. Nr. A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort10 = Request.QueryString("sort10")
if sort10 = "ASC" then
'ændre sort10 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort10=DESC&soeg=" & soeg & "'>Trans- mision Z</A>"
else
'ændre sort10 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort10=ASC&soeg=" & soeg & "'>Trans- mision A</A>"
end if
%>
</td>
<td valign="top" align="center">
<%
sort11 = Request.QueryString("sort11")
if sort11 = "ASC" then
'ændre sort11 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort11=DESC&soeg=" & soeg & "'>Status Z</A>"
else
'ændre sort11 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort11=ASC&soeg=" & soeg & "'>Status A</A>"
end if
%>
</td>

</tr>

<%
While NOT list.EOF
%>

<td valign="top"><% Response.Write ("<a href='showroom02.asp?soeg=" & list.Fields("ID") & "'target=>" & list.Fields("ID") & "</a>")%> </td>
<td valign="top"><% = list.Fields("Foto")%> </td>
<td valign="top"><% = list.Fields("Ejer")%> </td>
<td valign="top"><% = list.Fields("TilgaaetAar")%> </td>
<td valign="top"><% = list.Fields("Lokalitet")%> </td>
<td valign="top"><% = list.Fields("LbNr")%> </td>
<td valign="top"><% = list.Fields("Sporvidde_mm")%> </td>
<td valign="top"><% = list.Fields("LokomotivNavn")%> </td>
<td valign="top"><% = list.Fields("ByggeNr")%> </td>
<td valign="top"><% = list.Fields("Transmision")%> </td>
<td valign="top"><% = list.Fields("Status")%> </td>

</tr>

<%
list.MoveNext
Wend
%>

<tr>
<th width="1300" valign="top" colspan="11" bgcolor="#C0C0C0">

  ©
SearchFunction Build V   </th>
</tr>

</table>

</form>









</body>
</html>

<%
list.close
set list = nothing
%>

Synes godt om

kalp Novice

24. oktober 2008 - 17:55 #1

OMG

kan du ikke bare nøjes med en querystring:S
og lav links til din side hvor du læser dennes værdi, tilføjer den din SQL og hiver data ud sorteret ud fra dens værdi!

:S

Synes godt om

kalp Novice

24. oktober 2008 - 17:56 #2

f.eks kan det hedde "sort"
og det kan du smide ind i din SQL..

så vil det altid fungere.

Synes godt om

thomashansen Nybegynder

26. oktober 2008 - 15:59 #3

Vil du beskrive det mere detaljeret ?

Vil du have en side pr. sortering eller ?

Synes godt om

thomashansen Nybegynder

02. november 2008 - 23:05 #4

Der er ikke rigtigt gang i denne her ???

Som jeg ser det er mit problem, at jeg har en default- sortering som jeg gerne vi "åbne" siden med. Hvordan kan jeg løse problemet ?

Synes godt om

kalp Novice

03. november 2008 - 20:01 #5

hov sorry.. din forrige kommentar løste jeg som værende en anden bruger der stiller dig et spørgsmål:S
hehe

kan du lige forklare mig hvorfor du har lavet sort1,2,3,4,5 osv?

Synes godt om

thomashansen Nybegynder

03. november 2008 - 21:12 #6

Jeg vil gerne åbne siden med en "default-sortering", der så kan overstyres via brugeren ved, at klikke på kolonneoverskrifterne og der sortere ASC eller DESC. Der kan sorteres på alle kolonner derfor sort1, 2, 3 osv.

Synes godt om

kalp Novice

03. november 2008 - 21:40 #7

hedder dine kolonner i databasen da sort1, 2, 3, 4 osv??
bliver nød til, at forstå hvad du har lavet først

Synes godt om

thomashansen Nybegynder

03. november 2008 - 22:14 #8

Hvis vi tager udgangspunkt i sort1:

sort1 = Request.QueryString("sort1")
if sort1 = "ASC" then
'ændre sort1 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort1=DESC&soeg=" & soeg & "'>ID Z</A>"
else
'ændre sort1 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort1=ASC&soeg=" & soeg & "'>ID A</A>"
end if

Her sorterer jeg kolonnen ID i A for ASC og D for DESC. Men altså kolonnen hedder ID

Synes godt om

thomashansen Nybegynder

03. november 2008 - 22:22 #9

Koden i uddrag:

sort1= Request.QueryString("sort1")
If sort1 = "" Then
sort1 = "ASC"
ElseIf sort1 = "ASC" Then
sort1 = "DESC"
Else
sort1 = "ASC"
End If

<%
sort1 = Request.QueryString("sort1")
if sort1 = "ASC" then
'ændre sort1 -> DESC link
response.write "<a href='search_anvendelse06test.asp?sort1=DESC&soeg=" & soeg & "'>ID Z</A>"
else
'ændre sort1 -> ASC link
response.write "<a href='search_anvendelse06test.asp?sort1=ASC&soeg=" & soeg & "'>ID A</A>"
end if
%>

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

12:00

Ugen i tech: El-kolos kan fragte syv personer over 620 kilometer / Sony er klar med ny kamera-konge: Alpha 1 mk II

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

Vis flere artikler

IT-JOB

Comby Denmark A/S

Netværksspecialist – Skab fremtidens netværksløsninger sammen med os

Danske Spil A/S

Kan du finde 11 Danske Spil-produkter i dette jobopslag? Så er du måske vores nye systemadministrator

MAN Energy Solutions

Full Stack Developer

SDC A/S

Senior Business Developer - Market Risk

Danske Commodities A/S

Data technician trainee

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 18:09	Billedoverførsel Af Laurids i iOS, iPhone & iPad
I dag 13:30	Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I dag 13:01	Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I dag 11:40	Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27	renteberegning Af Pil i Excel