Avatar billede tahoo Nybegynder
09. juni 2001 - 23:46 Der er 11 kommentarer og
2 løsninger

Sortering af tal hentet fra Acces Database

Jeg kan ikke få mit asp script til at sortere sådan det højeste tal stå øverst.. Se problemet på : http://www.toftum.net/vis.asp  .. det er under antal personer.. hvordan laver man sådan at den sortere sådan at det største tal er forrest. ??

noget af min script ser sådan ud :
(det må da være her \"fejlen\" er ik ?)

conn.open dsn
If request.querystring(\"identnr\") <> \"\" then
response.redirect \"ud.asp?ident=\" & request.querystring(\"identnr\")
End if

If request.querystring(\"go\") <> \"\" then
set sv = server.CreateObject(\"Scripting.Dictionary\")
for each item in request.querystring
If item <> \"go\" then
sv(item) = request.querystring(item)
End if
next

SQL = \"SELECT * FROM sommer WHERE\"

If NOT sv(\"soverum\") = \"alle\" then
SQL = SQL & \" soverum=\" & sv(\"soverum\") & \"\"
End if

If NOT sv(\"soverum\") = \"alle\" then
SQL = SQL & \" AND\"
End if

SQL = SQL & \" antalpersoner<=\" & Clng(sv(\"antalpersoner\"))

If NOT sv(\"maxpris\") = \"alle\" then
SQL = SQL & \" AND maxpris<=\" & Clng(sv(\"maxpris\"))
end if

for each item in sv
If sv(item) = \"true\" or sv(item) = true then
SQL = SQL & \" AND \" & item & \"=true\"
end if
next

SQL = SQL & \" ORDER BY \" & sv(\"sorter\")
ud = \"ja\"

end if
%>
Avatar billede erikjacobsen Ekspert
09. juni 2001 - 23:48 #1
SQL = SQL & \" ORDER BY \" & sv(\"sorter\") & \" DESC\"
Avatar billede tahoo Nybegynder
09. juni 2001 - 23:51 #2
Nu er jeg ikke lige så klog.. når man ser på asp.. hvor skal det stå hende i scriptet ???

mange tak for et hurtig svar
Avatar billede tahoo Nybegynder
10. juni 2001 - 00:02 #3
sorry det her link virker http://www.toftum.net/vis.asp
Avatar billede -mascot- Nybegynder
10. juni 2001 - 00:04 #4
jeg smider det da lige ind i din kode:

conn.open dsn
If request.querystring(\"identnr\") <> \"\" then
response.redirect \"ud.asp?ident=\" & request.querystring(\"identnr\")
End if

If request.querystring(\"go\") <> \"\" then
set sv = server.CreateObject(\"Scripting.Dictionary\")
for each item in request.querystring
If item <> \"go\" then
sv(item) = request.querystring(item)
End if
next

SQL = \"SELECT * FROM sommer WHERE\"

If NOT sv(\"soverum\") = \"alle\" then
SQL = SQL & \" soverum=\" & sv(\"soverum\") & \"\"
End if

If NOT sv(\"soverum\") = \"alle\" then
SQL = SQL & \" AND\"
End if

SQL = SQL & \" antalpersoner<=\" & Clng(sv(\"antalpersoner\"))

If NOT sv(\"maxpris\") = \"alle\" then
SQL = SQL & \" AND maxpris<=\" & Clng(sv(\"maxpris\"))
end if

for each item in sv
If sv(item) = \"true\" or sv(item) = true then
SQL = SQL & \" AND \" & item & \"=true\"
end if
next

SQL = SQL & \" ORDER BY \" & sv(\"sorter\") & \" DESC\"
ud = \"ja\"

end if
%>
Avatar billede tahoo Nybegynder
10. juni 2001 - 00:10 #5
Ja det prøvede jeg også men det virker ikke.. :-(
Avatar billede tahoo Nybegynder
10. juni 2001 - 00:11 #6
Har du / jer en anden ideé ??? :-)
Avatar billede tahoo Nybegynder
10. juni 2001 - 00:19 #7
Hele mit script ser sådan ud  :.

<%
conn.open dsn
If request.querystring(\"identnr\") <> \"\" then
response.redirect \"ud.asp?ident=\" & request.querystring(\"identnr\")
End if

If request.querystring(\"go\") <> \"\" then
set sv = server.CreateObject(\"Scripting.Dictionary\")
for each item in request.querystring
If item <> \"go\" then
sv(item) = request.querystring(item)
End if
next

SQL = \"SELECT * FROM sommer WHERE\"

If NOT sv(\"soverum\") = \"alle\" then
SQL = SQL & \" soverum=\" & sv(\"soverum\") & \"\"
End if

If NOT sv(\"soverum\") = \"alle\" then
SQL = SQL & \" AND\"
End if

SQL = SQL & \" antalpersoner<=\" & Clng(sv(\"antalpersoner\"))

If NOT sv(\"maxpris\") = \"alle\" then
SQL = SQL & \" AND maxpris<=\" & Clng(sv(\"maxpris\"))
end if

for each item in sv
If sv(item) = \"true\" or sv(item) = true then
SQL = SQL & \" AND \" & item & \"=true\"
end if
next

SQL = SQL & \" ORDER BY \" & sv(\"sorter\") & \" DESC\"
ud = \"ja\"

end if
%>

<html>
<head>
</head>
<body bgcolor=\"#006699\" text=\"#CCCCCC\" link=\"#CCCCCC\" vlink=\"#CCCCCC\" alink=\"#CCCCCC\">
<%If ud=\"ja\" then

set rs = conn.execute(SQL)
If not rs.EOF then%>
<p>&nbsp;</p><div align=\"center\">
  <table width=\"49%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
    <%Do while not rs.eof%>
    <tr>
      <td width=\"24%\" height=\"100\"><img src=\"<%=rs(\"billede\")%>\" with=32 height=90 width=\"130\">
      </td>
      <td width=\"76%\" height=\"100\">- <a href=\"ud.asp?ident=<%=rs(\"id\")%>\"><%=rs(\"kbesk\")%></a></td>
    </tr>
    <%rs.movenext
loop%>
  </table>
  <%else%> <b><font color=\"#CCCCCC\">S&oslash;gningen gav ingen resultat</font></b><%end if
end if%> </div>
<form method=\"get\" action=\"vis.asp\">
  <div align=\"center\">
    <p>&nbsp;</p>
    <p><br>
    </p>
    <table border=0 cellpadding=0 cellspacing=0 width=\"446\">
      <tr>
        <td align=left height=25 valign=center width=\"229\">
          <div class=pc2><font color=\"#CCCCCC\">Antal soverum :</font></div>
        </td>
        <td height=23 width=\"217\">
          <div align=\"right\">
            <select name=\"soverum\">
              <%SQL = \"SELECT DISTINCT soverum FROM sommer order by soverum\"
    set simonergod = conn.execute(SQL)
    do while not simonergod.eof
    response.write \"<option value=\'\" & simonergod(\"soverum\") & \"\'>\" & simonergod(\"soverum\") & \"</option>\"
    simonergod.movenext
loop
%>
              <option selected value=\"alle\">Vælg antal soverum</option>
            </select>
          </div>
        </td>
      </tr>
      <tr>
      <tr>
        <td align=left height=23 valign=center width=\"229\">
          <div class=pc2><font color=\"#CCCCCC\">Max antal personer :</font></div>
        </td>
        <td height=23 width=\"217\">
          <div align=\"right\">
            <select name=\"antalpersoner\">
              <%SQL = \"SELECT DISTINCT antalpersoner FROM sommer order by antalpersoner\"
    set simonergod = conn.execute(SQL)
    do while not simonergod.eof
    response.write \"<option value=\" & simonergod(\"antalpersoner\") & \">\" & simonergod(\"antalpersoner\") & \"</option>\"
    simonergod.movenext
loop
%>
            </select>
          </div>
        </td>
      </tr>
      <tr>
        <td align=left height=23 valign=center width=\"229\">
          <div class=pc2><font color=\"#CCCCCC\">Maxpris :</font></div>
        </td>
        <td height=23 width=\"217\">
          <div align=\"right\">
            <select name=\"maxpris\">
              <option selected value=\"alle\">Ingen maxpris</option>
              <option value=\"1000\">1000,-</option>
              <option value=\"2000\">2000,-</option>
              <option value=\"3000\">3000,-</option>
              <option value=\"4000\">4000,-</option>
              <option value=\"5000\">5000,-</option>
              <option value=\"6000\">6000,-</option>
              <option value=\"7000\">7000,-</option>
              <option value=\"8000\">8000,-</option>
              <option value=\"9000\">9000,-</option>
              <option value=\"10000\">10000,-</option>
              <option value=\"11000\">11000,-</option>
              <option value=\"12000\">12000,-</option>
              <option value=\"13000\">13000,-</option>
              <option value=\"14000\">14000,-</option>
              <option value=\"15000\">15000,-</option>
              <option value=\"16000\">16000,-</option>
              <option value=\"17000\">17000,-</option>
              <option value=\"18000\">18000,-</option>
              <option value=\"19000\">19000,-</option>
              <option value=\"20000\">20000,-</option>
            </select>
          </div>
        </td>
      </tr>
    </table>
    <table border=0 cellpadding=0 cellspacing=0 width=\"445\">
      <tr>
        <td align=left height=25 valign=center colspan=\"2\">
          <p align=\"left\"><font color=\"#CCCCCC\"><br>
            Markér de faciliteter, du ønsker :</font></p>
  </td>
      </tr>
    </table>
    <br>
  </div>
  <div align=\"center\">
    <table border=\"0\" width=\"35%\" cellspacing=\"0\" cellpadding=\"0\" height=\"18\">
      <%SQL = \"SELECT * FROM valg order by besk\"
set rs = conn.execute(SQL)
Do while not rs.eof%>
      <tr>
        <td width=\"3%\">
          <input type=\"checkbox\" name=\"<%=rs(\"navn\")%>\" value=\"true\">
        </td>
        <td width=\"64%\"><%=rs(\"besk\")%></td>
      </tr>
      <%rs.movenext
loop%>
    </table>
    <table border=0 cellpadding=0 cellspacing=0 width=\"453\">
      <tr>
        <td align=left height=25 valign=center width=\"237\">
          <p align=\"left\"><font color=\"#CCCCCC\">Sorter resultater efter :</font>
          </p>
        </td>
        <td align=left height=25 valign=center width=\"221\">
          <div align=\"right\">
            <select name=\"sorter\">
              <option value=\"soverum\">Soverum</option>
              <option value=\"antalpersoner\">Antalpersoner</option>
              <option value=\"maxpris\">Maxpris</option>
            </select>
          </div>
        </td>
      </tr>
    </table>
    <br>
  </div>
  <p align=\"center\">
    <input type=\"submit\" value=\"Find sommerhus\" name=\"go\">
  </p>
</form>
<%conn.close%>
<form name=\"identnr\" method=\"get\">
  <div align=\"center\">S&oslash;g p&aring; ID :
    <input type=\"text\" name=\"identnr\">
    <input type=\"submit\" name=\"Submit\" value=\"S&oslash;g\">
  </div>
</form>
<p align=\"center\">&nbsp;</p>
</body></html>
Avatar billede erikjacobsen Ekspert
10. juni 2001 - 00:57 #8
Er det et talfelt eller et tekstfelt ?
Avatar billede tahoo Nybegynder
10. juni 2001 - 09:49 #9
Det er et talfelt.

Du kan se det her .. : http://www.toftum.net/vis.asp

Det er under antalpersoner....
Avatar billede erikjacobsen Ekspert
10. juni 2001 - 10:01 #10
Tjah, jeg kan stadig ikke se hvad problemet er.
Avatar billede tahoo Nybegynder
10. juni 2001 - 11:02 #11
Hvis du går ind på siden, kan du se under antalpersoner at der stå 4... der skal stå det største tal. ( som er 8 )..
Avatar billede proaccess Nybegynder
10. juni 2001 - 11:07 #12
Uddrag fra din kode:

          <div class=pc2><font color=\"#CCCCCC\">Max antal personer :</font></div>
        </td>
        <td height=23 width=\"217\">
          <div align=\"right\">
            <select name=\"antalpersoner\">
              <%SQL = \"SELECT DISTINCT antalpersoner FROM sommer order by antalpersoner\"
    set simonergod = conn.execute(SQL)
    do while not simonergod.eof
    response.write \"<option value=\" & simonergod(\"antalpersoner\") & \">\" & simonergod(\"antalpersoner\") & \"</option>\"
    simonergod.movenext
loop
%>
           

Der skal du rette følgende linie:
              <%SQL = \"SELECT DISTINCT antalpersoner FROM sommer ORDER BY antalpersoner DESC\"

Avatar billede tahoo Nybegynder
10. juni 2001 - 11:14 #13
Mange tak :-) det virker sku nu........ jubiii :-)
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