<%
'リストボックスの値を取得
'COM呼び出し
Rtn_CD = Support_Topics.topics_sub_navi(kno, objConn, Topics_Num, Contents_Name)
Set Support_Topics = Nothing
If kno = 8 Then
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("
")
End If
If kno = 6 Then
Response.Write("")
Response.Write("
")
Response.Write("")
Response.Write("
")
End If
If kno = 1 Then
Response.Write("")
Response.Write("
")
Response.Write("")
Response.Write("
")
End If
If kno = 10 Then
Response.Write("")
Response.Write("
")
Response.Write("")
Response.Write("
")
End If
%>
 |
<%
For cnt = 0 to Ubound(Topics_Num)
'二番目のレコードにはハイフンが入っているので飛ばす
If cnt <> 1 Then
Response.Write(" ")
Response.Write(" ")
Response.Write(" ")
End If
Next
%>
|
