1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Imports xxxxxx
Module FormModule
Public function Form_AfterXSL(XMLService As XMLService.TXMLService) As String
' If Context.GetValue("country") = "" then
' Context.SetValue "country", "USA"
' End If
' If Context.GetValue("pub_name") = "" Then
' Err.Description = "You must fill the publisher name"
' Err.Number = 1
' Err.Raise(1)
' End If
End function
Sub acheter_Click(ByVal sender As System.Object, ByVal e As ImageClickEventArgs)Handles acheter.Click
zonetest.Text = Xxxx.xxxxx_xxxTax(17)
End Sub
End Module |
Partager