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
Kan en kombinationsbox formateres om til en text box og omvendt Af per2edb i Access 3 21/11/202418:03 22/11/202411:38
Tilpasset decimalvisning Af visto i Access 7 12/11/202417:21 13/11/202412:22
Udregning af antal måneder og år Af pouls i Access 9 11/11/202414:55 12/11/202411:42
Gantt Chart Wizard Af per2edb i Access 2 05/11/202417:57 06/11/202410:09
Me.Form.Painting = True/False ore Me.Painting = True/false Af per2edb i Access 3 03/11/202416:41 03/11/202418:05
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 dag 08:52 DOWNLOAD TIL SAMME MAPPE Af snestrup2000 i Browsere
I dag 00:54 Windows 11 Pro - IIS Af bsn i Windows
I går 18:46 Omdanne stik på router til USB Af valby i Routere & Switches
I går 10:49 Ændring finansår C5 Af Lene i Økonomiprogrammer
25/1117:29 Proceslinje Af luffe1955 i Windows
White papers
Flere white papers »


Premium
Teaser billede
Lars Berlau gik fra boghandler til en af Danmarks førende eksperter i Microsoft Teams: "Til at starte med virkede det fuldstændig uopnåeligt"
Læs mere »
Bryder ind i alle typer smartphones: Politiet bruger israelsk hackervåben mod bander
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Efter annullering: Nu åbner Energinet igen for DevOps-aftale til 164 millioner kroner
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Se alle »
CIO
Teaser billede
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Læs mere »
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Microsoft et døgn efter nedbrud: Stadig problemer med Outlook
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Sådan gør du: Elektronisk dokumentudveksling i praksis
Læs mere »
MDR: Transparent sikkerhed og overvågning i realtid
Sikkerhed uden grænser: Cisco Hypershield
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Se alle »

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