HaberId = Request.ServerVariables("QUERY_STRING")
HaberId = Split(HaberId, "-")(Ubound(Split(HaberId, "-")))
HaberId = Replace(HaberId, ".html", "")
HaberId = Replace(HaberId, "h", "")

Bu size URL'de geçen haberin numarasını verir.