Olá pessoal, é o seguinte: estou tentando recuperar o nome da página com o Request.ServerVariables("url") e também Request.ServerVariables("script_name"). Só que quando é para mostrar o nome da página aparece assim: diretorio/diretorio/nome.asp, sendo que eu queria apenas: nome.asp

É assim mesmo, estou errando em alguma coisa ou não tem como?!

Até tem outra forma mas daí tenho que contar a partir da esquerda até chegar na 1ª "/" e pegar apenas esse número da esquerda. Mas daí é um saco toda vez ter que fazer isso.

 

Se alguém puder me ajudar fico muito grato.

não sei se tem alguma variável de servidor que recupere apenas o que você deseja, mas você pode fazer assim:

 

  Dim strNomeSite As String
  Dim intI As Integer
  Dim intPosicao As Integer
  intPosicao = 0
  strNomeSite = "diretorio/diretorio/nome.asp"
  For intI = 1 To Len(strNomeSite)
    intPosicao = InStr(intPosicao + 1, strNomeSite, "/")
    If intPosicao <> 0 Then
      strNomeSite = Mid(strNomeSite, intPosicao + 1)
      intPosicao = 0
    Else
      Exit For
    End If
  Next
  MsgBox strNomeSite

outra coisa que percebi: os comandos Request.ServerVariables("url") e Request.ServerVariables("script_name"), funcionam somente no diretório root (raiz). Quando for dentro de algum subDiretório daí dá esse pau.

Tive que fazer assim:

'é numa página de include que eu vejo se o usuario está logado

'se não estiver, envio ele para página de login

'na página de login, pego os dados dele e envio para a página que ele tentou acessar

'onde está o código abaixo...

if Session("User") = "" then

 'pego a posição (em numero) até a primeira barra com a string ao contrário
 pos = InStr(StrReverse(Request.ServerVariables("URL")),"/")

 'depois pegos os valores da direita pra esquera até a barra

 'e envio para a página de login o nome da página
  Session("Pagina") = Right(Request.ServerVariables("URL"), pos-1)
 Response.redirect "login.asp"
end if

'depois lá na página de login, depois de feito o login e feito e response.redirect, eu limpo a variável de sessão com Session.Rmove.Contents("Pagina").

 

É isso que eu fiz pra resolver meu problema. Se alguém tiver alguma idéia melhor poste.

E coloquei o código que fiz para se alguém quiser aproveitar...

 

Abraço.

Valeu Martini, na hora que postei minha descoberta que apareceu pra mim a tua resposta. Gostei tb e vão implementar aqui.

Obrigado.