Function duzelt(ByVal strEntry)
strEntry = Replace(strEntry, "www.", "")
duzelt = strEntry
End Function

gelen_site = duzelt(Request.ServerVariables("HTTP_REFERER"))
degerim = split(gelen_site,"/")
Response.Write degerim(2)

işlemi ile sorun çözülmüştür...

split fikrini veren Fatih kardeşime teşekkürler...