1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
Namespace BackOffice
Public Class WF_StructureEditorTransfert
Inherits CL_WFBase_BO
#Region " Code généré par le Concepteur Web Form "
'Cet appel est requis par le Concepteur Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
'REMARQUE*: la déclaration d'espace réservé suivante est requise par le Concepteur Web Form.
'Ne pas supprimer ou déplacer.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN*: cet appel de méthode est requis par le Concepteur Web Form
'Ne le modifiez pas en utilisant l'éditeur de code.
InitializeComponent()
End Sub
#End Region
'Protected WithEvents Form1 As HtmlForm
Protected Overrides Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If TextBox1.Text = "" Then
TextBox1.Text = "1"
Else
TextBox1.Text = Int32.Parse(TextBox1.Text) + 1
End If
'Dim oConn As New SqlConnection(Application("ConnectionString"))
'Dim _oTools As CL_Tools_BO
'Dim _oPage As CL_Page
'Dim _oPageID As CL_PageID
'_oTools = New CL_Tools_BO
'oConn.Open()
''Try
'_oPageID = New CL_PageID_Unknown(Me, Request.QueryString("r"))
'If _oPageID.intCodeLangue = 0 Then
' _oPageID.intCodeLangue = _oTools.getDefaultLanguage(Me, oConn, _oPageID.intCodeClient)
'End If
'Call _oTools.setFirstPage(Me, oConn, _oPageID) '**** Initialise les coordonnées de la première page du site dans _oPageID
'Call GestionDesActions()
''Catch ex As Exception
''oTools_Common.treatError(True, True, ex.Message)
''Finally
'oConn.Close()
''End Try
End Sub |
Partager