Gæstebog skal tilføje besked først, ikke sidst
Jeg har fundet en lille fix guestbook. Den passer lige til mine behov. Den er lavet i asp og gemme beskederne i en txt-fil.Det eneste der er i vejen er bare at den tilføjer en ny besked nederst (til sidst) i txt-filen. Det betyde at man efter ganske få beskeder skal scrolle ned i bunden af siden for at se den nyeste entry. IKKE SÆRLIG FEDT.
Er der ikke en der kan hjælpe mig med at få tilpasset scriptet så en ny besked blive skrevet i starten af txt-filen istedet for til slut.
Skriptet består at to filer. en til at vise gæstebogen og en til at tilføje en ny besked. Jeg ved ikke en skid om asp så jeg skriver begge til neden for
Håber nogen kan hjælpe ;-)
******************** GUESTBOOK-SCRIPT ********************
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type ="text/css">
hr ( font-size: 1; color: black )
table ( text-align: center )
td ( font-size: 22pt color: #FF6600)
p ( font-size: 14pt, color: blue )
.font (font-size: 10 color: #FF6600)
</style>
</head>
<body bgcolor="white" MARGIN="0">
<center><a class="billedtekst" href="addguestbook.html">Klik her for at skrive en hilsen i gæstebogen</a></center>
<br>
<br>
<br>
<%
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
%>
<%
If fileObject.FileExists( guestBook2 ) = True Then
Set textFile = fileObject.OpenTextFile( guestbook2, 1)
Call Response.Write( "<b>Beskeder:</b><br>" &_
textFile.ReadAll() )
Call textFile.Close()
End If
%>
<br>
<br>
<br>
</body>
</html>
************************************************************
******************* ADDGUESTBOOK-SCRIPT *******************
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL="stylesheet" TYPE="text/css" HREF="stylesheet.css">
</head>
<body bgcolor="white" MARGIN="0">
<form action="guestbook.asp" method="post">
<table width="350" border="0" cellpadding="0" cellspacing="0">
<tr height="25"><td colspan="2"></td></tr>
<tr><td class="td_billedtekst">Navn:</td></tr>
<tr><td><input class="font" type="text" size="50" name="username" id="t3"></td></tr>
<tr height="25"><td></td></tr>
<tr><td class="td_billedtekst">Email:</td></tr>
<tr><td><input class="font" type="text" size="50" name="email" value="ILove@Luna.Chick" id="t4"/></td></tr>
<tr height="25"><td></td></tr>
<tr><td class="td_billedtekst">Besked:</td></tr>
<tr><td><textarea name = "comment" rows="5" cols="38">Skriv en hilsen her...</textarea></td></tr>
<tr>
<td>
<input type = "submit" value = "Send" /><input type = "reset" value = "Ryd felter" />
<input type = "hidden" name = "hiddeninput" value = "true" />
</td>
</tr>
</table>
</form>
</body>
</html>
************************************************************
