xml ihop med asp?

Hej.

Ska i samarbete med annan sajt, som iofs ligger i samma serverpark, skapa en kanal mha xml. Det mesta av datan på min sida ligger i Accessdatabas och frågan som följer är hur jag lättast för över den till min samarbetspartners sida?

Ursäkta nivån på frågan =o]

Det bästa är att nog att exportera ut all data från accessdatabasen till en xmlfil.

Sedan hämtar din samarbetspartner bara datan i xml filen och sparar ned den till sin egen databas...

@EchO

Här är kod för att hämta en xmlfil:

<%

Function CountOccurances(strOne, strTwo)

  Dim intCount, intCursor
  Do
    intCursor = InStr(intCursor + 1, strOne,strTwo)
    If intCursor > 0 Then
      intCount = intCount + 1
    End If
  Loop While intCursor > 0
  CountOccurances = intCount
End Function

dim objHTTP
dim objXML
dim objXSL
dim msg

set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")

objHTTP.open "GET", "http://topjobs.se/ccscripts/xml_to_clients.asp", false

objHTTP.send
status=objHTTP.Status

set objXML = objHTTP.responseXML

set objXSL=Server.CreateObject("microsoft.xmldom")
objXSL.async=false

objXSL.load(Server.MapPath("csstyle2.xsl"))

if (objXSL.readyState = 4 AND objXSL.parseError.errorCode = 0) then

  HowMany = CountOccurances(objXML.transformnode(objXSL), "<tr>")

  if (isnull(HowMany) or (HowMany ="")) then
  
	IF status=404 then
		Response.Write "Sidan kan inte hittas!"
		ELSE
		Response.Write "Inga jobb hittades!"
	END IF
	
  else

    Response.Write(objXML.transformnode(objXSL))

  end if
else

  Response.Write "Error: " & objXSL.parseError.reason & "<br> URL:" & objXSL.url
end if
%>

Hör av dig om du vill ha mer hjälp.

@EchO

Skulle du använt ASP.NET så skulle allt ha varit inbyggt, bara att exportera recordset till XML och tillbaks: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemdatadatasetclasswritexmltopic1.asp

Men i ASP får du använda dig utav funktioner, SPiN har skrivit en bra funktion för att exportera en databassökning till ett XML-document, så för att läsa tillbaks datat till databasen är det bara att vända på (bygga om) funktionen och köra: http://script.webforum.nu/wf/Forum1/HTML/000099.html

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

XML-export från ett recordset är en funktion i ADO, så man behöver inte .NET, även om .NET-funktionerna är mycket bättre.

objRS.Save "export.xml",1

Man tackar, ska labba lite med era förslag och återkommer när (ler) jag stöter på problem...

"Den vise är ödmjuk över det han inte vet..."