Notifikationer

Markér alle som læst Log ud

debbis Nybegynder

14. april 2001 - 17:23 Der er 6 kommentarer og
1 løsning

Udskrive tabellen, som passer til iden

Jeg vil gerne starte med at sige jeg er ny her på eksperten.dk, men har fulgt meget med, inden jeg fik en bruger :)

Jeg har to spørgsmål, som jeg håber I kan svare på.

1. spm
Jeg har en MS access database, med en masse vitser og jokes. De skal så udskrives efter deres ID-nummer, altså sådan her:
http://www.eksperten.dk/visjokes.asp?jokeid=21
Og så skal hele tabellen med ID 21 udskrives.

2. spm
Det passer lidt sammen med det første jeg stilelde.
Efter man har læst joken med ID 21, skal der være et link, til det næste id, så linket ser sådan ud:
http://www.eksperten.dk/visjokes.asp?jokeid=22
Kan man gøre det automatisk, eller skal det gøres manualt?

Til begge spm. ønsker jeg at få nogle scripts, ikke fulde, men bare ren asp.

Synes godt om

bjarke-b Nybegynder

14. april 2001 - 17:36 #1

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
sql = \"Select * from joke_tabel where id = \" & Request.Querystring(\"jokeid\")
Set rs = Conn.Execute(sql)

Response.Write rs(\"joke\")
next_id = Request.Querystring(\"jokeid\") + 1
%>
<a href=visjokes.asp?jokeid=<%=next_id%>>Næste joke</a>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

Synes godt om

bjarke-b Nybegynder

14. april 2001 - 17:36 #2

Synes godt om

debbis Nybegynder

14. april 2001 - 17:45 #3

Den skriver dette:
ADODB.Fields fejl \'800a0cc1\'

ADO could not find the object in the collection corresponding to the name or ordinal reference requested by the application.

visjokes.asp, linje 7

Synes godt om

debbis Nybegynder

14. april 2001 - 17:49 #4

Nu virker det. jeg havde glemt at rette navnet på tabellen :)

Synes godt om

debbis Nybegynder

14. april 2001 - 17:50 #5

Kan man godt lave et link, der linker til forrige joke?

Synes godt om

bjarke-b Nybegynder

14. april 2001 - 18:08 #6

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
sql = \"Select * from joke_tabel where id = \" & Request.Querystring(\"jokeid\")
Set rs = Conn.Execute(sql)

Response.Write rs(\"joke\")
next_id = Request.Querystring(\"jokeid\") + 1
previous_id = Request.Querystring(\"jokeid\") + 1
%>
<a href=visjokes.asp?jokeid=<%=previous_id%>>Forrige joke</a> - <a href=visjokes.asp?jokeid=<%=next_id%>>Næste joke</a>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

Synes godt om

debbis Nybegynder

14. april 2001 - 19:52 #7

Tak for det, det virker som det skal !

Tak igen.

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	1	07/11/202415:34	01/01/202514:58
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