Кода -копия выглядит следующим образом:
<%
'==========================================================================
'Имя процесса: admin_showchannel_name
'Функция: показать имя канала
'Параметры: 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 = "Нет указанного канала"
Еще
Tempstr = rsc ("channelname")
Эндиф
Rsc.close: setrsc = ничего
response.writetempstr
Заканчивая
'==========================================================================
'Имя процесса: admin_showchannel_option
'Функция: показать параметры канала
'Параметры: 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" "> Пожалуйста, выберите канал </option>"
IFRSC.EOFANDRSC.BOFTHEN
Tempstr = tempstr & "<optionvalue =" "0" "> Пожалуйста, добавьте канал </option>"
Еще
Dowhilenotrsc.eof
Tempstr = tempstr & "<optionvalue =" & "" "" & rsc ("Channelid") & "" "&" ""
Ifchannelid = rsc ("channelid") затем
Tempstr = tempstr & "Selected"
Эндиф
Tempstr = tempstr & ">" & rsc ("channelname")
Tempstr = tempstr & "</option>"