ASP廣告代碼的解決？

想改變如下的代碼，實現網頁中嵌入廣告的功能
" U+ F/ g* W9 @% T
代碼如下（部分）：
sub content_down()
if rs("Grade")="0" then
hxGrade="遊客身份"
2 H' I% x7 f: F% d/ A/ [$ telseif rs("Grade")="1" then
hxGrade="會員身份"
elseif rs("Grade")="2" then
0 M8 z! Y" f& a& ~hxGrade="VIP身份"
; C5 \' e8 A( g$ I* S, send if
Response.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">"
Response.Write "<tr>" & vbCrLf
  I4 Z: Q3 C, Y( r! L7 a$ tResponse.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
* p$ t# T; e, E1 v; Z$ MResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
+ j; N& D' M3 Q0 \0 [3 xResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
: H! v# P  ]1 Mif rs("soft_showpic")<>"http://hx66.net" then
1 X" v7 y5 F8 t3 n  e- M6 N% 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
) l9 l) e6 s: @) l5 L: S2 h8 rend if
Response.Write "</tr>" & vbCrLf
1 Z, o4 A& U. p, j( f  M* k' WResponse.Write "<tr>" & vbCrLf

想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28

, B9 z# R6 p' Z. |想通過修改這段語句：
$ e4 l0 I% V6 _0 L/ wif 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
6 A" l7 _1 y) [& DResponse.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
0 V$ W8 D5 V( P# w8 o. x0 rend if
/ w$ s. `" {$ k! d3 v實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告
( g2 z1 r3 o  g0 B0 b
廣告代碼如下：
& _  F9 ~( m( P' N' O! D<script>
4 W. d4 ?0 {* kvar YahooCNADConfig=new Array();
YahooCNADConfig['adid']=363
YahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
YahooCNADConfig['h']=60
</script>
. K. _1 g. J' l2 G- |$ _! X+ x<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>

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

1. 
   
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
   7 W0 F& G' q) M
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>"
   
6. & vbCrLf &"<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>"
   
7. end if
   

複製代碼