---
title: "Inkludera från annan server"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/115667-inkludera-från-annan-server"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fireh"
published: "2004-11-11T23:04:50.000Z"
updated: "2004-11-15T07:48:16.000Z"
replies: 5
views: 564
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/115667-inkludera-från-annan-server"
---

# Inkludera från annan server

## #1 — Fireh, 2004-11-11T23:04Z

Jag har en webbsida på en viss IIS-server tillsammans med en mySQL-databas. Det finns några hundra användare registrerade där. När jag nu från en annan webbserver vill komma åt en del av användarinformationen från mySQL-databasen, så har jag gjort en asp-sida som hanterar detta.

Om den andra webbplatsen kör PHP, så fungerar följande funktion:

```php
$url = "http://www.adress.se/translate.asp?Username=".$user."&Kontroll=".$cc_kontroll."&Funktion=Login"; 
$cclogin = @file($url);
$fornamn = $cclogin[1];
$efternamn = $cclogin[2];
$nick = $cclogin[3];
```

Dvs translate.asp tar värdena i stängen, kör det på asp-servern och skickar tillbaks en ren text med radbrytningar efter varje värde som funktionen ovan läser in i variabler.

Men hur gör jag motsvarande sak i ASP?
Det måste väl finnas en liknande funktion?

Tack på förhand!

Permalänk: https://www.webforum.nu/p/115667

## #2 — Eclipse, 2004-11-12T14:45Z

Nej, inte inbyggd i standard ASP. Det finns en del features i PHP som inte har någon motsvarighet i ASP och denna kan man räkna dit.

Däremot finns det en komponent, ASPTear, som man kan använda. Men det är, som sagt, tredjepart.

Permalänk: https://www.webforum.nu/p/1483155

## #3 — @nders, 2004-11-12T14:49Z

Nuförtiden finns ju XMLHTTP att tillgå, som en del av Microsofts XML parser / XML Core Services. 

Den ingår som standard i senare versioner av Windows, så de flesta webhotell med Windows-plattform stödjer detta.

Är det egen server är det bara att installera själv. Senaste versionen finner man på <http://www.microsoft.com/xml> .

mvh

Permalänk: https://www.webforum.nu/p/1483157

## #4 — Fireh, 2004-11-14T14:20Z

Okay, då har jag tittat på XML-grejen... Har fått ihop följande kod som returnerar exakt samma sak som PHP-koden ovan.

```
Set XmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
XmlHttp.open "GET", "http://www.adress.se/translate.asp?Username="&Username&"&Kontroll="&Kontroll&"&Funktion=Login", false
XmlHttp.send()
Svar = XmlHttp.ResponseText
```

Det som returneras till variabeln Svar är exakt detsamma som i PHP-versionen, dvs:

> Peter
> Eldh
> Fireh

Varje värde ligger på en ny rad med med vbNewLine som radbrytning. 
I PHP används sedan $fornamn = $cclogin\[1\] för att läsa in rad 1 till variabeln fornamn. 

Jag har i nuläget använt samma sak för ASP med XML. 
Svaret som blir i variabeln Svar är en ren text med en radbrytning (vbNewLine) efter varje värde. 
Finns det något motsvarande funktion i XML-grejen (eller i ASP) för att läsa ur detta till var sin variabel? 
Jag hittar det inte  :(

En annan detalj...
ÅÄÖåäö blir ett ? samt att de två nästföljande tecknena försvinner.
Nån lösning på det?

Permalänk: https://www.webforum.nu/p/1483935

## #5 — @nders, 2004-11-15T04:54Z

> Finns det något motsvarande funktion i XML-grejen (eller i ASP) för att läsa ur detta till var sin variabel? 
> Jag hittar det inte

Använd [Split()](http://www.devguru.com/technologies/wml/vbscript/quickref/split.html) för att dela upp strängen vid radbrytning.

> ÅÄÖåäö blir ett ? samt att de två nästföljande tecknena försvinner.
> Nån lösning på det?

[Den som söker finner.](http://www.webforum.nu/showthread.php?s=&postid=397726#post397726)

Permalänk: https://www.webforum.nu/p/1484191

## #6 — Fireh, 2004-11-15T07:48Z

Tack @nders!
vad skulle jag göra utan dig?  :birp 

Här kommer då den färdiga koden för den som undrar:

```
Function BinToText(varBinData, intDataSizeInBytes)
  const adFldLong = 128
  const adVarChar = 200
  set objRS = Server.CreateObject("ADODB.Recordset")
  objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
  objRS.Open
  objRS.AddNew
  objRS.Fields("txt").AppendChunk(varBinData)
  tmp = objRS("txt").Value
  objRS.Close
  BinToText = tmp
End Function

Set XmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
XmlHttp.open "GET", "http://www.adress.se/translate.asp?Username="&Username&"&Kontroll="&Kontroll&"&Funktion=Login", false
XmlHttp.setRequestHeader "Content-type","text/html"
XmlHttp.Send
Svar = Split(BinToText(XmlHttp.ResponseBody,35000),vbNewLine)

Fornamn = Svar(0)
Efternamn = Svar(1)
Nick = Svar(2)
```

Permalänk: https://www.webforum.nu/p/1484214

---

Tråden på webben: https://www.webforum.nu/amne/asp/115667-inkludera-från-annan-server