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

steen_hansen Forsker

04. juni 2002 - 13:18 Der er 21 kommentarer og
1 løsning

Hovedområder/kategorier

Jeg vil gerne lave denne "navigation", faktisk ligesom her på Eksperten:

"Du er her : Eksperten : Opret spørgsmål"

Så vidt jeg ved, skal der på forhånd defineres nogle hovedområder:

omr01 = MinForside

eller

omr01url = "http://www.MinForside.dk/"

Hvis jeg hiver noget ud på denne adresse:

http://www.MinForside.dk/artikler/artikel.asp?artikelID=741

kan man vel tage rs("emne") og skrive det ud på denne måde:

Forside / artikler / <%= "emne"%>

...eller? Hjælp fra bunden ønskes.

Lige et PS: Jeg fandt et JavaScript, som kunne skrive dette nogenlunde ud, men ikke helt. Scriptet skrev dette ud, som ikke er helt det, som jeg efterlyser:

Forside / artikler / artikel.asp

- så det har jeg droppet igen.

Håber jeg har gjort problemet let forståeligt.

Synes godt om

tmceu Praktikant

04. juni 2002 - 13:27 #1

Måske kan du bruge mit svar her: http://www.eksperten.dk/spm/216561

Synes godt om

steen_hansen Forsker

04. juni 2002 - 13:40 #2

Hvor skal det sættes ind? Mellem <body></body>?

Synes godt om

steen_hansen Forsker

04. juni 2002 - 13:44 #3

Ja, det virker. Jeg for dog ikke stien Forside / artikler / frem.

Jeg får heller ikke <%= emne%> frem v.hj.a. dette script :o(

Synes godt om

steen_hansen Forsker

04. juni 2002 - 13:52 #4

Andre bud?

Synes godt om

tmceu Praktikant

04. juni 2002 - 14:05 #5

Prøv med denne i stedet:

<%

Response.Write "<A HREF=""/"">Forside</A> / "

myArr = split(Request.ServerVariables("SCRIPT_NAME"), "/")

' første element er blank, det sidste scriptnavnet
For i = 1 To UBound(myArr) -1
If i > 1 Then
Response.Write "<A HREF=""/" & myArr(i-1) & "/" & myArr(i) & """>" & myArr(i) & "</A> / "
Else
Response.Write "<A HREF=""/" & myArr(i) & """>" & myArr(i) & "</A> / "
End If
Next

Response.Write rs("Emne")

%>

Synes godt om

steen_hansen Forsker

04. juni 2002 - 14:19 #6

Det ser lovende ud, men jeg får en fejl:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT * FROM debat"

Response.Write "<A HREF=""/"">Forside</A> / "

myArr = split(Request.ServerVariables("SCRIPT_NAME"), "/")

' første element er blank, det sidste scriptnavnet
For i = 1 To UBound(myArr) -1
If i > 1 Then
Response.Write "<A HREF=""/" & myArr(i-1) & "/" & myArr(i) & """>" & myArr(i) & "</A> / "
Else
Response.Write "<A HREF=""/" & myArr(i) & """>" & myArr(i) & "</A> / "
End If
Next

Response.Write rs("emne")

Conn.Close
Set Conn = nothing
%>

Synes godt om

mystixx Nybegynder

04. juni 2002 - 14:20 #7

ÅRH HVAD MAN

Synes godt om

steen_hansen Forsker

04. juni 2002 - 14:20 #8

Ovenstående er IKKE korrekt, håber du kan se hvor det går galt :o/

Synes godt om

steen_hansen Forsker

04. juni 2002 - 14:22 #9

mystixx>>?

Synes godt om

steen_hansen Forsker

04. juni 2002 - 14:34 #10

Forside / debat /
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/debat/debatemne.asp, line 46

Linie 46: Response.Write rs("emne")

Scriptet:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT * FROM debat"

Response.Write "<A HREF=""/"">Forside</A> / "

myArr = split(Request.ServerVariables("SCRIPT_NAME"), "/")

' Første element er blank, det sidste scriptnavnet
For i = 1 To UBound(myArr) -1
If i > 1 Then
Response.Write "<A HREF=""/" & myArr(i-1) & "/" & myArr(i) & """>" & myArr(i) & "</A> / "
Else
Response.Write "<A HREF=""/" & myArr(i) & """>" & myArr(i) & "</A> / "
End If
Next

Response.Write rs("emne")

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Synes godt om

tmceu Praktikant

04. juni 2002 - 14:44 #11

Du har jo endnu ikke hentet noget fra databasen og derfor er "rs" ikke-eksisterende :-)

Du mangler eks. Set rs = Conn.Execute(SQL)

Synes godt om

steen_hansen Forsker

04. juni 2002 - 14:58 #12

Min nye, bedste ven, DET VIRKER!

Tak for hjælpen :o)

Synes godt om

steen_hansen Forsker

04. juni 2002 - 15:00 #13

Jeg lægger lige løsningen, forhåbentlig til glæde for andre:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT emne FROM debat"
Set rs = Conn.Execute(SQL)

Response.Write "<A HREF=""/"">Forside</A> / "

myArr = split(Request.ServerVariables("SCRIPT_NAME"), "/")

' Første element er blank, det sidste scriptnavnet
For i = 1 To UBound(myArr) -1
If i > 1 Then
Response.Write "<A HREF=""/" & myArr(i-1) & "/" & myArr(i) & """>" & myArr(i) & "</A> / "
Else
Response.Write "<A HREF=""/" & myArr(i) & """>" & myArr(i) & "</A> / "
End If
Next

Response.Write "<span class=""tekst11"">" & rs("emne") & "</span>"

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Synes godt om

tmceu Praktikant

04. juni 2002 - 15:06 #14

Det var så lidt :-)

Synes godt om

steen_hansen Forsker

04. juni 2002 - 15:21 #15

tmceu: Jeg SKAL så ind og tilrette det for hver enkelt område? Det kan ikke automatiseres på nogen måde?

Synes godt om

tmceu Praktikant

04. juni 2002 - 22:01 #16

Hvad mener du med "tilrette det for hver enkelt område ?"

Dette kører dynamisk ift. hvor filen er placeret. Men din forside er et permanent link, så den skal evt. vedligeholdes. Men du kunne måske med fordel ligge det i en includefil ?

Synes godt om

steen_hansen Forsker

04. juni 2002 - 22:12 #17

Mht. en inkluderet fil, så er den lavet.

Mht. tilretning, så tænker jeg på SQL-sætningen:

SQL = "SELECT emne FROM debat"

- og database-connection:

dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")

Her hiver jeg "emne" fra tabelen "debat". Det samme skal jeg jo gøre ved artikler, Køb & salg og hvad jeg ellers har liggende. Kan det på en eller anden måde standardiseres?

Synes godt om

steen_hansen Forsker

05. juni 2002 - 16:43 #18

En anden ting, som er noget vigigere: Uanset hvilket emne jeg kigger på, er det den øverste, som kommer frem?

Synes godt om

steen_hansen Forsker

05. juni 2002 - 17:31 #19

http://www.MinForside.dk/artikler/artikel.asp?artikelID=741

=

http://www.MinForside.dk / artikler / "Navnet på artikelID nr. 741"

Synes godt om

steen_hansen Forsker

05. juni 2002 - 18:59 #20

Sk... være med automatisering, bare det ovenstående kan blive rettet, tmceu. Det virker jo ikke helt :o(

Synes godt om

steen_hansen Forsker

06. juni 2002 - 14:49 #21

tmceu, håber du ser det her....

Synes godt om

tmceu Praktikant

07. juni 2002 - 23:07 #22

Jeg fatter ikke hvad du mener med "En anden ting, som er noget vigigere: Uanset hvilket emne jeg kigger på, er det den øverste, som kommer frem?"

Og ift. en standard metode til at hente emnet op, hvordan havde du forestillet sig, at scriptet skulle afgøre fra hvilken tabel den skal hente "emne" ?

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

05/07

Dynamics-kæmpen Cepheo leverer røde tal i første regnskab som selvstændigt selskab

05/07

Store sager fra BMW i5: Alt er bare perfekt afstemt her

05/07

Nørgaard: Derfor bruger fattigrøvene AI meget mere end de rige svin

05/07

IBM-direktør efter blodrødt regnskab: “Vi er godt på vej ud af det stormvejr, som ramte os i 2023”

05/07

Kom i problemer efter ransomware-angreb: Nu køber rigmand Christian Stadil IT-Hotellets bunker

05/07

Stiftere overvejer at gøre Flatpay til en bank – krav om compliance er en stopklods

05/07

Rejsekort reducerer kraftigt den tid, som selskabet vil beholde dine lokationsdata i: Vil nu slette dem efter få måneder

05/07

Hackerangreb på OpenAI: Selskabets designs af AI-teknologi stjålet

05/07

Efter skatte-dom: IBM Danmark sætter 163 millioner kroner til side til ekstra skatte-regning i Danmark

05/07

KMD ændrer i sit ikoniske logo efter 17 år

05/07

Klar tale til Tesla og SAP: Snart skal du tale med dit ERP-system

Vis flere artikler

IT-JOB

Region Midtjylland

Gør en forskel som License Manager

Cognizant Technology Solutions Denmark ApS

Service Line Specialist – EPS – SAP

MDSI

Billedanalytiker til satellitovervågning af Arktis

Udlændinge- og Integrationsministeriet

Forretningsudvikler med fokus på digitalisering og AI

SporingsGruppen ApS

Frontend-udvikler

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 00:30	Fejl i Ark Af Morten_Jepsen i Excel
I går 16:56	Kan min mobil hackes Af SBS i Mobiltelefoner
I går 12:56	Forskellige billeder til forskellige skærme ? Af snedker1 i Mac
I går 11:56	Om brug af funktionen sumprodukt Af Erik R i Excel
05/0722:41	Hjælp til at skrive opgave Af Needhelp i Småopgaver