A cópia do código é a seguinte:
<%
'=======================================================================
'Nome do processo: admin_showchannel_name
'Função: mostre o nome do canal
Parâmetros: 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 = "nenhum canal especificado"
Outro
Tempstr = rsc ("canalname")
Endif
Rsc.close: setRSC = nada
Response.WriteTEMPSTR
Endsub
'=======================================================================
'Nome do processo: admin_showchannel_option
'Função: mostre opções de canal
Parâmetros: ChannelId ------------------------------------------------------------------------------------------------------------------------------
'=======================================================================
Subadmin_showchannel_option (ChannelId)
Dimsqlc, RSC, ChannelName, Tempstr
ChannelId = clng (ChannelID)
Sqlc = "SelectChannelid, ChannelNameFromCl_Channelwherechannelid> 0AndChannelid <> 6 e
ChannelType <2andModuleId = 1 "
SetRsc = server.createObject ("adodb.recordset")
OpenConn: rsc.opensqlc, Conn, 1,1
Tempstr = "<optionValue =" "0" "> Selecione o canal </pption>"
Ifrsc.eofandrsc.bofthen
Tempstr = tempstr & "<pptionValue =" "0" "> por favor, adicione o canal </pption>"
Outro
DowhileNotrsc.eof
Tempstr = tempstr & "<pptionValue =" & "
IfChannelid = rsc ("ChannelId") então
Tempstr = tempstr e "selecionado"
Endif
Tempstr = tempstr & ">" & rsc ("canalname")
Tempstr = tempstr & "</pption>"