fso.OpenTextFile

det kan man ikke. måske med javascript? men så kan man selvfølgelig ikke skrive til den, men det kan man heller ikke med fso når filen ligger på en anden server

Jeg har heldigvis ikke behov for at skrive til filen. Skal blot hente 3 kommaseparede tal ind i nogel variable.

Du kan hente det fra en anden maskine på netværket således:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = objFSO.OpenTextFile("\\<machinename>\myfile.txt", ForReading)
Skal du hente den fra en anden server tror jeg du blir nødt til at indlæse den ved at sende en GET command og indlæse den i en variable fremfor at bruge fso

Elller også skal du benytte asp http (www.serverobjects.com) som du kan hente filen med.

Jeg har ikke selv afprøvet, men her er noget: http://www.pstruh.cz/tips/detpg_read-write-binary-files.htm
Jeg opsummerer det jeg tror skal bruges:
Function BinaryGetURL(URL)
  'Create an Http object  Dim Http
  Set Http = CreateObject("Microsoft.XMLHTTP")

  'Send request To URL
  Http.Open "GET", URL, False
  Http.Send
  'Get response data As a string
  BinaryGetURL = Http.ResponseBody
End Function
'For at konvertere til tekst skal du konvertere BinaryGetURL med metoden:
Function BinaryToString(Binary)
  'Antonin Foller, http://www.pstruh.cz
  'Optimized version of a simple BinaryToString algorithm.
 
  Dim cl1, cl2, cl3, pl1, pl2, pl3
  Dim L
  cl1 = 1
  cl2 = 1
  cl3 = 1
  L = LenB(Binary)
 
  Do While cl1<=L
    pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
    cl1 = cl1 + 1
    cl3 = cl3 + 1
    If cl3>300 Then
      pl2 = pl2 & pl3
      pl3 = ""
      cl3 = 1
      cl2 = cl2 + 1
      If cl2>200 Then
        pl1 = pl1 & pl2
        pl2 = ""
        cl2 = 1
      End If
    End If
  Loop
  BinaryToString = pl1 & pl2 & pl3
End Function

Så vidt jeg kan se, burde det virke...
Skal nok lige se, om jeg kan finde en komplet løsning - hvis du finder den først, må du sige til

Jeg takker for indlægene. Jeg har ikke haft tid til at teste dem endnu. Så indtil videre er problemet ikke løst. Men løsningen altså allerede være fundet.

Har ikke glemt dette spørgsmål. Kommentaren ovenover gælder stadig.

Damn det er længe siden ujeg har været her.

Men indtil videre er reino den der har givet det bedste svar. Så hvis han laver et svar, kan jeg da tildele points. :-)

Det får du så her og velkommen tilbage :)

Håber du kunne bruge komponentet, lige et hurtigt eks.:

<%
set objHTTP = server.createobject("AspHTTP.Conn")
Dim mycleanstring

objHTTP.Url = "http://xxxxxxxxxxxxxxxxxx"


MyString = objHTTP.GetUrl()
MyCleanString = Replace(Replace(Mystring, "showcars.asp?", "default.asp?komponent=visdetaljer&"), "brugt.asp", "default.asp?komponent=visdetaljer")
response.write(MyCleanString)
Set objHTTP = Nothing
  %>

Med dette ex. kan du også manipulere, erstatte output fra den eksterne side, blot lidt inspiration :)

Takker for hjælpen

hmm der sker ikke en dyt når jeg trykker accepter

Du skal markere navnet, og derefter trykke på accepter

ahhhhh

:) takker for points