Avatar billede websam Nybegynder
18. maj 2003 - 09:46 Der er 8 kommentarer og
2 løsninger

Automatisk nummering ?

Hejsa

Jeg har prøvet om jeg kunne snuse mig frem til at at lave en auto nummering i asp (ikke i databasen) Det jeg skal bruge er at jeg henter en række oplysninger fra databasen og skal så ud fra et tal sortere dem efter højeste værdi. men samtidig skal der skrives :

1  1200
2  1000
3  800
osv.....

Er det muligt at gøre dette i ren asp ?

/websam
Avatar billede -master-d- Nybegynder
18. maj 2003 - 11:06 #1
Ja du henter dem bare fra databasen på denne måde :

Set rs = Conn.Execute("SELECT * From Tabel ORDER BY Feltet ASC")

i = 1

If NOT (rs.bof or rs.eof) then
do while not rs.eof
Response.Write i & "." & rs("Feltet")
i = i +1
rs.movenext
loop
end if
Avatar billede ellebaek Nybegynder
18. maj 2003 - 11:15 #2
Set rs = Conn.Execute("SELECT * From Tabel ORDER BY Feltet DESC")
Avatar billede -master-d- Nybegynder
18. maj 2003 - 11:19 #3
Min fejl ellebaek.

Det var bare lige en copy'n paste fejl. Tak for det vågne øje.. :D
Avatar billede websam Nybegynder
18. maj 2003 - 12:02 #4
ok det har jeg lige prøvet men det giver ikke andet en
1 1200
1 1000
1  800
det var jo ikke meningen :o)
Avatar billede ellebaek Nybegynder
18. maj 2003 - 12:05 #5
i = 1
while not rs.eof
Response.Write i & " " & rs("Feltet")
i = i +1
rs.movenext
wend
Avatar billede ellebaek Nybegynder
18. maj 2003 - 12:05 #6
Se lige bort fra det jeg lige skrev, det er det samme som master-d skrev

Kan vi ikke få lidt mere kode at kigge på ??
Avatar billede websam Nybegynder
18. maj 2003 - 12:07 #7
Jo da her kommer det :

  <%
    Sql = "Select * From Navne Order By Ind Desc"
    Set Rs = Conn.Execute(Sql)
    Do While Not Rs.EOF
    i = 1
  %>
  <tr>
    <td><%Response.Write i%>
    </td>
    <td><%= Rs("Navn")%></td>
    <td colspan="6">
    <table border="0" cellpadding="0" cellspacing="0">
      <tr>
      <%
        Sql = "Select * From Kegler Where Nid = " & Rs("Id")
        Set RsKegler = Conn.Execute(Sql)
        Do While Not RsKegler.EOF
      %>
        <td width="40"><%= RsKegler("Kegler")%></td>
      <%
        RsKegler.MoveNext
        Loop
      %>
      </tr>
    </table>
    </td>
    <td align="right"><%= Rs("Ind")%></td>
  </tr>
  <%
    i = i + 1
    Rs.MoveNext
    Loop
  %>
</table>
Avatar billede ellebaek Nybegynder
18. maj 2003 - 12:09 #8
<%
    Sql = "Select * From Navne Order By Ind Desc"
    Set Rs = Conn.Execute(Sql)
    i = 1
    Do While Not Rs.EOF
      %>
  <tr>
    <td><%Response.Write i%>
    </td>
    <td><%= Rs("Navn")%></td>
    <td colspan="6">
    <table border="0" cellpadding="0" cellspacing="0">
      <tr>
      <%
        Sql = "Select * From Kegler Where Nid = " & Rs("Id")
        Set RsKegler = Conn.Execute(Sql)
        Do While Not RsKegler.EOF
      %>
        <td width="40"><%= RsKegler("Kegler")%></td>
      <%
        RsKegler.MoveNext
        Loop
      %>
      </tr>
    </table>
    </td>
    <td align="right"><%= Rs("Ind")%></td>
  </tr>
  <%
    i = i + 1
    Rs.MoveNext
    Loop
  %>
</table>
Avatar billede websam Nybegynder
18. maj 2003 - 12:11 #9
Ja der kan man bare se *GGG* skal vi sige at i deler point ???
Avatar billede ellebaek Nybegynder
18. maj 2003 - 12:12 #10
Det er i orden med mig...
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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