Urgent help(xml, java and asp)

Question

Hi all,
I,m new with XML and i have to convert a VB application that connects to an ASP using Microsoft XML and I need to know if I can connect from a java application to an ASP using XML for transfering the infornation.
In the ASP side it uses DOM, and I would like not to touch the ASP and create a new application with java and get rid of the VB application

Answer 1

DrClap what I have in the VB side is this:
Private Function SetBalanceForReal(Amount As Currency, Action As String) As Boolean
On Error GoTo ehSetBalance
Dim ohttp As New MSXML.XMLHTTPRequest
Dim oResponseXML As New MSXML.DOMDocument
Dim oDoc As New MSXML.XMLDSOControl
Dim oElement As MSXML.IXMLDOMElement
Dim oNode As MSXML.IXMLDOMNode
ohttp.open "POST", ServerUrl & "ActualizaBalance.asp", False
Set oElement = oDoc.XMLDocument.createElement("ActualizaBalance")
Set oNode = oElement.appendChild(oDoc.XMLDocument.createNode(1, "Client", ""))
Set oNode = oElement.appendChild(oDoc.XMLDocument.createNode(1, "Action", ""))
Set oNode = oElement.appendChild(oDoc.XMLDocument.createNode(1, "Amount", ""))
oElement.childNodes.Item(0).Text = Trim(ClientLogin)
oElement.childNodes.Item(1).Text = Action
oElement.childNodes.Item(2).Text = Amount
ohttp.send (oElement.xml)
oResponseXML.loadXML (ohttp.responseText)
If oResponseXML.documentElement.childNodes.Item(1).Text = "OK" Then
Available = oResponseXML.documentElement.childNodes.Item(0).Text
Else
Available = 0
End If
Set ohttp = Nothing
Set oResponseXML = Nothing
Set oDoc = Nothing
Set oElement = Nothing
Set oNode = Nothing
SetBalanceForReal = True
Exit Function
ehSetBalance:
Set oNode = Nothing
Set oElement = Nothing
Set oDoc = Nothing
Set oResponseXML = Nothing
Set ohttp = Nothing
Available = 0
SetBalanceForReal = False
End Function
Public Function GetConsecutive(Game As String) As Boolean
On Error GoTo ehGetConsecutive
Dim ohttp As New MSXML.XMLHTTPRequest
Dim oResponseXML As New MSXML.DOMDocument
Dim oDoc As New MSXML.XMLDSOControl
Dim oElement As MSXML.IXMLDOMElement
Dim oNode As MSXML.IXMLDOMNode
ohttp.open "POST", ServerUrl & "ObtieneConsecutivo.asp", False
Set oElement = oDoc.XMLDocument.createElement("ObtieneConsecutivo")
Set oNode = oElement.appendChild(oDoc.XMLDocument.createNode(1, "Game", ""))
oElement.childNodes.Item(0).Text = Game
ohttp.send (oElement.xml)
oResponseXML.loadXML (ohttp.responseText)
Consecutive = oResponseXML.documentElement.childNodes.Item(0).Text
Set ohttp = Nothing
Set oResponseXML = Nothing
Set oDoc = Nothing
Set oElement = Nothing
Set oNode = Nothing
GetConsecutive = True
Exit Function
ehGetConsecutive:
Set oNode = Nothing
Set oElement = Nothing
Set oDoc = Nothing
Set oResponseXML = Nothing
Set ohttp = Nothing
Consecutive = 0
GetConsecutive = False
End Function
and the ASP code is this:
<%@LANGUAGE=VBScript%>
<%
     'Variables Simples
     Dim Cliente
     Dim Accion
     Dim Monto
     'Variables Complejas
     Dim oClienteBD
     Dim oClienteInfoXML
     Dim oDoc
     Dim oElemento
     Dim oNode
     'Inicializacion de Variables Complejas
     Set oClienteBD = Server.CreateObject("Casino_Clases.CClient")
     Set oClientInfoXML = Server.CreateObject("MSXML.DOMDocument")
     Set oDoc          = Server.CreateObject("MSXML2.DSOControl")
     oClientInfoXML.async=false     
     oClientInfoXML.load(Request)
     Cliente = oClientInfoXML.documentElement.childNodes.item(0).text
     Accion = oClientInfoXML.documentElement.childNodes.item(1).text
     Monto = oClientInfoXML.documentElement.childNodes.item(2).text
     Set oElemento = oDoc.XMLDocument.createElement("Resultado")
     Set oNode = oElemento.appendChild(oDoc.XMLDocument.createNode(1, "AVAILABLE",""))     
     Set oNode = oElemento.appendChild(oDoc.XMLDocument.createNode(1, "ESTADO",""))
     If oClienteBD.UpdateBalance(Cliente, Accion, Monto) = True Then
          If oClienteBD.GetClientBalance(Cliente) = True Then
               oElemento.childNodes.Item(0).Text = oClienteBD.Available
               oElemento.childNodes.Item(1).Text = "OK"
          else
               oElemento.childNodes.Item(0).Text = 0
               oElemento.childNodes.Item(1).Text = "BAD"
          end If
     else
          oElemento.childNodes.Item(0).Text = 0
          oElemento.childNodes.Item(1).Text = "BAD"
     end If
     Response.Write(oElemento.xml)
     Set oClientInfoXML = Nothing
     Set oDoc = Nothing
     Set oClienteBD = Nothing
     Set oNode          = Nothing
     Set oElemento     = Nothing
%>
What I need to do is to change the VB part for a Java application and basicly, I don't know what Class of Java I have to use to connect to the ASP.
If you were so kind of giving me an example to do this I will appreciate it.
Ocorella