<%
Option Explicit
Dim AllText
Dim objFSO
Dim objFil
Dim Text
Response.Expires = -1000
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFil = objFSO.OpenTextFile(Server.MapPath("textfile.txt"),1)
AllText = objFil.readAll
objFil.close
Text = AllText
Response.Write("&utskrift=" & Text)
Response.Write("&loaded=true")
%>
Men det funkar inte, inget scrivs ut, sidan står bara och laddar, laddar, laddar.
Textfilen existerar och det är lite text i den, men inget överhuvudtaget skrivs alltså ut.
Så, jag undrar om jag måste ha ngt spec. för att få det här att funka, eller om det beror på ngt fel i koden?!
Lösningen på ett problem innebär uppkomsten av ett nytt.
Mycket riktigt:
Sidan kunde inte visas
För många användare försöker komma åt webbplatsen just nu.
Hur gör jag nu, har provat att stänga ner filerna i min texteditor och uppdatera webläsaren, men fortf. samma grejj. Men jag löste iaf. det första med Norton ;)
