ASP廣告代碼的解決？

想改變如下的代碼，實現網頁中嵌入廣告的功能
: e& i- ?9 U4 s* p
代碼如下（部分）：
0 P8 m' \, o3 f1 Xsub content_down()
if rs("Grade")="0" then
( I- D$ y! O0 g6 s3 V" ?' }hxGrade="遊客身份"
4 i  n: F4 Q( welseif rs("Grade")="1" then
9 I4 k6 x6 J) q8 B/ l( mhxGrade="會員身份"
+ x' _) o* p  W8 c6 d  qelseif rs("Grade")="2" then
hxGrade="VIP身份"
# `- C+ J- Q( e1 V7 _6 r& Kend if
5 a' D4 s  \! F3 R' rResponse.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
Response.Write "<tr>" & vbCrLf
* V9 t8 U8 ~  `/ fResponse.Write "<td colspan=3 align='center' HEIGHT=30><b><font color=ff6600><b>"&rs("soft_name")&"</b></font><b></td>" & vbCrLf
0 v% L9 B7 N- |  o! gResponse.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
5 |. K' v5 m2 t8 K6 E, YResponse.Write "<td height='25' align='center' width='15%'>加入時間</td>" & vbCrLf
8 y3 ]; |; o+ i1 k: X% ~Response.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
Response.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
( u. f; m- T' `( Xif rs("soft_showpic")<>"http://hx66.net" then
5 A3 E7 }& G- d1 j9 Q* S! [Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
! R" Y7 B; C. @* i# _2 @7 zelse
  X8 G5 S9 P6 g# M2 WResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
  t7 [2 y: q- j& t  T# v  ^
想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28

( M, b. D# T7 N- K( j想通過修改這段語句：
if rs("soft_showpic")<>"http://hx66.net" then
Response.Write "<a href='"&rs("soft_showpic")&"' title='"&rs("soft_showpic")&"' target=_blank><img src='"&rs("soft_showpic")&"' border='0' valign='center'></a>" & vbCrLf
else
; Y( _% n3 v+ U, M: ^( [. @5 w0 Q( ?Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
; n8 x: ~, @, |& s1 w1 cend if
實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告
9 O* e7 w; r6 S! h/ b) {
廣告代碼如下：
<script>
. o! \6 _# C6 {1 v, qvar YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
( ]3 F) W% A' T! u' h! a  {$ I7 QYahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
8 L. H' t  n( s. F" O  B4 h</script>
5 c1 U0 H! i: W* g4 {<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
6 |  x+ D4 {1 Q8 S5 }; ~7 l! v( p# R
請教如何將廣告代碼替換部分語句實現這個功能？謝謝

1. 
   + G3 `% f* ~8 {8 F: G( C
2. if rs("soft_showpic")<>"http://hx66.net" then
   9 A( j2 `! N5 |, ]
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
     H; f8 a0 m0 N& K) H) z
4. else
   + e* U+ X( v0 \4 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>"
   , \1 |/ t9 k- x$ h4 k( U# w
6. & vbCrLf &"<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>"
   - `1 {0 Q7 }# a, K$ p: ~( H
7. end if
   ( g7 }& V/ C# M

複製代碼