---
title: "måste va deg i kablaget"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/105935-måste-va-deg-i-kablaget"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "eddy1"
published: "2004-06-21T18:38:31.000Z"
updated: "2004-06-22T07:04:47.000Z"
replies: 3
views: 244
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/105935-måste-va-deg-i-kablaget"
---

# måste va deg i kablaget

## #1 — eddy1, 2004-06-21T18:38Z

Med mycket hjälp från folk så använder jag denna kod för att hämta en bild från en server för att spara på en annan. Men det går så segt!!

Någon som kan se vad det är som gör att det går så segt och flytta en fil med följande kod... 

\<% 
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP") 
objHTTP.Open "GET", " <http://www.domän.se/minfil.jpg>", False 
objHTTP.Send 
strBild = objHTTP.ResponseBody 
Set objHTTP = Nothing 

For i = 1 To LenB(strBild) 
  strTemp = strTemp & Chr(AscB(MidB(strBild, i, 1))) 
Next 

Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
Set objTS = objFSO.CreateTextFile(Server.MapPath("bild4.jpg")) 
objTS.Write(strTemp) 
objTS.Close : Set objTS = Nothing 
Set objFSO = Nothing 
%\> 

Provade med en fil på cA 150 KB och det står och tuggar i 60 sek och sen får man timeout. Små filer upp till ca 50KB fungerar bra men sen blir det sämre...

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

## #2 — Hulth, 2004-06-21T19:17Z

Du har ju redan en tråd om detta och jag tycker personligen att du borde hålla dig till den istället.

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

## #3 — Palle, 2004-06-21T20:51Z

1\. Använd *Server.CreateObject("MSXML2.ServerXMLHTTP")* istället om du kan då det är den senaste versionen med bättre prestanda.
2\. Kör en kontroll som kan generera ett meddelande till besökarna istället, så slipper du få script-error, ex. 

```
[red]If (objHTTP.readyState <> 4) OR (objHTTP.Status <> 200) Then

	objHTTP.Abort
	Response.Write "Nått blev fel, testa igen.."

Else

	strTemp = objHTTP.ResponseText

End If[/red]
```

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

## #4 — toha, 2004-06-22T07:04Z

Jag laddade hem en kodsnutt som laddar bilder från valfri url och lägger den i temporary internet files-katalogen som man får som returvärde. Det var iofs VB-kod...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/105935-måste-va-deg-i-kablaget