CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede 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.
Avatar billede tmceu Praktikant
04. juni 2002 - 13:27 #1
Måske kan du bruge mit svar her: http://www.eksperten.dk/spm/216561
Avatar billede steen_hansen Forsker
04. juni 2002 - 13:40 #2
Hvor skal det sættes ind? Mellem <body></body>?
Avatar billede 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(
Avatar billede steen_hansen Forsker
04. juni 2002 - 13:52 #4
Andre bud?
Avatar billede 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")



%>
Avatar billede 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
%>
Avatar billede mystixx Nybegynder
04. juni 2002 - 14:20 #7
ÅRH HVAD MAN
Avatar billede 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/
Avatar billede steen_hansen Forsker
04. juni 2002 - 14:22 #9
mystixx>>?
Avatar billede 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
%>
Avatar billede 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)
Avatar billede steen_hansen Forsker
04. juni 2002 - 14:58 #12
Min nye, bedste ven, DET VIRKER!

Tak for hjælpen :o)
Avatar billede 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
%>
Avatar billede tmceu Praktikant
04. juni 2002 - 15:06 #14
Det var så lidt :-)
Avatar billede 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?
Avatar billede 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 ?
Avatar billede 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?
Avatar billede 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?
Avatar billede 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"
Avatar billede 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(
Avatar billede steen_hansen Forsker
06. juni 2002 - 14:49 #21
tmceu, håber du ser det her....
Avatar billede 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" ?
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 13:30 Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I dag 13:01 Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I dag 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27 renteberegning Af Pil i Excel
I går 22:30 Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
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"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
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
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Læs mere »
Cyberstatus 2024: Her er truslerne – og her forbereder virksomhederne sig
Sådan får du overblik og beskytter dine cloudapplikationer
Styrk compliance, sikkerhed og overblik med ét hug
Se alle »

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