Brødkrummesti

*den skriver der er fejl i "response.write getPath"

Du har defineret at din getPath-funktion skal tage mod et ID, men du sender ikke noget med nede i response.write. Du må skulle sende det aktuelle fID med (hvor du får det fra, kan jeg ikke se her).

Hm, jeg har bare fundet scriptet og ændret lidt på det, så har ikke så meget forstand på det.
Eller nogle forslag til hvad jeg kunne gøre?

Muligvis med:

<%

dim Conn
dim DSN

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aviva/database/aviva.mdb")
Conn.Open DSN

function getPath(fID)
dim fRS
    if isnumeric(fID&"") then
        set fRS = conn.execute("select * from page where id="& fID)
        if fRS.eof then
            getPath = ""
        else
            getPath = getPath(fRS("page_id")) & " > "& fRS("page_name")
        end if
    else
        getPath = ""
    end if
end function

response.write getPath(Request.Querystring("id"))

%>

Men ligesom Pidgeot siger, er det tilfældigt gæt. Ellers må du ind i din page-tabel i databasen og aflæse værdierne i feltet "id".

Eller endnu bedre: vise os koden for en standardside.

Okay nu begynder jeg at kunne se jeg har klokket lidt i det.

I min database har jeg kun page_id og page_name jeg har ikke noget der hedder id eller fid, men fid er jo også bare navnet på min funktion.

Vil de sige at jeg bare skal oprette en id i min database og så virker lotet?

Hver side i databasen har vel et id, og det ligger jo nok i feltet "page_id". Så hvis du ændrer denne linje:

set fRS = conn.execute("select * from page where id="& fID)

til:

set fRS = conn.execute("select * from page where page_id="& fID)

Så skulle det fungere lidt bedre. Samtidig skal du, som Pidgeot siger, også fortælle funktionen, hvilken side man er på, ved at overføre sidens id. Hvordan ser dine links til dine sider ud? F.eks. index.asp?id=15 måske?

Hvis du har id'et liggende i ?id i url'en, kan du bare bruge:

<%

dim Conn
dim DSN

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aviva/database/aviva.mdb")
Conn.Open DSN

function getPath(fID)
dim fRS
    if isnumeric(fID&"") then
        set fRS = conn.execute("select * from page where page_id="& fID)
        if fRS.eof then
            getPath = ""
        else
            getPath = getPath(fRS("page_id")) & " > "& fRS("page_name")
        end if
    else
        getPath = ""
    end if
end function

response.write getPath(Request.Querystring("id"))

%>

Mit id ligger i url'en od det er fx. default.asp?page_id=2

Har brugt din kode, den laver ikke engang fejl, den skriver simpelthen intet.

Så skal det være:

<%

dim Conn
dim DSN

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aviva/database/aviva.mdb")
Conn.Open DSN

function getPath(fID)
dim fRS
    if isnumeric(fID&"") then
        set fRS = conn.execute("select * from page where page_id="& fID)
        if fRS.eof then
            getPath = ""
        else
            getPath = getPath(fRS("page_id")) & " > "& fRS("page_name")
        end if
    else
        getPath = ""
    end if
end function

response.write getPath(Request.Querystring("page_id"))

%>

Så får jeg denne fejl:

Microsoft VBScript runtime  error '800a0007'

Out of memory

Med andre ord er der fejl i:
if isnumeric(fID&"") then

Det lyder mærkeligt. Hvordan ser stien til siden ud? Altså bare efter .dk eller .com eller whatever.

Intil videre ligger den på en server som jeg laver alle min sites på, senere skal den ud på sit eget domæne.
men lige nu hedder den f.eks. http://www.webudkast.dk/mercatus/hans-sandgren-jakobsen/default.asp?page_id=7

Hmm. Den fejl kan jeg ikke rigtig forklare.

I øvrigt behøver du ikke erstatte f.eks. ø med &oslash; hvis du bare gemmer dine sider med UTF-8-encoding. F.eks. hvis du skriver i Notesblok, så vælg "Gem som" og ret der Encoding fra ANSI til UTF-8.

Nej det ved jeg godt.

Det var bare mit program som var sat op til at sætte mine dokumenter til ansi, men har fået lavet indstillingerne om til utf-8

Men nu tror jeg at jeg har været dum igen.

Jeg har ikke noget der hedder isnumeric, altså jeg har jo bare lavet en copy/paste.

ved ikke engang hvad jeg skal gære med isnumeric ?

Jeg mener, det er en standardfunktion i ASP. Men den er vel ikke så nødvendig. Prøv denne kode:

<%

dim Conn,DSN

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aviva/database/aviva.mdb")
Conn.Open DSN

function getPath(fID)
dim fRS
    set fRS = conn.execute("select * from page where page_id="& fID)
    if fRS.eof then exit function
    getPath = getPath(fRS("page_id")) & " > "& fRS("page_name")
end function

response.write getPath(Request.Querystring("page_id"))

%>

Jeg har fundet en funktion i JS.
så nu virker det.
men jeg siger mange tak for din hjælp.

Du får dine point.

Det lyder godt! Og jeg siger mange tak så! :)