CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede sapworld Nybegynder
12. juli 2005 - 16:44 Der er 14 kommentarer og
1 løsning

Hente 2 poster fra her katagori fra access database

Hej

Jeg har en access database med links. Her registrerer jeg katagori af links, samt tæller når der klikkes på dem.

Nu skal jeg have lavet et side der viser de 2 mest brugte links i hver katagori:

PC / mobil
link 1
link 2

Hjemmesider
Link 1
Link 2

osv osv osv....

Jeg ville jo gerne at siden loader hurtigst muligt, så hvordan laver jeg det bedste kald?

Hvad mangler her?
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DB/database.mdb")
Conn.Open DSN
%>

PC / Mobil
<%
sql = "Select top 2 * from links Where catagory = 'PC / Mobil' order by count desc%>
set links = objConn.Execute(strSQL)
<%=links.Fields("link")%>

PC / Mobil
<%
sql = "Select top 2 * from links Where catagory = 'hjemmesider' %order by count desc>
set links = objConn.Execute(strSQL)
<%=links.Fields("link")%>

<%
objConn.Close
%>
Avatar billede nielle Nybegynder
12. juli 2005 - 19:32 #1
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DB/database.mdb")
Conn.Open DSN
%>

PC / Mobil
<%
sql = "Select top 2 * from links Where catagory = 'PC / Mobil' order by count desc"
set links = objConn.Execute(strSQL)
do while not rs.eof
    Response.Write links.Fields("link") & "<br>"
    links.MoveNext
loop
%>

PC / Mobil
<%
sql = "Select top 2 * from links Where catagory = 'hjemmesider' order by count desc"
set links = objConn.Execute(strSQL)
do while not rs.eof
    Response.Write links.Fields("link") & "<br>"
    links.MoveNext
loop

objConn.Close
%>
Avatar billede sapworld Nybegynder
12. juli 2005 - 20:26 #2
JEg får denne fejl:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/intern/test.asp, line 97
Avatar billede nielle Nybegynder
12. juli 2005 - 20:33 #3
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DB/database.mdb")
Conn.Open DSN
%>

PC / Mobil
<%
strSQL = "Select top 2 * from links Where catagory = 'PC / Mobil' order by count desc"
set links = objConn.Execute(strSQL)
do while not rs.eof
    Response.Write links.Fields("link") & "<br>"
    links.MoveNext
loop
%>

PC / Mobil
<%
strSQL = "Select top 2 * from links Where catagory = 'hjemmesider' order by count desc"
set links = objConn.Execute(strSQL)
do while not rs.eof
    Response.Write links.Fields("link") & "<br>"
    links.MoveNext
loop

objConn.Close
%>
Avatar billede sapworld Nybegynder
12. juli 2005 - 20:43 #4
Jeg får samme fejl - jeg har rettet lidt i koden:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DB/database.mdb")
Conn.Open DSN
%>

Diverse<br>
<%
strSQL = "Select top 2 * from links Where catagory = 'Diverse' order by count desc"
set links = objConn.Execute(strSQL)
do while not rs.eof
    Response.Write links.Fields("link") & "<br>"
    links.MoveNext
loop
%>

Hjemmeside<br>
<%
strSQL = "Select top 2 * from links Where catagory = 'hjemmeside' order by count desc"
set links = objConn.Execute(strSQL)
do while not rs.eof
    Response.Write links.Fields("link") & "<br>"
    links.MoveNext
loop

objConn.Close
%>
Avatar billede nielle Nybegynder
12. juli 2005 - 20:44 #5
Hvad er line 97 så for en af dem?
Avatar billede sapworld Nybegynder
12. juli 2005 - 20:45 #6
set links = objConn.Execute(strSQL)
Avatar billede nielle Nybegynder
12. juli 2005 - 20:47 #7
Den 1. eller den 2. af dem?
Avatar billede nielle Nybegynder
12. juli 2005 - 20:49 #8
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DB/database.mdb")
Conn.Open DSN
%>

Diverse<br>
<%
strSQL = "Select top 2 * from links Where catagory = 'Diverse' order by count desc"
set links = Conn.Execute(strSQL)
do while not rs.eof
    Response.Write links("link") & "<br>"
    links.MoveNext
loop
%>

Hjemmeside<br>
<%
strSQL = "Select top 2 * from links Where catagory = 'hjemmeside' order by count desc"
set links = Conn.Execute(strSQL)
do while not rs.eof
    Response.Write links("link") & "<br>"
    links.MoveNext
loop

Conn.Close
%>
Avatar billede nielle Nybegynder
12. juli 2005 - 20:50 #9
Dine SQL sætninger ender med:

...  order by count desc

- hvad mener du egentlig med det? Det er nemlig ikke lovlig SQL og det skal derfor tilrettes.
Avatar billede sapworld Nybegynder
12. juli 2005 - 20:54 #10
Hmm - nu er det denne:
Alm. tekst her Diverse
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/intern/test.asp, line 98

Linie 98 er den første af disse:
do while not rs.eof
Avatar billede nielle Nybegynder
12. juli 2005 - 20:56 #11
Vi nærmer os:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DB/database.mdb")
Conn.Open DSN
%>

Diverse<br>
<%
strSQL = "Select top 2 * from links Where catagory = 'Diverse' order by count desc"
set links = Conn.Execute(strSQL)
do while not links.eof
    Response.Write links("link") & "<br>"
    links.MoveNext
loop
%>

Hjemmeside<br>
<%
strSQL = "Select top 2 * from links Where catagory = 'hjemmeside' order by count desc"
set links = Conn.Execute(strSQL)
do while not links.eof
    Response.Write links("link") & "<br>"
    links.MoveNext
loop

Conn.Close
%>
Avatar billede sapworld Nybegynder
12. juli 2005 - 20:56 #12
Count er navnet på et kolonne i databasen
Avatar billede nielle Nybegynder
12. juli 2005 - 20:58 #13
Count er desværre også et reserveret ord i SQL. Derfor skal det havde særbehandling:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DB/database.mdb")
Conn.Open DSN
%>

Diverse<br>
<%
strSQL = "Select top 2 * from links Where catagory = 'Diverse' order by [count] desc"
set links = Conn.Execute(strSQL)
do while not links.eof
    Response.Write links("link") & "<br>"
    links.MoveNext
loop
%>

Hjemmeside<br>
<%
strSQL = "Select top 2 * from links Where catagory = 'hjemmeside' order by [count] desc"
set links = Conn.Execute(strSQL)
do while not links.eof
    Response.Write links("link") & "<br>"
    links.MoveNext
loop

Conn.Close
%>
Avatar billede sapworld Nybegynder
12. juli 2005 - 21:01 #14
ahh - nu virker det :)

Tak for hjælpen - poster du er svar
Avatar billede nielle Nybegynder
12. juli 2005 - 21:04 #15
Svar :^)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 0 07/11/202415:34 -
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
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 14:13 Smart Switch Android til Android Af valby i Mobiltelefoner
I dag 08:16 Outlook Af jdann i E-mail programmer
I går 20:00 Genie Timeline Af Malm i Andet software
I går 16:09 Plex virker ikke uden for netværk ??? Af Ronron i Mac
I går 16:03 exFat Af Bruce i Apps til iOS
White papers
Flere white papers »


Premium
Teaser billede
Et år efter hård kritik: En stribe myndigheder har fortsat store huller i deres kriseberedskaber
Læs mere »
Næsten alle de gode navne er taget, men domænehandleren Marcus har en opskrift, der kan hjælpe dig med at kapre drømmeadressen
EU åbner NIS2-sag mod Danmark efter store forsinkelser: Får to måneder
Gør som stort konsulenthus: Rekruttér selv og få bedre kvalitet … og spar en masse penge
Se alle »
Computerworld
Teaser billede
Omfattende netværksproblemer hos TDC: Nu er årsagen muligvis fundet
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Stortest: Med USB-C skulle alle kabler være lige - men det er de bare slet ikke
Et ”mareridt for privatlivets fred”: Kontroversiel Windows-funktion er udkommet i en test-version
Se alle »
CIO
Teaser billede
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Leverandør til 50 danske kommuner ramt af ransomware: "Det er ikke sjovt," siger direktør Thomas à Porta
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
Twoday er rykket til et af de dyreste postnumre i Danmark – og det kan betale sig, siger topchef Lars Berthelsen
Se alle »
White paper
Teaser billede
MDR: Transparent sikkerhed og overvågning i realtid
Læs mere »
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Sådan gør du: Elektronisk dokumentudveksling i praksis
Sådan: Én løsning til compliance, sikkerhed og overblik
Se alle »

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