I'm trying to implement a web service, simple
this is the code:
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			this is the code:
			
				B4X:
			
		
		
		#Region  Project Attributes 
    #ApplicationLabel: ABG W CON JOBDONE Y soap12
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region
Sub Process_Globals
   
    Dim job1 As HttpJob
End Sub
Sub Globals
   
    Dim URL As String
  Dim XML As String
    Dim usr As String
    Dim pwd As String  
    Dim strResult As String 
   
End Sub
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("lyoWeather")
   
    URL = "http://www.saliracomer.com/ws/ws_sac.asmx"
    usr = *******
    pwd = ******
   
  ConsumirServiciSOAP
     
End Sub
Sub ConsumirServiciSOAP()
         
    XML = XML & "<soap:Envelope xmlns:soap='http://www.w3.org/2003/05/soap-envelope' xmlns:web='http://saliracomer.com/ws'>"
    XML = XML & "<soap:Header/>"
    XML = XML & "<soap:Body>"
    XML = XML & "<web:ws_Departamentos>"
    XML = XML & "<web:usr>" & usr & "</web:usr>"
    XML = XML & "<web:pwd>" & pwd & "</web:pwd>"
    XML = XML & "</web:ws_Departamentos>"
    XML = XML & "</soap:Body>"
    XML = XML & "</soap:Envelope>"
    XML = XML.Replace("'", Chr(34))
               
  job1.Initialize("JOBSOAP", Me)
  job1.PostString (URL, XML)
    job1.GetRequest.SetContentType("APPLICATION/soap+xml")
             
End Sub
Sub JobDone (JOB As HttpJob)
   
        If JOB.Success Then
            strResult = JOB.GetString
            Log(strResult)
           
        Else
        Msgbox( JOB.errormessage , "Error")
    End If
    JOB.Release
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
[\code]
It get me the error "INTERNAL SERVER ERROR"
can anyone help me?
Thanks 
				 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		