Kan man udtrække fra database på fremmed domæne ?

Kig evt. på:

http://www.netcoders.dk/articles.asp?mode=show_article&article_id=136&tech_id=1

Som der står på linket madeindk gav, skal du på B have et scripte der udskriver data fra databasen, som du så indlæser på A.

Ellers kan man ikke gøre det.

Man kan muligvis gøre det, hvis det er en MySQL database..

Jeg må erkende, at jeg trænger til, at få løsningen "pindet mere ud".

Noget i den stil:


Server B ( http://www.B.dk/hent_alle_data.asp ):

sql = "select * from TabelNavn"
...
if rs.bof or rs.eof then
    response.write "Ingen data"
else
    data = ""
    do while not rs.eof
        data = data & rs("Navn") & "*"
        data = data & rs("Adresse") & "*"
        data = data & rs("Postnr") & "*"
        data = data & rs("Bynavn")

        data = data & "|"
        rs.movenext
    loop
    response.write data
    response.end ' afvikler ikke flere koder
end if
...


Server A ( http://www.A.dk/hent_data_fra_B.asp )
<%
  Response.Buffer = True

    dim Side_A
    Side_B = "http://www.B.dk/hent_alle_data.asp"

  Dim objXMLHTTP, xml

  ' Create an xmlhttp object:
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  ' Or, for version 3.0 of XMLHTTP, use:
  ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

  ' Opens the connection to the remote server.
  xml.Open "GET", Side_A, False
   
  ' Actually Sends the request and returns the data:
  xml.Send

  'Display the HTML both as HTML and as text
  Response.Write "<h1>The HTML text</h1><xmp>"
  Response.Write xml.responseText
  Response.Write "</xmp><p><hr><p><h1>The HTML Output</h1>"

  Response.Write xml.responseText

 
  Set xml = Nothing
%>

Kilde: http://www.4guysfromrolla.com/webtech/110100-1.shtml

Koden fra 01/09-2006 00:23:36 udskriver navn, adresse, postnummer og bynavn fra en database.

Det kommer til at se sådan ud:

hans hansen*en eller anden vej 123*1234*MinBy|jens jens*endnu en vej 456*9876*Bynavnet

Du bruger så Split funktionen til at splitte data op, så du kan få fat på de enkelt data..

Split / array: http://www.html.dk/tutorials/asp/lektion8.asp

Rettelse (variabelfejl):

Server A ( http://www.A.dk/hent_data_fra_B.asp )
<%
  Response.Buffer = True

    dim Side_B
    Side_B = "http://www.B.dk/hent_alle_data.asp"

  Dim objXMLHTTP, xml

  ' Create an xmlhttp object:
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  ' Or, for version 3.0 of XMLHTTP, use:
  ' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

  ' Opens the connection to the remote server.
  xml.Open "GET", Side_B, False
   
  ' Actually Sends the request and returns the data:
  xml.Send

  'Display the HTML both as HTML and as text
  Response.Write "<h1>The HTML text</h1><xmp>"
  Response.Write xml.responseText
  Response.Write "</xmp><p><hr><p><h1>The HTML Output</h1>"

  Response.Write xml.responseText

 
  Set xml = Nothing
%>

Jeg prøver det i løbet weekend´en og vender tilbage

Tak for hjælpen det virker.
Du må endelig sende et svar

Det vil jeg så gøre.. :-)

Jeg vil anbefale en eller anden form for sikkerhed, hvis oplysningerne i databasen er personline (el.lign)..

F.eks kunne B kræve at der stod noget bestem i URL'en..

Eksempel:

<%
if request.querystring("en_eller_anden_form_for_sikkerhed") <> "noget_specielt" then
  response.write "Intet at se her.."
else
  ' udskriv data
end if
%>

For at B udskriver data, skal der i være:

http://www.b.dk/hent_alle_data.asp?en_eller_anden_form_for_sikkerhed=noget_specielt

Rettelse: "skal der i URL'en være"

Du har sikkert ret med hensyn til sikkerheden, det vil jeg rode med. Tak for input