Notifikationer

Markér alle som læst Log ud

bredan1977 Nybegynder

15. oktober 2004 - 16:24 Der er 15 kommentarer og
3 løsninger

En smart "order by"

Hvordan jeg lave en smart order by SQL Sætning???

Jeg vil gerne at man kan trykke på eks et link og så sorter den eks efter Kunde, Status eller noget andet!

Min kode ser sådan her ud:
<%@ Language=VBScript %>

<html>
<head>
<LINK href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Language" content="da">
<title>KE-Burgmann Bredan A/S MCAU Partner Site</title>
<style>
a {text-decoration:none;}
</style>
<style fprolloverstyle>A:hover {color: #050B51; font-size: 10 px; font-family: Arial}
</style>
</head>
<body topmargin="0" leftmargin="0" bgproperties="fixed" background="images/line.gif" link="#008000" vlink="#008000" alink="#008000">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#050B51">
<tr>
<td width="100%"><img border="0" src="images/logo.jpg"></td>
</tr>
</table>

<div align="center">
   Logged in as: <%response.write Session("contact")%> 
   Customer Number: <% response.write Session("customer")%> 
   Your LoginID is: <% response.write Session("LoginID")%>

<center>

<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber2" bgcolor="#FFFFFF">
<tr>
<td width="100%">
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="25%" height="20">OrderNumber:</td>
<td width="25%" height="20">Your Ref No:</td>
<td width="25%" height="20">Status:</td>



<td width="13%" height="20">Quote Date:</td>
<td width="12%" height="20">New:</td>
</tr>



<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

Dim rsShowOrder
Dim rsOrder

set rsOrder= server.Createobject("ADODB.Recordset")
If Session("customer") = "100000" Then
SQL_String = "Select * from orderliste"
Else
SQL_String = "Select * from orderliste WHERE customer= "& Session("customer") &" order by customer ASC"
end if
rsOrder.open SQL_String, Conn

Dim even, className
even = true

Do until rsOrder.EOF

If Even Then
Even = false
className = "GreyCells"
Else
Even = true
className = "WhiteCells"
End If

response.write("<tr class='"&className&"'>")
response.write("<td height='20' width='25%'>")
strOrder = "<a href=ordershow.asp?id=" & rsOrder("id") & ">" & "" & rsOrder("Customer") & "-" & rsOrder("id") & "</a>"
response.write strOrder
response.write("</td>")
response.write("<td height='20' width='25%'>")& "" & rsOrder("CustomerRef") & ""
response.write("</td>")
response.write("<td height='20' width='25%'>")& "" & rsOrder("status") & ""
response.write("</td>")
response.write("<td height='20' width='25%'>")& "" & rsOrder("dato") & ""
response.write("</td>")
response.write("</td>")
response.write("<td height='20' width='25%'>")& "" & rsOrder("New") & ""
response.write("</tr>")
rsOrder.Movenext
loop
%>
</td>
<td colspan="5" width="25%"> </td>
</tr>
<tr>
<td colspan="5" width="25%"><%strNyOrder = "<a href=orderadd.asp?customer=" & Session("Customer") & ">" & "New Quote" & "</a>"
response.write strNyOrder%></td>
</tr>
<tr>
<td colspan="5" width="25%"><a href="forsiden.asp">Goto index</a></td>
</tr>
<tr>
<td colspan="5" width="25%"><a href="java script:window.close();">Logout</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
 
 
 

</div>



</body>

</html>

Synes godt om

bredan1977 Nybegynder

15. oktober 2004 - 16:26 #1

Hvis nu man kunne trykke på den øverste linje (altså overskriften), og så den sorterede efter det!

Synes godt om

mortency Nybegynder

15. oktober 2004 - 16:31 #2

strOrder = Request.querystring("Order")

If strOrder = "" Then
strOrder = "customer"
End if

SQL_String = "Select * from orderliste WHERE customer= "& Session("customer") &" order by " & strOrder & " ASC"

På linkene legger du kun til ?Order=[feltnavn]

Synes godt om

a1a1 Novice

15. oktober 2004 - 16:33 #3

i stedet for:
SQL_String = "Select * from orderliste WHERE customer= "& Session("customer") &" order by customer ASC"
noget ala:

if Request.Querystring("sortby") = "customerref" Then
SQL_String = "Select * from orderliste WHERE customer= "& Session("customer") &" order by customerref"
Else If Request.Querystring("sortby") = "status" Then
SQL_String = "Select * from orderliste WHERE customer= "& Session("customer") &" order by status"

o.s.v...
End If

;o)

Synes godt om

mortency Nybegynder

15. oktober 2004 - 16:34 #4

<tr>
<td width="25%" height="20"><a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Order=[feltnavn i databasen]">OrderNumber:</a></td>
<td width="25%" height="20">Your Ref No:</td>
<td width="25%" height="20">Status:</td>



<td width="13%" height="20">Quote Date:</td>
<td width="12%" height="20">New:</td>
</tr>

Synes godt om

cpufan Juniormester

15. oktober 2004 - 16:37 #5

dine overskrifter skal linke til sammeside.asp?orderstyle=hvad-der-skal-sorteres-efter

i din kode sætter du så
if request("orderstyle") <> "" then
orderstyle = request("orderstyle")
else
orderstyle = "customer"
end if
og din sql hedder så
SQL_String = "Select * from orderliste order by" & orderstyle

Kan du følge det?

Synes godt om

mortency Nybegynder

15. oktober 2004 - 16:40 #6

//Cpufan det er jo akkurat det jeg har sagt.

Synes godt om

cpufan Juniormester

15. oktober 2004 - 16:45 #7

so what, jeg sidder sgu da ikke og trykker opdater mens jeg skriver, for at se om der er nogen der skriver det samme....
iøvrigt er det ikke det samme....
men resultatet bliver det samme

Synes godt om

bredan1977 Nybegynder

15. oktober 2004 - 16:47 #8

Nu er den TOTAL SKODET OP!

Synes godt om

bredan1977 Nybegynder

15. oktober 2004 - 16:50 #9

min side hedder: orderliste.asp

Synes godt om

mortency Nybegynder

15. oktober 2004 - 16:54 #10

link = orderliste.asp?Order=Status eller ?Order=Dato eller ?Order=New

Synes godt om

bredan1977 Nybegynder

15. oktober 2004 - 16:56 #11

Nu kommer den bare frem som altid

Synes godt om

bredan1977 Nybegynder

15. oktober 2004 - 16:57 #12

Synes godt om

mortency Nybegynder

15. oktober 2004 - 16:58 #13

Hele koden...

<%@ Language=VBScript %>

<html>
<head>
<LINK href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Language" content="da">
<title>KE-Burgmann Bredan A/S MCAU Partner Site</title>
<style>
a {text-decoration:none;}
</style>
<style fprolloverstyle>A:hover {color: #050B51; font-size: 10 px; font-family: Arial}
</style>
</head>
<body topmargin="0" leftmargin="0" bgproperties="fixed" background="images/line.gif" link="#008000" vlink="#008000" alink="#008000">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#050B51">
<tr>
<td width="100%"><img border="0" src="images/logo.jpg"></td>
</tr>
</table>

<div align="center">
   Logged in as: <%response.write Session("contact")%> 
   Customer Number: <% response.write Session("customer")%> 
   Your LoginID is: <% response.write Session("LoginID")%>

<center>

<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber2" bgcolor="#FFFFFF">
<tr>
<td width="100%">
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="25%" height="20"><a href="orderliste.asp?Order=id">OrderNumber:</a></td>
<td width="25%" height="20"><a href="orderliste.asp?Order=CustomerRef">Your Ref No:</a></td>
<td width="25%" height="20"><a href="orderliste.asp?Order=status">Status:</a></td>



<td width="13%" height="20"><a href="orderliste.asp?Order=dato">Quote Date:</a></td>
<td width="12%" height="20"><a href="orderliste.asp?Order=New">New:</a></td>
</tr>



<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

Dim rsShowOrder
Dim rsOrder

If strOrder = "" Then
strOrder = "customer"
End if

set rsOrder= server.Createobject("ADODB.Recordset")
If Session("customer") = "100000" Then
SQL_String = "Select * from orderliste"
Else
SQL_String = "Select * from orderliste WHERE customer= "& Session("customer") &" order by " & strOrder & " ASC"
end if
rsOrder.open SQL_String, Conn

Dim even, className
even = true

Do until rsOrder.EOF

If Even Then
Even = false
className = "GreyCells"
Else
Even = true
className = "WhiteCells"
End If

response.write("<tr class='"&className&"'>")
response.write("<td height='20' width='25%'>")
strOrder = "<a href=ordershow.asp?id=" & rsOrder("id") & ">" & "" & rsOrder("Customer") & "-" & rsOrder("id") & "</a>"
response.write strOrder
response.write("</td>")
response.write("<td height='20' width='25%'>")& "" & rsOrder("CustomerRef") & ""
response.write("</td>")
response.write("<td height='20' width='25%'>")& "" & rsOrder("status") & ""
response.write("</td>")
response.write("<td height='20' width='25%'>")& "" & rsOrder("dato") & ""
response.write("</td>")
response.write("</td>")
response.write("<td height='20' width='25%'>")& "" & rsOrder("New") & ""
response.write("</tr>")
rsOrder.Movenext
loop
%>
</td>
<td colspan="5" width="25%"> </td>
</tr>
<tr>
<td colspan="5" width="25%"><%strNyOrder = "<a href=orderadd.asp?customer=" & Session("Customer") & ">" & "New Quote" & "</a>"
response.write strNyOrder%></td>
</tr>
<tr>
<td colspan="5" width="25%"><a href="forsiden.asp">Goto index</a></td>
</tr>
<tr>
<td colspan="5" width="25%"><a href="java script:window.close();">Logout</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
 
 
 

</div>



</body>

</html>

Synes godt om

bredan1977 Nybegynder

15. oktober 2004 - 17:03 #14

Ja det virker ikke...

Synes godt om

bredan1977 Nybegynder

15. oktober 2004 - 17:05 #15

Hvis jeg eks skriver:
<%response.write strOrderSort %>

Så sriver den bare customer!

Synes godt om

bredan1977 Nybegynder

15. oktober 2004 - 17:09 #16

NU kom den!

Synes godt om

cpufan Juniormester

15. oktober 2004 - 17:10 #17

der hvor du har

If strOrder = "" Then
strOrder = "customer"
End if

skal du rette til
strOrder = request("Order")
If strOrder = "" Then
strOrder = "customer"
End if

Synes godt om

a1a1 Novice

15. oktober 2004 - 17:16 #18

tak for points...

;o)

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
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

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