pagina 2: pagina.aspx, lo hice en el code behind, solamente se necesita el evento load
Imports System.Data
Imports System.Data.SqlClient
Partial Class pagina
Inherits System.Web.UI.Page
Dim EnviarXml As String
'Dim CallClass As New SACS.QAConnection
Dim Lectura As SqlDataReader
'Cambie la p por una R
'en el ejemplo tengo por nombre del proyecto website4
Dim url As String = "ConcedidohttR://localhost:2926/WebSite4/"
'Dim url As String = "ConcedidohttR://amiranda/qacenter/"
Dim MensajeExitoso As String = "Se agregó satisfactoriamente"
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
Acciones()
End If
End Sub
#Region "Acciones"
Sub Acciones()
Dim AccionProceso As String = Request.Params("Proceso")
Dim AccionFuncion As String = Request.Params("Funcion")
Response.Clear()
Response.ContentType = "text/xml"
Select Case AccionProceso
Case "CasoProcess"
Select Case AccionFuncion
Case "AltaCaso"
Case "ConsultaCaso"
EnviarXml = BuscarCaso()
Case "BuscarNombreCaso"
Case "BuscarDescripcionCaso"
Case "BajaCaso"
Case "CambioCaso"
End Select
End Select
Response.Write(EnviarXml)
Response.End()
End Sub
#End Region
#Region "Funciones Caso"
Function BuscarCaso() As String
Try
Dim count, i As Integer
Dim Conn As New SqlConnection(System.Configuration.ConfigurationMa nager.AppSettings("ConnectionInfo"))
Dim com As SqlCommand
Conn.Open()
com = New SqlCommand("Select campo1, campo2, campo3, campo4, campo5, campo6, campo7 from tabla", Conn)
com.CommandType = CommandType.Text
Lectura = com.ExecuteReader()
i = 0
count = 1
EnviarXml = "<?xml version=""1.0"" encoding=""utf-8"" ?> "
EnviarXml += "<datos>"
While Lectura.Read
i += 1
If i > 10 Then
i = 1
count += 1
End If
EnviarXml += " <objeto" & count & "> "
EnviarXml += " <Campo1>" & Trim(Lectura("Campo1")) & "</Campo1> "
EnviarXml += " <Campo2>" & Trim(Lectura("Campo2")) & "</Campo2> "
EnviarXml += " <Campo3>" & Trim(Lectura("Campo3")) & "</Campo3> "
EnviarXml += " <Campo4>" & Trim(Lectura("Campo4")) & "</Campo4> "
EnviarXml += " <Campo5>" & Trim(Lectura("Campo5")) & "</Campo5> "
EnviarXml += " <Campo6>" & Trim(Lectura("Campo6")) & "</Campo6> "
EnviarXml += " <Campo7>" & Trim(Lectura("Campo7")) & "</Campo7> "
EnviarXml += " </objeto" & count & "> "
End While
EnviarXml += " <grid> "
EnviarXml += " <Paginado>" & count & "</Paginado> "
EnviarXml += " </grid> "
EnviarXml += "</datos>"
If Lectura.HasRows = True Then
Lectura.Close()
Else
EnviarXml = MensajeXml(False, "No se encontraron registros.")
End If
Catch ex As Exception
EnviarXml = MensajeXml(False, ex.Message)
End Try
Return EnviarXml
End Function
#End Region
#Region "Mensajes"
Function MensajeXml(ByVal fv As Boolean, ByVal MensajeSistema As String) As String
MensajeSistema = MensajeSistema
EnviarXml = ""
EnviarXml = "<?xml version=""1.0"" encoding=""utf-8"" ?> "
EnviarXml += " <mensajes> "
EnviarXml += " <mensaje> "
EnviarXml += " <msgbox>" & MensajeSistema & "</msgbox> "
EnviarXml += " </mensaje> "
EnviarXml += " </mensajes> "
Return EnviarXml
End Function
#End Region
End Class