Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim cs As ClientScriptManager = Page.ClientScript
        Dim cstext As String
        Dim csname As String
        csname = "SelectFromSpisok"
        If (Not cs.IsClientScriptBlockRegistered(Me.GetType(), csname)) Then
            cstext = "function insertext(visCell, hiddenCell, inputName, hiddenFld) {document.getElementById(inputName).value = document.getElementById(visCell).innerHTML; document.getElementById(hiddenFld).value = document.getElementById(hiddenCell).innerHTML;}"
            cs.RegisterClientScriptBlock(Me.GetType(), csname, cstext, True)
        End If
End Sub