Her er hele koden hvis det skulle hjælpe:
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<meta name="robots" content="noindex,nofollow">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Luna Chick - Gæstebog</title>
<link rel="stylesheet"
href="stylesheet_spi.css"
type="text/css">
<style type ="text/css">
background-color : white;
background-image : url(grafik/logo_sh.jpg);
background-repeat: no-repeat;
background-position : center;
hr ( size: 1; color: blue )
table ( text-align: center )
td ( font-size: 12pt )
p ( font-size: 14pt, color: blue )
.font (font-family: verdana;
font-size: 10
)
</style>
</head>
<body bgcolor="black" background="graphics/general_background.jpg" link="red" vlink="red">
<font face="verdana" size="1" color="white">
<%
Dim fileObject, textFile, guestBook, guestBook2, mailtoUrl
guestBook2 = Server.MapPath("guestbook.txt")
guestBook = Request.ServerVariables( "APPL_PHYSICAL_PATH" ) _
& "\guestbook.txt"
Set fileObject = Server.CreateObject( _
"Scripting.FileSystemObject" )
If Request( "hiddenInput" ) = "true" Then
Call Response.Write( "Tak for din besked, " & _
Request("username") & "!" )
%>
<hr />
<%
mailtoUrl = Date() & " <a href=" & Chr(34) _
& "mailto:" & Request("email" ) & Chr(34) _
& ">" & Request("username") & "</a>: "
Set textFile = fileObject.OpenTextFile( guestbook2, 8, True)
Call textFile.WriteLine( "<hr />" & mailtoUrl & _
Request( "comment" ) )
Call textFile.Close()
End if
%>
<div class="over3">
<center> Gæstebog </center>
</div>
<br>
<center><a class="text1" href="addguestbook.html">Klik her for at skrive en hilsen i gæstebogen</a></center>
<br><br>
<%
If fileObject.FileExists( guestBook2 ) = True Then
Set textFile = fileObject.OpenTextFile( guestbook2, 1)
Call Response.Write( "Beskeder:<br>" &_
dim myarr()
do while not textFile.atEndOfStream
Myarr(i) = textFile.readLine
i = i+1
loop
for i = UBound(Myarr) to 0
response.write Myarr(i)
next
Call textFile.Close()
End If
%>
<br>
</font>
</body>
</html>
