La copia del código es la siguiente:
<%
'=========================================================================
'Nombre del proceso: admin_showchannel_name
'Función: Mostrar el nombre del canal
'Parámetros: canalid ------------------------------------------------------------------------------------------------------------------
'=========================================================================
Subadmin_showchannel_name (canalID)
DIMSQLC, RSC, TEMPRTR
CanalID = CLNG (canalID)
Sqlc = "selectTop1ChannelNameFromcl_channelwhereChannelid =" & Channelid
SetRSC = server.createObject ("ADODB.Recordset")
OpenConn: rsc.opensqlc, Conn, 1,1
Ifrsc.eofandrsc.bofthen
Tempttr = "no hay canal especificado"
Demás
Tempttr = rsc ("channelname")
Endif
Rsc.close: setrsc = nada
respuesta.writeTempstr
Endsub
'=========================================================================
'Nombre del proceso: admin_showchannel_option
'Función: Mostrar opciones de canal
'Parámetros: canalid ------------------------------------------------------------------------------------------------------------------
'=========================================================================
Subadmin_showchannel_option (canalID)
DIMSQLC, RSC, ChannelName, TEMPRTR
CanalID = CLNG (canalID)
Sqlc = "selectchannelid, channelnameFromcl_channelwhereChannelid> 0andChannelid <> 6 y
ChannelType <2andModuleId = 1 "
SetRSC = server.createObject ("ADODB.Recordset")
OpenConn: rsc.opensqlc, Conn, 1,1
Tempttr = "<optionValue =" "0" "> Seleccione el canal </opción>"
Ifrsc.eofandrsc.bofthen
Temptr = temptr & "<optionValue =" "0" "> Agregue el canal </opción>"
Demás
Dowhilenotrsc.eof
Temptr = temptr & "<optionValue =" & "" "" & rsc ("canalID") y "" "" & ""
Ifchannelid = rsc ("canalID") entonces
Tempttr = temptry & "seleccionado"
Endif
Temptr = temptr & ">" & rsc ("channelname")
Temptr = temptr y "</ppection>"