Olá, pessoal!
Preciso ler um documento xml linha por linha
Verificar se Existe e atualizar ou se não existir incluir na base de dados MYSQL
Segue código, estou iniciando com xml, por favor ajudem rs
<%
Set objXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
objXMLDoc.load("C:\inetpub\wwwroot\teste\06_Xml\teste.xml")
Set Root = objXMLDoc.documentElement
Set NodeList = Root.getElementsByTagName("imovel")
For i = 0 to NodeList.length -1
Set REFERENCIA = objXMLDoc.getElementsByTagName("REFERENCIA")(i)
Response.Write REFERENCIA.text & "<br>"
Set rsCadastro = Server.CreateObject("AdoDB.Recordset")
SelCadastro = "SELECT * FROM imoveis WHERE REFERENCIA = '631401' "
rsCadastro.Open SelCadastro,dB
'Cria Variável
vReferencia = rsCadastro("REFERENCIA")
response.Write(vReferencia) & " REF BD <br>"
response.Write REFERENCIA.text & " REF XML <br>"
While not rsCadastro.EOF
if vReferencia = REFERENCIA.text then
response.Write"Igual <br>"
elseif vReferencia <> REFERENCIA.text then
response.Write"Difente <br>"
End if
rsCadastro.MoveNext
Wend
Next
Set objXMLDoc = Nothing
%>