Salinan kode adalah sebagai berikut:
<%
'======================================================================
'Nama proses: admin_showchannel_name
'Fungsi: Tampilkan Nama Saluran
'Parameter: ChannelID ----------------------------------------------------------------------------------------------------------------------
'======================================================================
Subadmin_showchannel_name (channelid)
Dimsqlc, RSC, Tempstr
Channelid = clng (channelid)
Sqlc = "SELECTTOP1CHANNELNAMEFROMCL_CHANNELWHERECHANNELID =" & channelID
Setrsc = server.createObject ("adodb.recordset")
OpenConn: rsc.opensqlc, Conn, 1,1
Ifrsc.eofandrsc.bofthen
Tempstr = "Tidak ada saluran yang ditentukan"
Kalau tidak
Tempstr = RSC ("ChannelName")
Endif
Rsc.close: setRSC = tidak ada
Response.WriteTempstr
Endsub
'======================================================================
'Nama proses: admin_showchannel_option
'Fungsi: Tampilkan Opsi Saluran
'Parameter: ChannelID ----------------------------------------------------------------------------------------------------------------------
'======================================================================
Subadmin_showchannel_option (channelid)
Dimsqlc, RSC, ChannelName, Tempstr
Channelid = clng (channelid)
Sqlc = "selectchannelid, channelnamefromcl_channelwherechannelid> 0andchannelid <> 6and
Channeltype <2andmoduleId = 1 "
Setrsc = server.createObject ("adodb.recordset")
OpenConn: rsc.opensqlc, Conn, 1,1
Tempstr = "<optionValue =" "0" "> Pilih saluran </pect>"
Ifrsc.eofandrsc.bofthen
Tempstr = Tempstr & "<OptionValue =" "0" "> Tambahkan saluran </tipt>"
Kalau tidak
Dowhilenotrsc.eof
Tempstr = Tempstr & "<optionValue =" & "" "" & rsc ("channelid") & "" "" & ""
Ifchannelid = rsc ("channelId") lalu
Tempstr = Tempstr & "Dipilih"
Endif
Tempstr = Tempstr & ">" & rsc ("ChannelName")
Tempstr = Tempstr & "</tiption>"