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
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
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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