CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede djmoose Nybegynder
19. januar 2002 - 19:34 Der er 49 kommentarer og
3 løsninger

Plukke de 5 højeste

Jeg har en database hvor man får point. På min forside vil jeg gerne vise en top 10 over dem som har flest point (ligesom her på www.eksperten.dk. Det bliver lavet i et ASP dokument. Jeg vil gerne have hele sourcekoden, da jeg ikke har så meget forstand på netop dette (derfor mange point for at løse dette). Tabellen hedder \"point\" i databasen (Access 2000).
Avatar billede fri-hash Nybegynder
19. januar 2002 - 19:37 #1
select * from point order by pointkolonne desc limit 0,10
Avatar billede hojben Novice
19. januar 2002 - 19:37 #2
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<script language=\"JavaScript\">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</script>
</head>

<body bgcolor=\"#003366\" text=\"#FFFFFF\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">
De 5 sidste tilmeldte:
<table width=\"100%\" border=\"1\"  cellpadding=\"1\" bordercolor=\"#FFFFFF\" align=\"center\"><div align=\"center\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"/databasen.mdb\")
Conn.Open DSN
\' SQL forespørgsel
strsql=\"SELECT TOP 5 * FROM point ORDER BY  ditfelt desc\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
\' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
  \' Udskriv værdien af kolonnen
notatfelt = rs(\"lokalt\")
Response.write(\"<tr align=\"\"center\"\"><td align=\"\"center\"\">\")
Response.write(\"<a href=\"\"\" & notatfelt & \"\"\" target=\"\"main\"\">\" & rs(\"firma\") & \" </td></tr>\")
  \' Gå til næste Record i rs
  rs.MoveNext
Loop
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%></div>
</table>
</body>
</html>

Leg selv med opsætningen..
Avatar billede Slettet bruger
19. januar 2002 - 19:37 #3
Hvilke felter skal du have udskrevet fra tabellen \"point\"?
Avatar billede hojben Novice
19. januar 2002 - 19:37 #4
strsql=\"SELECT TOP 5 * FROM point ORDER BY  ditfelt desc\" skal selvf. være:

strsql=\"SELECT TOP 10 * FROM point ORDER BY  ditfelt desc\"
Avatar billede entracore Nybegynder
19. januar 2002 - 19:39 #5
Der er da vist ikke noget der hedder limit 0,10 ???
Avatar billede Slettet bruger
19. januar 2002 - 19:42 #6
<%
Set rs = Server.CreateObject(\"ADODB.Recordset\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databasenavn.mdb\")
Conn.Open DSN

Set rs = Conn.Execute(\"SELECT TOP 10 * FROM point ORDER BY point DESC\")

If Not rs.EOF Then
Do While Not rs.EOF

Response.Write rs(\"brugernavn\") & \": \" & rs(\"point\")

rs.MoveNext
Loop
End If

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
Avatar billede djmoose Nybegynder
19. januar 2002 - 19:42 #7
Jeg skal have udskrevet navn, samt point.

Så navnet skal også indgå, hvor skal det så stå.

I databasen hedder titlen her \"Navn\"!
Avatar billede Slettet bruger
19. januar 2002 - 19:43 #8
Så var jeg lidt for hurtigt ude :)

Skift linjen:

Response.Write rs(\"brugernavn\") & \": \" & rs(\"point\")

ud med:

Response.Write rs(\"Navn\") & \": \" & rs(\"point\")

så skulle det virke :)
Avatar billede djmoose Nybegynder
19. januar 2002 - 19:46 #9
man skal også kunne trykke på navnet og så kommer hans/hendes hjemmeside frem i et nyt vindue.

Forhøjer gerne point, hvis det bliver løst i dag.
Avatar billede Slettet bruger
19. januar 2002 - 19:47 #10
OK. Har du et felt med personens hjemmeside?
Avatar billede djmoose Nybegynder
19. januar 2002 - 19:52 #11
ja det hedder \"homepage\"

forresten så har databasen et underbibliotek, hvor vi skal vælge \"links\"
Avatar billede hojben Novice
19. januar 2002 - 19:52 #12
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#003366\" text=\"#FFFFFF\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">
De 5 sidste tilmeldte:
<table width=\"100%\" border=\"1\"  cellpadding=\"1\" bordercolor=\"#FFFFFF\" align=\"center\"><div align=\"center\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"/databasen.mdb\")
Conn.Open DSN
\' SQL forespørgsel
strsql=\"SELECT TOP 5 * FROM point ORDER BY  ditfelt desc\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
\' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
  \' Udskriv værdien af kolonnen
notatfelt = rs(\"linktilsiden\")
Response.write(\"<tr align=\"\"center\"\"><td align=\"\"center\"\">\")
Response.write(\"<a href=\"\"\" & notatfelt & \"\"\" target=\"\"main\"\">\" & rs(\"brugernavn\") & rs(\"point\") \" </td></tr>\")
  \' Gå til næste Record i rs
  rs.MoveNext
Loop
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%></div>
</table>
</body>
</html>
Avatar billede Slettet bruger
19. januar 2002 - 19:53 #13
Response.Write \"<a href=\"\"\" & rs(\"homepage\") & \"\"\" target=\"\"_blank\"\">\" & rs(\"Navn\") & \"</a> \" & rs(\"point\") & \"<br>\"
Avatar billede hojben Novice
19. januar 2002 - 19:54 #14
notatfelt = rs(\"homepage\")
Avatar billede hojben Novice
19. januar 2002 - 19:55 #15
strsql=\"SELECT TOP 5 * FROM point ORDER BY point desc\"
Avatar billede djmoose Nybegynder
19. januar 2002 - 19:58 #16
Hvordan får jeg den til at vælge underbiblioteket. Hvis i ved hvad jeg mener...

Når jeg åbner databasen har jeg nemlig 2 valgmuligheder.
Avatar billede Slettet bruger
19. januar 2002 - 19:59 #17
Jeg er ikke helt sikker på at jeg forstår hvad du mener. Hvad går de valgmuligheder ud på?
Avatar billede hojben Novice
19. januar 2002 - 20:01 #18
hvordan underbibliotek ?
Avatar billede djmoose Nybegynder
19. januar 2002 - 20:03 #19
Når jeg åbner databasen kan jeg vælge imellem 2 ting, som jeg har kaldt underdatabaserne. Dette vælger jeg før at jeg kommer ind i alle tabellerne.
Avatar billede Slettet bruger
19. januar 2002 - 20:04 #20
Du må meget undskylde, men det fatter jeg ingenting af :(
Avatar billede hojben Novice
19. januar 2002 - 20:05 #21
kan du sende databasen ? michael@vejs.dk (men zip den først)
Avatar billede djmoose Nybegynder
19. januar 2002 - 20:05 #22
Jeg har f. eks. en mulighed der hedder profil (det er denne jeg skal bruge ovenstående til at hente en top10), men så har jeg også et valg der hedder kategori (det er den database de tilføje sig i når de opretter en profil)!!!!!!
Avatar billede djmoose Nybegynder
19. januar 2002 - 20:13 #23
hojben, har sendt mailen, så kan det være at du også lige kan forklare det til magik.....
Avatar billede hojben Novice
19. januar 2002 - 20:14 #24
ok.... fint nok :)
Avatar billede hojben Novice
19. januar 2002 - 20:29 #25
du skal kun ha fat i links tabellen...

<html>
<head>
<title>De 10 sidst tilmeldte</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#003366\" text=\"#FFFFFF\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">
De 5 sidste tilmeldte:
<table width=\"100%\" border=\"1\"  cellpadding=\"1\" bordercolor=\"#FFFFFF\" align=\"center\"><div align=\"center\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"links.mdb\")
Conn.Open DSN
\' SQL forespørgsel
strsql=\"SELECT TOP 10 * FROM links ORDER BY ID desc\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
\' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
  \' Udskriv værdien af kolonnen
notatfelt = rs(\"url\")
Response.write(\"<tr align=\"\"center\"\"><td align=\"\"center\"\">\")
Response.write(\"<a href=\"\"\" & notatfelt & \"\"\" target=\"\"_blank\"\">\" & rs(\"navn\") & \" </td></tr>\")
  \' Gå til næste Record i rs
  rs.MoveNext
Loop
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%></div>
</table>
</body>
</html>

Kan ses her:
http://www.vejs.dk/eksperten/160921/right.asp
Avatar billede djmoose Nybegynder
19. januar 2002 - 20:40 #26
Du kan ikke sende den fil retur pr. mail. Jeg synes at have skrevet alt du har nævnt, men det lykkedes ikke:

www.wmahitlist/1111/test.asp
Avatar billede hojben Novice
19. januar 2002 - 20:43 #27
hvor har du lagt databasen ??
Avatar billede djmoose Nybegynder
19. januar 2002 - 20:43 #28
Jeg har vist glemt at save, men jeg har ikke lyst til at starte en gang til. Kan du ikke sende den:

mail@wmahitlist.dk
Avatar billede hojben Novice
19. januar 2002 - 20:46 #29
er sendt
Avatar billede hojben Novice
19. januar 2002 - 20:51 #30
http://www.wmahitlist.dk/1111/test.asp

Der er problemer med rettighederne..

Er det din egen server?
Avatar billede djmoose Nybegynder
19. januar 2002 - 20:51 #31
Så kommer den med en fejl:

www.wmahitlist.dk/1111/test.asp
Avatar billede hojben Novice
19. januar 2002 - 20:51 #32
http://www.wmahitlist.dk/1111/right.asp

Det samme her...
Avatar billede djmoose Nybegynder
19. januar 2002 - 20:52 #33
Nej det er www.wannafind.dk
Avatar billede hojben Novice
19. januar 2002 - 20:57 #34
Prøv at rette Conn.Open DSN til rs.Open sql, Conn, 1, 1

Avatar billede hojben Novice
19. januar 2002 - 20:59 #35
Hvis det heller ikke hjælper, så henvis wannafind til denne side ;)

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q315456
Avatar billede djmoose Nybegynder
19. januar 2002 - 20:59 #36
mangler noget så
Avatar billede djmoose Nybegynder
19. januar 2002 - 21:02 #37
Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/1111/test.asp, line 22
Avatar billede hojben Novice
19. januar 2002 - 21:03 #38
open sql, Conn, 1, 1
Avatar billede hojben Novice
19. januar 2002 - 21:04 #39
for fanden..

mener det er

Open strsql, Conn, 1, 1
Avatar billede hojben Novice
19. januar 2002 - 21:07 #40
hmm åbenbart ikke... ret tilbage til Conn.Open DSN og få fat i wannafind.. fejlen ligger hos dem...
Avatar billede hojben Novice
19. januar 2002 - 21:13 #41
ret evt

strsql=\"SELECT TOP 10 * FROM links ORDER BY ID desc\"

til

strsql=\"SELECT TOP 10 * FROM links ORDER BY ID asc\"

så de nyeste ligger nederst
Avatar billede djmoose Nybegynder
19. januar 2002 - 21:13 #42
Jeg skal have lyst det uden dem...

Nå jeg må lige kigge på det til imorgen...

Jeg venter med point. Det kan jo være i komme i tanke om noget
Avatar billede hojben Novice
19. januar 2002 - 21:13 #43
smid lige den kode der er i http://www.wmahitlist.dk/1111/test.asp
Avatar billede hojben Novice
19. januar 2002 - 21:14 #44
Det kommer du ikke til... fejlen ligger i at de ikke har sat rettighederne på serverens TEMP og TMP bibliotek
Avatar billede djmoose Nybegynder
19. januar 2002 - 21:17 #45
Jeg har ikke fået den rettet tilbage endnu...


<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<script language=\"JavaScript\">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</script>
</head>

<body bgcolor=\"#003366\" text=\"#FFFFFF\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">
De 5 sidste tilmeldte:
<table width=\"100%\" border=\"1\"  cellpadding=\"1\" bordercolor=\"#FFFFFF\" align=\"center\"><div align=\"center\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"_private/links/links.mdb\")
rs.Open strSQL, Conn, 1, 1

strsql=\"SELECT TOP 10 * FROM links ORDER BY ID desc\"

Set rs = Conn.Execute(strSQL)

Do While Not rs.EOF

notatfelt = rs(\"url\")
Response.write(\"<tr align=\"\"center\"\"><td align=\"\"center\"\">\")
Response.write(\"<a href=\"\"\" & notatfelt & \"\"\" target=\"\"_blank\"\">\" & rs(\"navn\") & \" </td></tr>\")

  rs.MoveNext
Loop

Conn.Close
Set Conn = Nothing
%></div>
</table>
</body>
</html>
Avatar billede djmoose Nybegynder
19. januar 2002 - 21:18 #46
Jeg skal desværre til og i byen... men er online imorgen fra 18:00, men bare send pr. mail hvis du finder løsningen.
Avatar billede detholderikke Nybegynder
19. januar 2002 - 21:20 #47
strSQL = \"Select Top 10 bruger From brugere Order By Date Desc\"
Avatar billede detholderikke Nybegynder
19. januar 2002 - 21:21 #48
eller hvad er det du vil stener mange mennesker som svare :)
vil du hive de nyeste ud?
Avatar billede djmoose Nybegynder
19. januar 2002 - 21:26 #49
nej dem med flest point/hits
Avatar billede hojben Novice
19. januar 2002 - 21:56 #50
stadig.. snak med wannafind.. problemet ligger hos dem.. Jeg havde selv problemet for en uges tid siden på min egen maskine.. henvis dem evt hertil..
Avatar billede djmoose Nybegynder
22. januar 2002 - 21:07 #51
Det virker nu. Se www.wmahitlist/1111/right2.asp

Jeg mangler kun lige at den også viser antal hits, og så uddeler jeg point.
Avatar billede wmahitlist Nybegynder
23. januar 2002 - 17:54 #52
Tilføj f. eks dette:

& "<b>&nbsp;&nbsp;[" & rs("hits") & "]</b>" & "
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
Usynlige tabeller, forespørgsler mm i Access Af sigyn i Access 4 18/07/202407:29 18/07/202410:32
Convertering af variabler Af per2edb i Access 1 30/06/202420:14 01/07/202409:18
Overfør global variabel via Macro Af per2edb i Access 7 24/06/202411:37 25/06/202408:02
vis tekst ved hjælp af mousover Af per2edb i Access 3 21/06/202409:00 21/06/202414:58
Valg af type fra liste skal åbne en rapport over alle poster med den valgte type Af visto i Access 5 07/06/202417:13 10/07/202412:34
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:09 Kan ikke fildele fra PC til PC Af gertLundberg i LAN/WAN
I går 17:33 Facebook kopier en tråd Af clausito i Sociale medier
I går 09:49 Indtogs sejlads : OL i Paris : Hvornår kom Danmark ? Af Ikke-ekspert i Fri debat
I går 03:28 Inkasso som privat? Af lekor adams i Fri debat
26/0723:51 Frossen cursor Af goglov i PC
White papers
Flere white papers »


Premium
Teaser billede
Nordjyske MapsPeople ruster op til opkøb af konkurrenter: "Vi vil vinde det her kapløb"
Læs mere »
Microsoft tager til genmæle: Vores licenspraksis skaber ikke unfair konkurrence
Færre unge studerende på landets it-uddannelser: "Vi afviser dem der, hvor de har lyst til at læse"
Overblik: Sådan forløb årets største databrud - mindst 165 organisationer ramt
Se alle »
Computerworld
Teaser billede
Elon Musk dropper CrowdStrike efter kæmpe nedbrud
Læs mere »
Apples spritnye app til kodeord kommer til iOS 18: Sådan virker den
Med SearchGPT har verden fået en spritny søgemaskine: Kan den true Googles dominans?
Apples folde-iPhone tager form: Her er planerne
Se alle »
CIO
Teaser billede
Så mange Microsoft-enheder blev ramt af gigantisk Crowdstrike-koks
Læs mere »
Telenor skrotter ældre it-system: Nyt system er en hyldevare
Derfor står Danske Bank foran en kæmpe AWS-transformation: Ellers skulle vi bygge en ny infrastruktur for at følge med
Microsoft kaster milliardbeløb efter nye tiltag til partnerprogrammet: Partnerne kan nu tjene endnu flere penge
Se alle »
Job & Karriere
Teaser billede
Efter 12 år er NNIT's hovedkvarter i Søborg nu ryddet og tomt - alle arbejder hjemme: "Det er med et vist vemod"
Læs mere »
Dansk top-profil trækker sig fra Microsoft: Skal være direktør i TDC Erhverv
KMD-direktør forlader selskabet: Det skal hun nu
IBM Danmark skifter ud i sin øverste ledelse - her er den nye direktion
Se alle »
White paper
Teaser billede
Rapport kortlægger de 13 bedste muligheder for at sætte turbo på din cloud computing
Læs mere »
Guide: Sådan udvikler du en moderne netværksstrategi
Sådan gør du: Elektronisk dokumentudveksling i praksis
MDR: Transparent sikkerhed og overvågning i realtid
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »