La copie de code est la suivante:
<%
'============================================================.
'Nom du processus: admin_showchannel_name
'Fonction: Afficher le nom du canal
'Paramètres: 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
Temptr = "Aucun canal spécifié"
Autre
Temptr = RSC ("ChannelName")
Endire
Rsc.close: setRsc = rien
réponse.WRITETEMPSTR
Fin
'============================================================.
'Nom du processus: admin_showchannel_option
'Fonction: Afficher les options de canal
'Paramètres: ChannelId ----------------------------------------------------------------------------------------------------------------------
'============================================================.
Subadmin_showchannel_option (ChannelId)
Dimsqlc, RSC, ChannelName, Temptr
ChannelId = CLNG (ChannelId)
Sqlc = "selectChanNelid, ChannelNameFromCl_ChannelWheRechannelid> 0AndChannelid <> 6and
ChannelType <2andModuleid = 1 "
SetRsc = server.createObject ("adodb.recordSet")
OpenConn: RSC.OpenSQLC, Conn, 1,1
Temptr = "<optionValue =" "0" "> Veuillez sélectionner Channel </opoption>"
Ifrsc.eofandrsc.bofthen
TEMPSTR = TEMPSTR & "<optionValue =" "0" "> Veuillez ajouter Channel </opoption>"
Autre
Dowhilenotrsc.eof
TEMPSTR = TEMPSTR & "<OptionValue =" & "" "" & rsc ("ChannelId") & "" "" & ""
IFChanNelid = RSC ("ChannelId") puis
TEMPSTR = TEMPSTR & "SELECT"
Endire
TEMPSTR = TEMPSTR & ">" & RSC ("ChannelName")
TEMPSTR = TEMPSTR & "</ OPTION>"