Include

jag får ej detta att funka, går det överhuvudtaget att göra så här.
#include virtual="<%=strRS("StringNamn")%>.inc" :q

------------------
Janne

"Att komma i tid till ett möte
är bara slöseri med tid"

nix, så går inte att göra, eftersom all ssi körs innan asp-koden på sidan.

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

Hur skall jag dynamiskt kunna includera en txt fil. Någon som har en lösning.

------------------
Janne

"Att komma i tid till ett möte
är bara slöseri med tid"

[Redigerat av JaktJanne den 23 feb 2001]

tidigare nylig tråd:
http://cgi.webforum.nu/wf/Forum11/HTML/002947.html

du kan om det handlar om html eller (som jag förstår dig vid det här tillfället), ren text, använda fso för att läsa in textfilen och response.write för att skriva ut den.

du kan läsa under 'reading from files' i microsofts guide till filesystemobject.
http://msdn.microsoft.com/scripting/vbscript/doc/sgworkingwithfiles.htm

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

Tackar Anders skall testa senare, återkommer säkert :)

------------------
Janne

"Att komma i tid till ett möte
är bara slöseri med tid"

Utan att ha testat så skulle kanske detta funka.

Sub ReadFile
 Dim fso, ts, fn
 Const ForReading = 1
  set fso = CreateObject("Scripting.FileSystemObject")
'Läs från fil
  Set ts = fso.OpenText File("<%=strRS("filNamn")%>.txt", ForReading)
  fn = ts.ReadAll
  Response.Write '"& fn &"'
  ts.Close
End Sub

------------------
Janne

"Att komma i tid till ett möte
är bara slöseri med tid"

nästan, så här bör det nog se ut:

Set ts = fso.OpenText File(strRS("filNamn") & ".txt", ForReading)
fn = ts.ReadAll
Response.Write fn

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

Fortsatt problem, felmeddelande att filen inte kan hittas. testat med att ändra till följande:
Set ts = fso.OpenText File("filNamn.txt", ForReading)
men filen kan inte hittas iaf, den ligger i samma kat så sökvägen är ok. :q

[r]
Löste det med :
Set ts = fso.OpenText File(Server.MapPath("filNamn.txt"), ForReading)
------------------
Janne

"Att komma i tid till ett möte
är bara slöseri med tid"

[Redigerat av JaktJanne den 24 feb 2001]