Replace Kodu (ASP) Yardımı

Arkadaşlar, sitemde, forumda mesaj yazıp kaydederken, inc/functions.asp de filtrelemeye tutuluyor. Ben bu filtrelemede bir yardım istiyorum ;

kod=Replace(kod,"<a href=http://www.site.com","<a href=yasak.asp",1,-1,1)

şimdi foruma yazılan mesajın html kodunda <a href=http://www.site.com varsa, <a href=yasak.asp yap diyoruz. Buraya kadar sorun yok ama kodda
<a href=http://www.site.com değil de <a href="http://www.site.com yazıyor. Fakat ben yukarıdaki replace kodunu,
kod=Replace(kod,"<a href="http://www.site.com","<a href=yasak.asp",1,-1,1)

yapamıyorum tabiki.

İstediğim şey, foruma yazılan mesajın html kodunda <a href="http://www.site.com varsa, bunu <a href="yasak.asp ye çevirmek.

Yardımlarınız için şimdiden teşekkürler.

bu işini görecek.

kod=Replace(kod,"<a href="+chr(34)+"http://www.site.com","<a href="+chr(34)+"yasak.asp",1,-1,1)

çift tırnak at tırnak kullancağın yerlere dene