Dim istekurl
Dim istekbolum
Dim istekbolum2
Dim parcala
Dim isteksayfa
Dim istek1
Set istekurl = Request.ServerVariables("QUERY_STRING")
istekbolum = Split(istekurl,"/")
kodlar bunlar
istekbolum2=istekbolum(3)
parcala=split(istekbolum2,"-")
isteksayfa=parcala(0)
If isteksayfa="firma" Then...