---

Hej

Jeg er ny udi ASP, derfor har jeg brug for lidt hjælp.

På side 1 har jeg en oversigt a'la:

Titel 1
Titel 2
Titel 3
osv.

Det er links, som når de aktiveres, skal åbne relevant tekstfil på side 2.

Jeg havde forestillet mig at titlerne på side 1 ser sådan ud:

<a href="side2.asp?titel=1">Titel 1</a>
osv.

Side2.asp:
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystem.Object")
filespec = Server.Mappath("/tekster/Request("1").txt")
Set f = fso.OpenTextFile(filespec,1)

Do While not f.AtEndOfStream
Response.write f.ReadLine & "<br>"
Loop

f.Close
%>

Det er tilsyneladende ikke muligt, at lade filnavnet være en variabel?
Hvis nogen har en løsning, vil jeg være meget taknemmelig.

Med venlig hilsen
Peter

---

Søren Sørensen wrote:
> Jeg havde forestillet mig at titlerne på side 1 ser sådan ud:
>
> <a href="side2.asp?titel=1">Titel 1</a>
> osv.
>
> Side2.asp:
> <%
> Dim fso, f, filespec
> Set fso = CreateObject("Scripting.FileSystem.Object")

Herover er der et punktum for meget: Scripting.FileSystemObject

> filespec = Server.Mappath("/tekster/Request("1").txt")

Du har noget rod med dine gåseøjne :) Prøv dette i stedet for linien
herover:

filespec = Server.Mappath("/tekster/" & Request.QueryString("titel") &
".txt")

(Det skal skrives på én linie)

> Set f = fso.OpenTextFile(filespec,1)
>
> Do While not f.AtEndOfStream
> Response.write f.ReadLine & "<br>"
> Loop
>
> f.Close
> %>
>
> Det er tilsyneladende ikke muligt, at lade filnavnet være en variabel?
> Hvis nogen har en løsning, vil jeg være meget taknemmelig.

Jeg har rettet to steder herover. Til en anden gang må du gerne skrive
hvad det er, der er gået galt. Det kunne hjælpe både dig og os til at
spore os ind på, hvad fejlen kunne være.
Se evt: <URL:http://www.asp-faq.dk/article/?id=41>

mvh Torben

---

Hej

Tak til Torben for svaret og for de gode råd. Det virker dog stadig ikke.

Jeg vil sende en variabel med et link til ny side. og så åbne en tekstfil
bestemt af variablen. I dette tilfælde er navnet på tekstfilen 1.txt.

Fejlmeddelelsen er:
Microsoft VBScript runtime error '800a0035'

File not found

/presse2.asp, line 44

Min kode på udgangssiden er:

<a href="presse2.asp?id=1">Der brænder en ild</a>



Koden på destinationssiden er:

<%
Dim fso, f, filespec
set fso = createobject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tekster/presse/" & Request.QueryString("id")&
".txt")
set f = fso.OpenTextFile(filespec,1)
do while not f.AtEndOfStream
response.write f.ReadLine & "<br>"
loop
f.close
%>

URL'en er http://www.thorning.com/presse.htm

Mvh
Peter



Jeg har rettet to steder herover. Til en anden gang må du gerne skrive
hvad det er, der er gået galt. Det kunne hjælpe både dig og os til at
spore os ind på, hvad fejlen kunne være.
Se evt: <URL:http://www.asp-faq.dk/article/?id=41>

mvh Torben

---

Søren Sørensen wrote:
> Fejlmeddelelsen er:
> Microsoft VBScript runtime error '800a0035'
> File not found
> /presse2.asp, line 44
>
> Min kode på udgangssiden er:
> <a href="presse2.asp?id=1">Der brænder en ild</a>
>
> Koden på destinationssiden er:
> <%
> Dim fso, f, filespec
> set fso = createobject("Scripting.FileSystemObject")
> filespec = Server.Mappath("/tekster/presse/" & Request.QueryString("id")&
> ".txt")
> set f = fso.OpenTextFile(filespec,1)

Det må være denne linie, der går galt.
Det er - som fejlen siger - fordi filen ikke findes

> do while not f.AtEndOfStream
> response.write f.ReadLine & "<br>"
> loop
> f.close
> %>
>
> URL'en er http://www.thorning.com/presse.htm

Hvad er adressen til filen - 1.txt - der skal vises ?
Den du forsøger at vise er http://www.thorning.com/tekster/presse/1.txt.
Er du sikker på at den findes / er uploaded ?

Torben

---

Hej Torben

Åh nej, jeg store idiot. i et af mine mange forsøg på at få det til at
virke, havde jeg omdøbt den. Og glemt at døbe den tilbage.
Nu ser det ud til at virke.

Du får rigtig meget tak.

Mvh Peter


"Torben Brandt" <name@domain.invalid> wrote in message
news:3EAD88ED.50108@domain.invalid...
Søren Sørensen wrote:
> Fejlmeddelelsen er:
> Microsoft VBScript runtime error '800a0035'
> File not found
> /presse2.asp, line 44
>
> Min kode på udgangssiden er:
> <a href="presse2.asp?id=1">Der brænder en ild</a>
>
> Koden på destinationssiden er:
> <%
> Dim fso, f, filespec
> set fso = createobject("Scripting.FileSystemObject")
> filespec = Server.Mappath("/tekster/presse/" & Request.QueryString("id")&
> ".txt")
> set f = fso.OpenTextFile(filespec,1)

Det må være denne linie, der går galt.
Det er - som fejlen siger - fordi filen ikke findes

> do while not f.AtEndOfStream
> response.write f.ReadLine & "<br>"
> loop
> f.close
> %>
>
> URL'en er http://www.thorning.com/presse.htm

Hvad er adressen til filen - 1.txt - der skal vises ?
Den du forsøger at vise er http://www.thorning.com/tekster/presse/1.txt.
Er du sikker på at den findes / er uploaded ?

Torben