De PHP a ASP (Solo tigres)

[Hereje]

Fijate si esto te funciona:

Código:

<%
dim url
dim categoria, subcategoria, id

url = request.ServerVariables("URL") 

if(len(url)) then
	url = right(url, len(url)-1)
	vurl = split(url, "/")
	if(isarray(vurl)) then
		categoria = vurl(0)
		if(ubound(vurl) > 0) then
			subcategoria = vurl(1)
			if(ubound(vurl) > 1) then id = vurl(2)
		end if
	end if
end if
%>

Saludos!