Döngü içinde QueryString Eşleştirmesi

[byzoom]

Arkadaşlar, veri tabanımdan kategoriler geliyor ve her kategoriye tıklantıdığında xx.com?cid=1 şeklinde link atıyor. Ben döngü içinde aşağıda ki kodları kullanarak eşleşen idlere stil eklemek istiyorum. Aşağı daki kodlar admin panelde güncelleme işlemi yaparken SelectBox ta çalışıyor ama değişkene atanmış verilerde çalışmıyor.. Sanırım bir formülü var değişkenler için.

QueryString yerine ben eşleşecek bir sayı yazdığımda stili atıyor nasıl iştir anlamadım...

WHILE Not strCategory.EOF
   Dim Slect : IF strCategory("id") = IsNumControl(Request.QueryString("cid")) Then Slect = "style=""color:#F58220"""
   Response.Write "<li>- <a "&Slect&" title="""&strCategory("CategoryName")&""" href=""Index.asp?t=1&pid="&intpID&"&cid="&strCategory("id")&"""> "&strCategory("CategoryName")&"</a></li>"
  Slect = ""
  strCategory.MoveNext:Wend

[shibby]

eşleştirmede cint kullan. cint(sayi1) = cint(sayi2)

[byzoom]

Teşekkürler shibby