Jeg vil have et logon-link, hvis URL = noget_bestemt

Ups, den går ikke, brugeren skal have mulighed for at logge ud.

Lægger lige hjernen lidt i blød

Har du udsrevet wURL så du kan se den er "http://www.minside.dk/mappenavn/" ??

Prøv evt SCRIPT_NAME istedet for url

Jeg prøver, men et problem, jeg ikke lige havde taget højde for var, at man også skal kunne logge ud, når først man er logget ind.

Det hele drejer sig om, at jeg kun vil have login-linket på én bestemt side. Men jeg bliver nok nødt til at lave 2 forskellige includes. Det er heller ikke noget problem, men jeg prøver lige dit forslag af :o)

Kan du så ikke flytte din logud foran tjekke på wURL ?

<%
Dim wURL
wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
wURL = Left(sURL, (InStrRev(sURL, "/")))

    If Session("username") <> "" Then %>
        <a href="/mappenavn/admin/dolog.asp?logout" style="WIDTH: 100%" onFocus="this.blur()"><b>Log ud</b></a>
<%
    end if

If wURL = "http://www.minside.dk/mappenavn/" Then
%>
    <% If Session("username") = "" Then %>
        <a href="/mappenavn/admin/login.asp" onFocus="this.blur()"><b>Login</b></a>
    <% End If %>
<% End If %>

Hm, det var da en idé, prøver ...

Der kommer hverken login eller logud?

Logud skulle vises hvis Session("username") er forskellig fra ""
Er det den rigtige session variable?

Det kunne være, at det var en god idé at skrive den ud, 2 sek.

Nej, jeg kan ikke udskrive wURL, og jeg har forsøgt nøjagtigt dit forslag.

eagleeye, jeg daffer i seng, kigger i morgen, og håber du kan komme med et godt forslag :o)

Jeg har også et par idéer, men jeg kan ikke holde hovedet oprejst længere :o)

Ok ;) jeg er også på vej i seng inden for de næste 5-10 minutter.
Hvis den ikke udskriver noget tyder det måske på filen ikke bliver includet eller kørt?

Jo, jeg kan sagtens køre den. Prøver lige at kigge igen

Hvis jeg skriver

Response.Write wURL

burde URL'en da blive skrevet ud?

<%
Dim wURL
wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
wURL = Left(sURL, (InStrRev(sURL, "/")))
Response.Write wURL

.
.
.
.

Ja så skulle den blive udskrevet.

Det gør den ikke :o/

Skal vi smutte? Jeg er træt :o)

Håber vi snakkes ved i morgen :o)

Ja lad os det. godnat og sov godt :)

I lige måde :o)

Hvis jeg REM'er dette ud, fungerer det, men login skulle jo kun stå på én side; nu vil det stå på alle:

<%
Dim wURL
wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
wURL = Left(sURL, (InStrRev(sURL, "/")))

    If Session("username") <> "" Then %>
        <a href="/mappenavn/admin/dolog.asp?logout" style="WIDTH: 100%" onFocus="this.blur()"><b>Log ud</b></a>
<%
    end if

'If wURL = "http://www.minside.dk/mappenavn/" Then
%>
    <% If Session("username") = "" Then %>
        <a href="/mappenavn/admin/login.asp" onFocus="this.blur()"><b>Login</b></a>
    <% End If %>
<%' End If %>

Denne her virker fint:

wURL="http://"+Request.ServerVariables("SERVER_NAME")+Request.ServerVariables("PATH_INFO")

Så skal jeg vel egentlige bare redirecte til /mappenavn/default.asp, så default.asp kommer op i adresselinie, og ikke til /mappenavn/

Nej, NU smutter jeg. Snakkes :o)

Ja så udskriver den hver gang, men hvis du har Response.write wURL og den ikke skriver noget ud er det det som laver wURL som skal ændre.

Hvad så hvis du bruger SCRIPT_NAME i stedet for URL ??

Ja ok PATH_INFO virker nok også ok.

Jeg prøver - igen :o)

Hverken SCRIPT_NAME eller PATH_INFO istedet for URL virker:

Jeg har forsøgt

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
wURL = Left(sURL, (InStrRev(sURL, "/")))

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")
wURL = Left(sURL, (InStrRev(sURL, "/")))

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("PATH_INFO")
wURL = Left(sURL, (InStrRev(sURL, "/")))

Ingen af dem virker :o(

Så lige noget nu. I linje 2 bruges sURL men den hedderr wURL i linje over så prøv:

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")
wURL = Left(wURL, (InStrRev(wURL, "/")))

Fuk, det er fra et andet eksperiment :o)

Godt du er så opmærksom. Prøver ...

Fedest! Nu bliver den korrekte URL udskrevet :o)

Response.Write wURL

Og nu virker det sq! Tak for hjælpen, bedste ven! Læg lige et svar :o)

Ok, her er et svar :)

MEN ... nu kommer linket ind på alle sider, hvis URL'en er www.minside.dk/mappenavn/

Så skal jeg henvise til et bestemt dokument, skal jeg ikke?

www.minside.dk/mappenavn/default.asp

Det kan vel gøres med

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")

Takker for hjælpen. Håber lige du vil hjælpe med den sidste også :o)

Det kan vel gøres med

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")

uden

wURL = Left(sURL, (InStrRev(sURL, "/")))

- mente jeg

Nej, det virkede ikke, så forsinder det helt :o(

Ja så skal du ikke fjerne filnavnet. Det skal bare være:

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")

Hvis du kun vil hvade den vist i en bestemt fil så prøv:

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")

if wURL = "www.minside.dk/mappenavn/default.asp" then
  'Vis linket

end if

Ok, det er case sensitive:

wURL = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")

If wURL = "http://www.minside.dk/mappenavn/Default.asp"

Så virker det, den er pinge-ling nu! :o)

Eller bare:

if Request.ServerVariables("SCRIPT_NAME") = "/mappenavn/default.asp" then
  vis filen
end if

Uden http:// foran, altså

TAK, eagleeye :o)

Ja den er case sensitiv. Så kan måske være en ide at sætte LCase omkring så alle bogstaver er små.

LCase(Request.ServerVariables("SCRIPT_NAME") )

Det vil nok være smart, prøver lige

Så behøver jeg vel ikke at dimensionere wURL?

Nej det er kun nødvendigt hvis man bruger Option Explicit som fortæller man skal definere sine variable.

Det virker perfekt, eagle! Endnu en gang: Tak for hjælpen :o)