webForumDet fria alternativet
Logga in / Bli medlem

alfabetisk ordning

ASP

7 svar · 268 visningar · startad av Meng

Mengs avatarMengMedlem sedan feb. 2003549 inlägg
Frågan#1

Jag kan inte mycket om ASP men jag lär mig mkt sakta =)

Vad eller hur får jag denna koden till att lista objekten från databasen i namn ordning? allså alfabetisk ordning.

<%If Request.QueryString("catId") <> "" Then
  Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))
End If%>

<%If Request.QueryString("catId") = "" Then
Set RS=Conn.Execute("Select * From kat Where sub_kat=0")
  If RS.EOF Then%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr> 
      <td></td>
    </tr>
  </table>
  <table width="100%" cellpadding="4" cellspacing="0" class="border" align="center">
    <tr>
      <td>Inga kategorier inlagda</td>
    </tr>
  </table>
  <%Else%>
  <table width="100%" border="0" align="left">
    <tr>
      <td valign="top">
        <table width="100%" cellpadding="2" cellspacing="2" border="0">
        <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
          <td width="<%=Width%>">
        <%If RS.EOF then%>
            <table width="<%=Width2%>" cellpadding="4" cellspacing="0">
              <tr>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
        <%Else%>
            <table width="<%=Width2%>" cellpadding="4" cellspacing="0" class="border">
              <tr>
                <td valign="top"><b><a href="index.asp?catId=<%=RS("id")%>"><%=RS("kat")%></a></b></td>
              </tr>
            </table>
        <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
        </table>
       </td>
     </tr>
    </table>
  <%End If
Else

Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId"))

Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId"))
If Antal("antal") <> "0" Then

  If RS.EOF Then%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr> 
      <td></td>
    </tr>
  </table>
  <table width="100%" cellpadding="4" cellspacing="0" class="border" align="center">
    <tr> 
      <td align="center">Inget finns under <%=Kat("kat")%></td>
    </tr>
  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr> 
      <td></td>
    </tr>
  </table>
  <%Else%>
  <table width="100%" border="0" align="left">
    <tr>
      <td valign="top" align="center" valign="top">
        <table width="100%" cellpadding="2" cellspacing="2" border="0">
        <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
          <td width="<%=Width%>">
        <%If RS.EOF then%>
            <table width="<%=Width3%>" cellpadding="4" cellspacing="0">
              <tr>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
        <%Else%>
            <table width="<%=Width3%>" cellpadding="4" cellspacing="0" class="border" border="0">
              <tr>
                <td valign="top"><b><a href="index.asp?catId=<%=RS("id")%>"class="vit"><%=RS("kat")%></a></b></td>
              </tr>
            </table>
        <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
        </table>
      </td>
    </tr>
  </table>
  <%End If
Else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
  <tr> 
    <td></td>
  </tr>
</table>
<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId"))
  If Url.EOF Then%>
    <table width="100%" cellpadding="4" cellspacing="0" class="border" align="center">
      <tr> 
        <td align="left">Inget finns under <%=Kat("kat")%></td>
     </tr>
    </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr> 
        <td></td>
      </tr>
    </table>
  <%Else
    Do Until Url.EOF%>
      <table width="100%" cellpadding="3" cellspacing="0" class="border" align="center">
        <tr>
          <td><b><a href="ut.asp?id=<%=Url("id")%>" target="_blank" class="rubrik" onclick="javascript:location.reload();" onMouseOver="self.status='<%=Url("url")%>';return true" onMouseOut="self.status=' ';return true"><%=Code(Url("namn"))%></a></b> - <%=Url("klick")%> klick</td>
        </tr>
        <tr>
          <td><%=Code(Url("info"))%></td>
        </tr>
      </table>
     <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
       <tr> 
         <td></td>
       </tr>
     </table>
    <%Url.MoveNext
    Loop
  End If
End If
If Request.QueryString("catId") <> "" Then
  Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%>

<%End If
End If

Conn.Close
Set Conn=Nothing%>
Palles avatarPalleMedlem sedan apr. 20003 174 inlägg
#2
[red]Set RS=Conn.Execute("Select * From kat Where sub_kat=0 ORDER BY [b]X[/b]")[/red]

X = Kolumnen du vill sortera efter.

 

Mengs avatarMengMedlem sedan feb. 2003549 inlägg
#3

Jag provade och döpte X till Namn eller namn men då blev det:

Microsoft JET Database Engine fejl '80040e10'

Der er ikke angivet nogen værdi for en eller flere krævede parametre.

/test/teknisk/index.asp, linje 91

ska jag kanske skriva fldNamn?

Mengs avatarMengMedlem sedan feb. 2003549 inlägg
#4

ops jag hade bytt ut fel kod,

Men det verkar inte funka...

930960017 DK Elektriske ledniger - kompressorer & styretavler Terminalrør / Tyller 57 NEG 16.11.01 1

930960018 DK Signaludveksling Kompressorkontrollpanel LC-1A 57 HHT 24.10.96 2 10.11.97

930960019 DK Signaludveksling Kompressorkontrollpanel LC-1D 57 HHT 24.10.96 2 10.11.97

930960020 DK Signaludveksling Kompressorkontrollpanel LC-2A 57 HHT 24.10.96 2 10.12.97

930960021 DK Signaludveksling Kompressorkontrollpanel LC-4A 57 HHT 24.10.96 2 10.11.97

930960022 DK Diffuser/forrotation Stillemotorer - Justering 57 HHT 12.09.96 0

930930118 DK Flowamp ?? AL 23.07.93 1 16.02.94

930940032 UK Automatic Set Point Control (APSC) ?? SKC 19.10.90 1 06.04.93

930940033 DK Signaler mellem MCP og LC ?? SKC 25.02.94 2 11.10.96

930920056 DK EL-info 57 * NEG 10 16.08.00

930920072 DK Testblanket for Tryktransmitter for FlowComp ?? KKJ 26.11.92 1 02.03.93 ?

930960024 DK Checkliste for LC-tavler 57 * HHT 20.11.98 1 02.11.99

930960025 DK Checkliste for MC-tavler 57 *

930970009 DK Ordreplan for MCP-tavler 57 HHT 07.03.97 26.05.00

930980005 DK Projektoverdragelse til el-afdelingen 57 * HHT 29.06.98 1 21.11.01

930980006 DK Motorstarter for HV-TURBO kompressorer ?? HHT 15.09.98 1 05.10.98

930990027 DK Vejledning for LC-Checkliste 57 HHT 02.11.99 0

930000009 DK Identifikation af elektroteknisk dokumentation 57 * NEG 11.05.00 0

930000012 DK Stykliste EL 57 * NEG 09.09.00 0

930000012 DK Følgeseddel EL 57 * NEG 09.05.00 0

Det sissta nummret här borde ju vara först? "Namn" âr det första nummret + DK eller UK

<%If Request.QueryString("catId") = "" Then
Set RS=Conn.Execute("Select * From kat Where sub_kat=0 ORDER BY Namn")
  If RS.EOF Then%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr> 
      <td></td>
    </tr>
  </table>
  <table width="100%" cellpadding="4" cellspacing="0" class="border" align="center">
    <tr>
      <td>Inga kategorier inlagda</td>
    </tr>
  </table>
  <%Else%>
  <table width="100%" border="0" align="left">
    <tr>
      <td valign="top">
        <table width="100%" cellpadding="2" cellspacing="2" border="0">
        <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
          <td width="<%=Width%>">
        <%If RS.EOF then%>
            <table width="<%=Width2%>" cellpadding="4" cellspacing="0">
              <tr>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
        <%Else%>
            <table width="<%=Width2%>" cellpadding="4" cellspacing="0" class="border">
              <tr>
                <td valign="top"><b><a href="index.asp?catId=<%=RS("id")%>"><%=RS("kat")%></a></b></td>
              </tr>
            </table>
        <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
        </table>
       </td>
     </tr>
    </table>
  <%End If
Palles avatarPalleMedlem sedan apr. 20003 174 inlägg
#5

Hmm.. ok, så namnet är alltså nummer?

Testa då:

[red]Set RS=Conn.Execute("Select * From kat Where sub_kat=0 ORDER BY Namn DESC")[/red]
Mengs avatarMengMedlem sedan feb. 2003549 inlägg
#6

Vilken linje? så jag inte gör fel igen

Palles avatarPalleMedlem sedan apr. 20003 174 inlägg
#7

Linje?
- Bra, fråga.. ingen aning vilken rad det är i din kod. ;)

I den kod du skrev här ovan (denna) ligger den sql-satsen på rad 2.

Mengs avatarMengMedlem sedan feb. 2003549 inlägg
#8

Ok jag har varit otydlig..
Bifogad fil visar sidan och hur den ser ut.

Jag vill ha att den linjen som heter "Nr" i det grafiska fast den heter "Namn" i databasen och asp hämtar den också som "Namn". så du inte blir förvirrad allså =)

Jag vill ha den att sortara "Namn" i bokstavs och sifferordning som du ser att den inte gör på bilden.

Här är den riktiga koden (nog)

Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId"))
Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%>
<table width="100%" cellpadding="4" cellspacing="0" class="border">
  <tr>
    <td valign="top" class="rubrik"><b><%=Kat("kat")%></b></td>
    <td valign="top" align="right" class="mini">
<%Set A1=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId"))
Set A2=Conn.Execute("Select Count(*) As antal From url Where kat=" & Request.QueryString("catId"))
If A1("antal") = "0" And A2("antal") <> "0" Then%>
       <b><a href="add.asp?do=addlink&catId=<%=Request.QueryString("catId")%>">Tilføj link</a></b> 
<%ElseIf A1("antal") = "0" And A2("antal") = "0" Then%>
       <b><a href="add.asp?do=addlink&catId=<%=Request.QueryString("catId")%>">Tilføj link</a></b> |
       <b><a href="add.asp?do=addkat&catId=<%=Request.QueryString("catId")%>">Tilføj kategori</a></b>
<%ElseIf A1("antal") <> "0" And A2("antal") = "0" Then%>
       <b><a href="add.asp?do=addkat&catId=<%=Request.QueryString("catId")%>">Tilføj kategori</a></b>
<%Else%>
       <b><a href="add.asp?do=addlink&catId=<%=Request.QueryString("catId")%>">Tilføj link</a></b> |
       <b><a href="add.asp?do=addkat&catId=<%=Request.QueryString("catId")%>">Tilføj kategori</a></b>
<%End If%>  | 
<%If Kat("sub_kat") = 0 Then%>
          <a href="admin.asp?action=inne"><b>Tilbage</b></a>
<%Else%>
          <a href="admin.asp?action=inne&catId=<%=Kat("sub_kat")%>"><b>Tilbage</b></a>
<%End If%>
  	    | <b><a href="admin.asp?action=logut">Log af</a></b>
    </td>
  </tr>
  <tr>
    <td colspan="2"><hr></td>
  </tr>
</table>
<%Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId"))
If Antal("antal") = "0" Then
Set Url=Conn.Execute("Select * From url Where kat=" & Request.QueryString("catId"))

  If Url.EOF Then%>
  <table width="350" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
    <tr> 
      <td></td>
    </tr>
  </table>
  <table align="center" width="350" border="0" cellpadding="4" cellspacing="0" class="border" border="0">
    <tr>
      <td valign="top" align="center" valign="top">Inget finns under <%=Kat("kat")%></td>
    </tr>
   </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
    <tr> 
      <td></td>
    </tr>
  </table>
  <%Else%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="25" valign="top">
       <tr> 
          <td valign="top" align="left" width="110" height="25"><b>Nr</b></td>
          <td valign="top" align="left" width="385" height="25"><b>Betegnelse</b></td>
          <td valign="top" align="left" width="23" height="25"><img src="../images/ico_afd.gif" hspace=0 vspace=5 valign=top></td>
          <td align="top" align="left" width="15" height="25"><img src="../images/ico_kh.gif" hspace=0 vspace=5 valign=top></td>
          <td valign="top" align="left" width="60" height="25"><b>Udført af</b></td>
          <td valign="top" align="left" width="55" height="25"><b>Dato</b></td>
          <td valign="top" align="left" width="27" height="25"><b>Rev.</b></td>
          <td valign="top" align="left" width="55" height="25"><b>Dato</b></td>
          <td valign="top" align="left" width="55" height="25"><b>Udgået</b></td>
          <td valign="top" align="left" width="25" height="25"></td>
        </tr>
</table>
    <%Do Until Url.EOF%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">

        <tr>
          <td valign="top" align="left" width="110"><b><a href="ut.asp?id=<%=Url("id")%>" target="content" class="rubrik"><%=Code(Url("namn"))%></a></b></td>
	  <td valign="top" align="left" width="385"><%=Code(Url("info"))%></td>
	  <td valign="top" align="left" width="23"><%=Code(Url("afd"))%></td>
	  <td valign="top" align="left" width="15"><%=Code(Url("kh"))%></td>
	  <td valign="top" align="left" width="60"><%=Code(Url("af"))%></td>
	  <td valign="top" align="left" width="55"><%=Code(Url("dato"))%></td>
	  <td valign="top" align="center" width="27"><%=Code(Url("rev"))%></td>
	  <td valign="top" align="left" width="55"><%=Code(Url("dato2"))%></td>
	  <td valign="top" align="left" width="55"><%=Code(Url("ud"))%></td>
	  <td valign="top" align="right" width="25"><a href="change.asp?catId=<%=Request.QueryString("catId")%>&do=changelink&id=<%=Url("id")%>" class="mini"><img src="gfx/change.gif" border="0" alt="Ændre"></a> <a href="delete.asp?catId=<%=Request.QueryString("catId")%>&do=dellink&id=<%=Url("id")%>" class="mini" onClick="return confirm('Vil du virkligen fjerne <%=Url("namn")%>?');"><img src="gfx/delete.gif" border="0" alt="Fjern"></a></td>
	</tr>
	</table>
    <%Url.MoveNext
    Loop
  End If
Else
  If RS.EOF Then%>
  <table width="350" border="0" cellpadding="4" cellspacing="0" class="border" border="0">
    <tr>
      <td valign="top" align="center" valign="top">Ikke noget under <%=Kat("kat")%></td>
    </tr>
   </table>

  <%Else%>
  <table border="0" cellpadding="2" cellspacing="2">
    <tr>
      <td valign="top" valign="top">
        <table align="center" width="100%" cellpadding="2" cellspacing="2" border="0">
        <%x=0
        Do Until RS.EOF
          Response.Write "<tr>"
        For i=1 to PK%>
          <td width="<%=Width%>">
        <%If RS.EOF then%>
            <table width="<%=Width3%>" cellpadding="4" cellspacing="0">
              <tr>
                <td valign="top">&nbsp;</td>
              </tr>
            </table>
        <%Else%>
            <table width="<%=Width3%>" cellpadding="4" cellspacing="0" class="border" border="0">
              <tr>
                <td valign="top"><b><a href="admin.asp?action=inne&catId=<%=RS("id")%>"class="vit"><%=RS("kat")%></a></b> - <a href="change.asp?catId=<%=Request.QueryString("catId")%>&do=changekat&id=<%=RS("id")%>" class="mini"><img src="gfx/change.gif" border="0" alt="Ændre"></a> <a href="delete.asp?catId=<%=Request.QueryString("catId")%>&do=delkat&id=<%=RS("id")%>" class="mini" onClick="return confirm('Vil du virkligen fjerne <%=RS("kat")%>?');"><img src="gfx/delete.gif" border="0" alt="Fjerne"></a></td>
              </tr>
            </table>
        <%X=X+1
        RS.MoveNext
        End If
          Response.Write "</td>"
        Next
          Response.Write "</tr>"
        Loop%>
        </table>
      </td>
    </tr>
   </table>
  <%End If
End If
End If%>

<%If Request.QueryString("catId") <> "" Then%>

<%End If

ElseIf Request.Querystring("action") = "logut" Then
   Session.Abandon
   Response.Redirect "index.asp"
End If

Conn.Close
Set Conn=Nothing%>
tek.jpg
264 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
138 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)