ASP廣告代碼的解決？

想改變如下的代碼，實現網頁中嵌入廣告的功能
$ s/ A0 v6 Q, g8 X6 m9 I( F* j5 F
代碼如下（部分）：
sub content_down()
) g4 H# G4 z, p+ h8 w* zif rs("Grade")="0" then
, R/ u% \0 N7 |5 whxGrade="遊客身份"
5 P: a% e% X# f3 ~  q5 @7 Y  nelseif rs("Grade")="1" then
hxGrade="會員身份"
4 S, i4 i7 Q6 a6 m3 k! `elseif rs("Grade")="2" then
) S# {* F* }1 y, U) D1 ohxGrade="VIP身份"
end if
, T) N. c; G. z  P$ u8 @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
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
1 d" [# N. t% `1 Y( ^Response.Write "<td height='25' align='center' width='15%'>加入時間</td>" & vbCrLf
% Z. R$ h2 [2 N8 U- K# _/ ?  MResponse.Write "<td width='35%'> "&rs("soft_joindate")&"</td>" & vbCrLf
/ S! {. G" l0 i* zResponse.Write "<td rowspan='11' align='center' width='235'>" & vbCrLf
7 g. n) f$ f, ~6 U  {* E5 Xif 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
# c' O* a, T0 u: ^- I& ?# ]Response.Write "<img src='img/nopic.gif' border='0' valign='center'>" & vbCrLf
end if
: D/ m8 n/ Y, t- X6 p' FResponse.Write "</tr>" & vbCrLf
8 r* n3 s( E6 o, jResponse.Write "<tr>" & vbCrLf
0 W6 W$ Z4 T" P- z, V, |+ S& ~
想要實現的網頁情況地址：http://www.vip138.com/showdown.asp?soft_id=28
7 L- W, `4 O- d# Q$ v# u4 g
想通過修改這段語句：
7 `0 T+ k6 f  }- f0 Q6 iif rs("soft_showpic")<>"http://hx66.net" then
' @/ @9 G& F9 O1 h9 H- CResponse.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
end if
實現：有圖片鏈接的時候，右側顯示圖片，沒有圖片鏈接的時候顯示以下代碼生成的公告

5 m/ W* `  C6 w8 p  `* D廣告代碼如下：
' v1 y, s# G+ `, y# K<script>
& e& Y( w- S" Q- ~% o7 N; f4 d- ^var YahooCNADConfig=new Array();
- X4 D; Q) I$ W9 F& O5 T; c" N( @YahooCNADConfig['adid']=363
# ?4 O! W+ h! i* V$ [YahooCNADConfig['wid']=XXXXX
YahooCNADConfig['w']=141
2 A! t* ]! B% q8 }8 QYahooCNADConfig['h']=60
</script>
<script type='text/javascript' src='http://view.aliunion.cn.yahoo.com/showad.php'></script>
' A8 h6 h; b2 m% m; I7 M$ N
5 v+ O) @' w# I請教如何將廣告代碼替換部分語句實現這個功能？謝謝

1. 
   
2. if rs("soft_showpic")<>"http://hx66.net" then
   ; ]  ?) x/ I4 [8 P
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
   6 m6 S+ G/ O+ w. Q
4. else
   
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
   : u+ p3 n/ [% B. w% T3 o' s% [; `

複製代碼