Consumir Web Services com ASP

[B@ldin 0]

Boa Tarde Pessoal,

 

Estou iniciando com o ASP e meus conhecimentos ainda são bem basicos.

Preciso desenvolver um pagina que consuma um determinado web service, porem nao tenho a menor ideia de como faze-lo, acessei alguns sites mas nao obtive uma ajuda muito eficaz. Preciso entregar essa pagina ate amanhã alguem poderia me ajudar???

Obs: Para acessar o Web Service preciso fornecer usuario e senha.

 

 

Grato,

[Giancarlo Braga 0]

Verifique qual o nome dos campos que o Web Service puxa e nomeei os campos de texto com estes nomes e use um action para o Web Service.

 

Abraços.

[B@ldin 0]

Verifique qual o nome dos campos que o Web Service puxa e nomeei os campos de texto com estes nomes e use um action para o Web Service.

 

Abraços.

Obrigado Giancarlo,

 

O problema eh o seguinte:

Ja tenho a classe pronta para para acessar Web Service, porem nao consigo passar os parametros de forma correta. O WS sempre responde como se nao tivesse detectado os valores de entrada.

Segue codigo que estou utilizando e o web service...se alguem puder ajudar.....

 

codigo:

<%
'****************************************************************************
*******
'
' Classe para acessar WebServices
' Author: Angelo Bestetti
' [url="http://www.i-stream.com.br"]http://www.i-stream.com.br[/url]
' Purpose: Acessar webservices www.consultacpf.com
' Date: 2007/10/18
'****************************************************************************
*******
Option Explicit


'**************************************************** 
' Classe para WebService
'****************************************************

Class WebService
  Public Url
  Public Method
  Public Response
  Public Parameters
 
  ' Funcao para Invokar o WebService
  Public Function Invoke()
	Dim xmlhttp
	Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP")
	xmlhttp.open "POST", Url & "/" & Method, false
	xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	xmlhttp.Send Parameters.toString
	response = xmlhttp.responseText
	set xmlhttp = nothing
  End Function
  
  
  Private Sub Class_Initialize()
	Set Parameters = New wsParameters
  End Sub
  
  Private Sub Class_Terminate()
	Set Parameters = Nothing
  End Sub
  
End class

'**************************************************** 
' Classe para wsParameters
'****************************************************
Class wsParameters
  Public mCol
  Public Function toString()
	Dim nItem
	Dim buffer
	buffer = ""
	For nItem = 1 to Count
	  buffer = buffer & Item(nItem).toString & ""
	Next
	If right(buffer,1)="" then
	  buffer = left(buffer,len(buffer)-1)
	End if
	toString = buffer 
  End Function
  
  Public Sub Clear
	set mcol = nothing 
	Set mCol = Server.CreateObject("Scripting.Dictionary") 
  End Sub
  
  Public Sub Add(pKey,pValue)
	Dim NewParameter
  
	Set NewParameter = New wsParameter
	NewParameter.Key = pKey
	NewParameter.Value = pValue
	mCol.Add mCol.count+1, NewParameter
  
	Set NewParameter = Nothing
  End Sub
  
  Public Function Item(nKey)
	Set Item=mCol.Item(nKey)
  End Function
  
  Public Function ExistsXKey(pKey)
	Dim nItem
  
	For nItem = 1 to mcol.count
	  If mCol.Item(nItem).key = pKey Then
		ExistsXKeyword = True
		Exit For
	  End if
	Next
  End Function
  
  Public Sub Remove(nKey)
	mCol.Remove(nKey)
  End sub
  
  Public Function Count()
	Count=mCol.count
  End Function
  
  Private Sub Class_Initialize()
	Set mCol = Server.CreateObject("Scripting.Dictionary")
  End Sub
  
  Private Sub Class_Terminate()
	Set mCol = Nothing
  End Sub
  
End class

'**************************************************** 
' Classe para wsParameter
'****************************************************
Class wsParameter
   Public Key
   Public Value
   Public Function toString()
	 toString = Key & " " & Value
   End Function
End Class
'---------------------------------------------------------
'Executa a chamada do web service
'---------------------------------------------------------
dim ws
 
	set ws = new webservice
	ws.url = "https://www.smartnet.com.br/wson/services/consultaCartaoService?WSDL"

	ws.method = "saldo" 

	ws.parameters.Add "usuario","12345"
	ws.parameters.Add "senha","12345"
	ws.parameters.Add "panConta","607005000007517"
 
	ws.Invoke
	response.Write ws.response

	set ws = nothing
%>

web service: "https://www.smartnet.com.br/wson/services/consultaCartaoService?WSDL"

 

Abraços.

 

Tiago Baldin