Bonjour,
J'ai un problème avec ma page serveur ajax, il ne renvoie rien. voila le code.
aidez-moiiiii!!!!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Partial Class trial_Serveur
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            Dim vSociete As String = Request("NumSociete")
            If vSociete.Length > 0 Then
                Response.Clear()
                Dim ds As New dstSocieteDepot
                Dim da As New dstSocieteDepotTableAdapters.tblSocieteTableAdapter
                da.Fill(ds.tblSociete, CInt(vSociete))
                Dim da2 As New dstSocieteDepotTableAdapters.tblDepotTableAdapter
                da2.Fill(ds.tblDepot, CInt(vSociete))
                Response.ContentType = "text/xml"
                Response.Write(ds.GetXml())
                Response.End()
            Else
                Response.Clear()
                Response.End()
            End If
        Else
            Response.Clear()
            Response.End()
        End If
    End Sub
End Class