Echo y variables en ASP

Tengo el siguiente código PHP en una página HTML:

Código :

<?php
   $folder = basename(dirname(__FILE__));
   $file = basename(__FILE__);
   $nombre = substr($file, 0, -4);
?>
....
<li><a href="../../cat/<? echo $folder ."/". $nombre ?>.php">CAT</a></li>
<li><a href="../../es/<? echo $folder ."/". $nombre ?>.php">ESP</a></li>
.....

Lo que hago es linkar a una página con el mismo nombre que la actual pero cambiando una carpeta n la ruta.

El problema es que tengo que hacer lo mismo pero en ASP, cosa que no tengo ni p* idea...

¿Alguien me ayuda a traducir este código?

Bueno, gracias a Bleend y a One que me ayudaron a sacar este diabólico código. Lo posteo por si a alguien más le sirve a algo:

Código :

<%
   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))
   directorio=  server.mappath(".")
   directorio=split(directorio,"\")   
   GetFolderName=directorio(UBound(directorio))

   Response.Write("<li><a href='../../cat/" & GetFolderName & "/" & GetFileName & "'>CAT</a>")
   Response.Write("<li><a href='../../es/" & GetFolderName & "/" & GetFileName & "'>&gt;ESP</a>")

%>