CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

n0bi Nybegynder

03. juli 2001 - 09:15 Der er 38 kommentarer og
1 løsning

10 nyeste posts

Jeg skal have lavet så en side kun viser de 10 nyeste posts fra en MS access database.

Databasen hedder \"settings.mdb\", Tabellen hedder \"news\" og rækken som skal viser hedder subject.

Synes godt om

n0bi Nybegynder

03. juli 2001 - 09:15 #1

Design laver jeg selv bagefter

Synes godt om

orca Nybegynder

03. juli 2001 - 09:47 #2

<%
\'lav din connection string

sql = \"SELECT TOP 10 * FROM news SORT BY subject Asc\"
rs = conn.execute(sql)

do until rs.EOF
%>
<%=rs(\"subject\")%> 
%<
loop
%>

dette vil vælge de ti nyeste posts fra news og vise dem. De bliver sorteret alfabetisk via rækken subject.

Mvh Mark

Synes godt om

n0bi Nybegynder

03. juli 2001 - 10:28 #3

Sådan se min kode ud, det virker ikke rigtig... hvor ligger fejlen?

Fejlbesked:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: \'\'
/sek/www/sek/test.asp, line 17

Kode:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news SORT BY subject Asc\"
rs = conn.execute(sql)

do until rs.EOF
%>
<%=rs(\"subject\")%> 
<%
loop
%>

</BODY>
</HTML>

En anden ting er at jeg godt vil have den til at sortere efter en kolone der hedder \"dato\" og derefter skal den sortere efter en kolone der hedder \"tid\"

Synes godt om

keysersoze Guru

03. juli 2001 - 10:31 #4

orca >> jeg skulle lige skubbe til dig fra unknown_someone i et eller andet Playstation spørgsmål..

Synes godt om

keysersoze Guru

03. juli 2001 - 10:33 #5

sql = \"SELECT TOP 10 FROM news order BY dato, tid\"

Synes godt om

n0bi Nybegynder

03. juli 2001 - 10:43 #6

Stadig samme fejl:
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 FROM news SORT BY dato, tid\"
rs = conn.execute(sql)

do until rs.EOF
%>
<%=rs(\"subject\")%> 
<%
loop
%>

</BODY>
</HTML>

Synes godt om

keysersoze Guru

03. juli 2001 - 10:52 #7

nu har du jo heller ikke ændret det til det jeg foreslog...

Synes godt om

orca Nybegynder

03. juli 2001 - 11:06 #8

Damn... jeg blander altid ORDER og SORT sammen :( ;O).
Keysersoze -> Har du en URL på det spm for jeg kan ikke lige finde det...

Mvh Mark

w
w
w
.
f
o
t
x
.
n
e
t

Synes godt om

keysersoze Guru

03. juli 2001 - 14:05 #9

han er sjældent online men snakker tit med ham...

http://www.eksperten.dk/spm/85613

Synes godt om

n0bi Nybegynder

03. juli 2001 - 14:15 #10

Svarer i spm\'et?

Synes godt om

orca Nybegynder

03. juli 2001 - 14:17 #11

brug denne kode:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news ORDER BY date, tid\"
rs = conn.execute(sql)

do until rs.EOF
%>
<%=rs(\"subject\")%> 
<%
loop
%>

</BODY>
</HTML>

virker det ikke?

Synes godt om

n0bi Nybegynder

03. juli 2001 - 14:22 #12

Microsoft VBScript runtime (0x800A01A8)
Object required: \'\'
/sek/www/sek/test.asp, line 17

Synes godt om

n0bi Nybegynder

03. juli 2001 - 14:25 #13

husk det hedder dato og ikke date... men det hjælper ikke at rette

Synes godt om

keysersoze Guru

03. juli 2001 - 14:30 #14

hvad hvis du bruger denne:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 FROM news ORDER BY dato, tid\"
rs = conn.execute(sql)

do until rs.EOF
%>
<%=rs(\"subject\")%> 
<%
loop
%>

</BODY>
</HTML>

Synes godt om

n0bi Nybegynder

03. juli 2001 - 14:32 #15

nope virker stadig ikke

Synes godt om

orca Nybegynder

03. juli 2001 - 14:36 #16

Jeg tror jeg ved hvorfor. I mit første eksempel skriver jeg rs = Conn.execute - hos dig i din connection string hedder den DataConn - prøv mit eksempel nu

denne kode burde virke:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 FROM news ORDER BY dato, tid\"
set rs = DataConn.execute(sql)

do until rs.EOF
%>
<%=rs(\"subject\")%> 
<%
loop
%>

</BODY>
</HTML>

Synes godt om

n0bi Nybegynder

03. juli 2001 - 14:41 #17

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.
/sek/www/sek/test.asp, line 17

Synes godt om

orca Nybegynder

03. juli 2001 - 14:45 #18

Nu må den simpelthen være der ;o)

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news ORDER BY dato, tid\"
rs = DataConn.execute(sql)

do until rs.EOF
%>
<%=rs(\"subject\")%> 
<%
loop
%>

</BODY>
</HTML>

Synes godt om

n0bi Nybegynder

03. juli 2001 - 14:48 #19

LOL ikke helt :o)

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn\'t support this property or method: \'EOF\'
/sek/www/sek/test.asp, line 19

Synes godt om

orca Nybegynder

03. juli 2001 - 14:50 #20

hehe... here we go again:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news ORDER BY dato, tid\"
set rs = DataConn.execute(sql)

do until rs.EOF
%>
<%=rs(\"subject\")%> 
<%
loop
%>

</BODY>
</HTML>

Synes godt om

n0bi Nybegynder

03. juli 2001 - 14:56 #21

hmmm nu står den bare og hænger

Synes godt om

n0bi Nybegynder

03. juli 2001 - 14:57 #22

Error Type:
Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
/sek/www/sek/test.asp

Synes godt om

orca Nybegynder

03. juli 2001 - 15:04 #23

hmmm... det kunne tyde på et uendeligt loop selvom jeg nu ikke kan se hvorfor det skulle opstå... vi prøver med et While Wend loop i stedet så:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news ORDER BY dato, tid\"
set rs = DataConn.execute(sql)

While NOT rs.EOF
%>
<%=rs(\"subject\")%> 
<%
Wend
%>

</BODY>
</HTML>

Synes godt om

keysersoze Guru

03. juli 2001 - 15:09 #24

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news ORDER BY dato, tid\"
set rs = DataConn.execute(sql)

Do While NOT rs.EOF
%>
<%=rs(\"subject\")%> 
<%
rs.MoveNext
loop
%>

</BODY>
</HTML>

Synes godt om

orca Nybegynder

03. juli 2001 - 15:12 #25

FUCK! hvor dum kan jeg være?!? hvordan kunne jeg glemme rs.MoveNext! LOL! ;O). total til grin... jeg får lige nogle af mine venner til at slå mig hårdt... PS. huske at skriv din databases navn i stedet for bare *.mdb i din connection string.

Med Smertefulde Hilsner

Mark

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:12 #26

Okay nu gør vi det bare lettere så.... den skal kun vise du 10 nyeste post, men skal IKKE sortere eller gør lignende

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:13 #27

okay det prøver jeg lige

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:15 #28

Citat: PS. huske at skriv din databases navn i stedet for bare *.mdb i din connection string.

Ikk forstået

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:15 #29

wee det virker

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:15 #30

hvem skal have pointne? keysersoze har givet den rigtige løsning!

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:17 #31

Hov vent noget er galt... den skal bare vise de 10 nederst i databasen (det er jo de nyeste!!). Glem alt det med dato og tids sortering

Synes godt om

keysersoze Guru

03. juli 2001 - 15:18 #32

n0bi >> glem det med database-navnet... det er vist orca der er overset noget - det er rigtigt nok...

Synes godt om

orca Nybegynder

03. juli 2001 - 15:18 #33

Kommentar fra n0bi
03/07 2001 15:15:04 -> Mig der så forkert :)

Kommentar fra n0bi
03/07 2001 15:15:53 -> *snøft*... kan vi ikke deles om pointene? :)

Mvh Mark

Synes godt om

keysersoze Guru

03. juli 2001 - 15:19 #34

du kan sortere på to måder:

sql = \"SELECT TOP 10 * FROM news ORDER BY dato, tid desc\"

sql = \"SELECT TOP 10 * FROM news ORDER BY dato, tid asc\"

brug den der passer til dig...

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:19 #35

Koden virker sådan, men:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news\"
set rs = DataConn.execute(sql)

Do While NOT rs.EOF
%>
<%=rs(\"subject\")%> 
<%
rs.MoveNext
loop
%>

</BODY>
</HTML>

Den skal tage de 10 nederste

Synes godt om

orca Nybegynder

03. juli 2001 - 15:20 #36

Dette burde vise de 10 nyeste... hvis ikke så skift \"Asc\" ud med \"Desc\"

Mvh Mark

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news ORDER BY dato, tid Asc\"
set rs = DataConn.execute(sql)

Do While NOT rs.EOF
%>
<%=rs(\"subject\")%> 
<%
rs.MoveNext
loop
%>

</BODY>
</HTML>

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:22 #37

Orca -> den skal IKKE sortere efter tid og dato.... den skal bare de 10 nederste

Synes godt om

n0bi Nybegynder

03. juli 2001 - 15:24 #38

Fandt selv ud af det:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/settings.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 10 * FROM news ORDER BY id desc\"
set rs = DataConn.execute(sql)

Do While NOT rs.EOF
%>
<%=rs(\"subject\")%> 
<%
rs.MoveNext
loop
%>

</BODY>
</HTML>

Synes godt om

orca Nybegynder

03. juli 2001 - 15:25 #39

Jamen du bliver nødt til at sortere efter et eller andet for at vælge de 10 nederste... Har du så f.eks en unik Id så man kan skrive

sql = \"Select TOP * from news Order By Id Desc\" - eller Asc

Mvh Mark

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Udviklings- og Forenklingsstyrelsen

Karrieremulighed inden for cybersikkerhed

Statens IT

Knowledge Process Manager

Netcompany A/S

Microsoft Operations Engineer

Capgemini Danmark A/S

Salesforce Senior Technical Consultant

Capgemini Danmark A/S

Salesforce Senior Functional Consultant

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling