Vis filnavn

<%=request.ServerVariables("SCRIPT_NAME")%>

her viser den også stien, jeg skal kun bruge filnavnet

Function getFileName()
  Dim lsPath, arPath

  ' Obtain the virtual file path
  lsPath = Request.ServerVariables("SCRIPT_NAME")

  ' Split the path along the /s. This creates an
  ' one-dimensional array
  arPath = Split(lsPath, "/")

  ' The last item in the array contains the file name
  GetFileName =arPath(UBound(arPath,1))
End Function

skulle vist gøre det

Jo det virker, tak. fandt også selv ud af det
FilNavn = request.ServerVariables("SCRIPT_NAME")
Position = InStrRev(FilNavn, "/")
Filnavn = Mid(svar, Position+1)