Die Codekopie lautet wie folgt:
<%
"===================================================================================================================
'Prozessname: admin_showchannel_name
'Funktion: Kanalname anzeigen
'Parameters: 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 = "kein angegebener Kanal"
Anders
Tempstr = rsc ("ChannelName")
Endif
RSC.CLOSE: SETRSC = NICHTS
response.writetempstr
Ende
"===================================================================================================================
'Prozessname: admin_showchannel_option
'Funktion: Kanaloptionen anzeigen
'Parameters: ChannelID----------------------------------------------------------------------------------------------------------------------
"===================================================================================================================
Subadmin_showchannel_option (ChannelId)
Dimsqlc, RSC, ChannelName, Tempstr
ChannelID = CLNG (ChannelId)
Sqlc = "selektorchannelid, ChannelNameFromcl_Channelwherechannelid> 0andchannelid <> 6and
ChannelType <2andmodulId = 1 "
SetRsc = server.createObject ("adodb.recordset")
Openconn: rsc.opensqlc, conn, 1,1
Tempstr = "<optionValue =" "0" "> Bitte wählen Sie Kanal </Option>"
IFrsc.eofandrsc.Bofthen
Tempstr = tempstr & "<optionValue =" "0" "> Bitte Kanal </option>" hinzufügen "
Anders
Dowhilenotrsc.eof
Tempstr = tempstr & "<optionValue =" & "" "" & rsc ("ChannelId") & "" "&" "" "
Ifchannelid = rsc ("ChannelId") dann
Tempstr = tempstr & "ausgewählt"
Endif
Tempstr = tempstr & ">" & rsc ("ChannelName")
Tempstr = tempstr & "</option>"