ASP廣告代碼的解決？

想改變如下的代碼，實現網頁中嵌入廣告的功能
" b% i3 |$ b2 b! z
代碼如下（部分）：
0 T: H, ]/ E% R0 gsub content_down()
2 Z6 ~: s, O" c( F1 `if rs("Grade")="0" then
hxGrade="遊客身份"
3 S9 v2 D6 O2 f* r7 ?9 J& C6 Y( Jelseif rs("Grade")="1" then
hxGrade="會員身份"
elseif rs("Grade")="2" then
hxGrade="VIP身份"
end if
2 n  ?% O  U  `7 D9 d. LResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='25' align='center' width='15%'>加入時間</td>" & vbCrLf
$ n' c+ Z1 K3 e+ jResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
8 v3 W0 n7 U4 I, S( R1 d3 GResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
/ V: I* f  N. b0 \if rs("soft_showpic")<>"http://hx66.net" then
, D; C" E9 e# _0 `+ ]6 WResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
3 J: j4 w; N# C: Q% c) R1 Q5 L  Jelse
: {0 j6 j, c3 C- w4 |Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
8 r5 Q5 k' M5 {8 {end if
Response.Write "</tr>" & vbCrLf
$ E0 f0 T" I2 Y+ A& A- s: uResponse.Write "<tr>" & vbCrLf

- M2 g* I* Z$ M7 f) G& p& s6 |想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28
# ]' m4 v- F4 d
想通過修改這段語句：
+ o! T* t, k# b  M# N" |# jif rs("soft_showpic")<>"http://hx66.net" then
; ^: F; ?6 }! {5 kResponse.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
else
Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
9 i+ r# m- V) G2 K4 e; Z) {2 z5 ~6 Qend if
實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告
9 J! U; w" [' o, B2 N& a% H
; V) K! S; a( e廣告代碼如下：
<script>
var YahooCNADConfig=new Array();
8 E9 p& t1 J% t- h% b# G& ^YahooCNADConfig['adid']=363
! c9 ?/ @9 `. M; _0 BYahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
</script>
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>

請教如何將廣告代碼替換部分語句實現這個功能？謝謝

1. 
   2 [4 ?. _5 \- a. ?- ^$ e4 }( B; x
2. if rs("soft_showpic")<>"http://hx66.net" then
   
3.             Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
   
4. else
   . I$ w- x1 P0 _8 O2 ^  i
5.             response.write "<script>" & vbCrLf & "var YahooCNADConfig=new Array(); " & vbCrLf &"YahooCNADConfig['adid']=363;" & vbCrLf &"YahooCNADConfig['wid']=XXXXX;" & vbCrLf &"YahooCNADConfig['w']=141;" & vbCrLf &"YahooCNADConfig['h']=60;" & vbCrLf &"</script>"
   5 s, l1 P" f2 [( O
6. & vbCrLf &"<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>"
   : I; T' m7 ?+ n' Y0 ^
7. end if
   

複製代碼