| <%
'Ange sökvägen till gästbokens textfil. Precis som i skriv.asp
'använder du en av de båda metoderna nedan.
'Antingen Metod 1
' strMinFil = "här anger du adressen/gester.txt"
'eller Metod 2
strMinFil = Server.Mappath("gester.txt")
'Öppna gästboksfilen
Set fsoMinFil=Server.CreateObject("Scripting.FileSystemObject")
If fsoMinFil.FileExists(strMinFil) Then
Set strMinTextFil=fsoMinFil.OpenTextFile(strMinFil)
'Läser och skriver tills allt har skrivits på sidan
WHILE NOT strMinTextFil.AtEndOfStream
%>
<%=strMinTextFil.ReadLine%>
<%
WEND
'Stäng textfilen
strMinTextFil.Close
End if
%>
|