FSO - Paging og Skrive indlæg i toppen af txt i min tagwall
Okay lidt længere titel der, men jeg har efterhånden fået lavet min nr 2 tagwall færdig.Jeg mangler bare at finde ud af hvordan jeg kan liste indlæg lavet i tagwallen så de kommer øverst på min side istedet for at de kommer i bunden.
Desuden skal jeg også have lavet noget paging, så at den deler op efter hvert 10 indlæg eller ligende.
Her er min kode
-------------
Tagwall.asp
-------------
<% Session.LCID=3079 %>
<h1>Gæstebog</h1>
<hr>
<table cellspacing="0" cellpadding="0" class="tagtable">
<%
dim tagfile, tagfilsys, navn, dato, hp, email, tagtekst
set tagfilsys = createobject("scripting.filesystemobject")
set tagfile = _
tagfilsys.opentextfile(Server.MapPath("indhold/tagwall.txt"), 1)
do while not tagfile.atendofstream
navn = tagfile.readline
dato = tagfile.readline
hp = tagfile.readline
email = tagfile.readline
tagtekst = tagfile.readline
tagtekst = Server.HTMLEncode(tagtekst)
navn = Server.HTMLEncode(navn)
dato = Server.HTMLEncode(dato)
hp = Server.HTMLEncode(hp)
email = Server.HTMLEncode(email)
response.write "<tr>"
response.write "<td class='tagnavn'><a href='mailto:" & email &"'>" & navn & "</a>"
response.write "</td>"
response.write "<td class='tagdato'><p>" & dato & "</p>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='tagtekst' colspan='2' valign='top'><p>" & tagtekst & "</p>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td class='taglink' colspan='2'><a href='" & hp & "' target='_blank' title='" & hp & "'>www</a><br>"
response.write "<br></td>"
response.write "</tr>"
loop
tagfile.close
%>
</table>
<br>
<form action="index.asp?indhold=tagit" method="post">
<input type="hidden" Name="Mode" Value="opret">
<table cellspacing="1" cellpadding="0" class="tag_form">
<tr>
<td class="tag_td1" align="left"><p class="p1">Name:</p></td>
<td class="tag_td2" align="right"><input class="tag_cell" type="text" name="navn" value="Dit Navn Her"></td>
</tr>
<tr>
<td class="tag_td1" align="left"><p class="p1">Email:</p></td>
<td class="tag_td2" align="right"><input class="tag_cell" type="text" name="email" value="Din Email Her"></td>
</tr>
<tr>
<td class="tag_td1" align="left"><p class="p1">www:</p></td>
<td class="tag_td2" align="right"><input class="tag_cell" type="text" name="hp" value="http://www"></td>
</tr>
<tr>
<td class="tag_td1" align="left" valign="top"><p class="p1">Text:</p></td>
<td class="tag_td2" align="right"><input class="tag_cell2" type="text" name="tagtekst" value="Og teksten her"></td>
</tr>
<tr>
<td class="tag_cell5" align="center" colspan="2"><br><input class="tag_cell2" type="hidden" name="dato" value="<% = now %>"><input class="tagsubmit" type="reset" name="reset" value="Slet"> <input class="tagsubmit" type="submit" name="submit" value="Tag"></td>
</tr>
</table>
</form>
<br>
------------
tag.asp
------------
<%
if request ("mode") = "opret" then
navn_form = Trim(Request.Form("navn"))
dato_form = Trim(Request.Form("dato"))
hp_form = Trim(Request.Form("hp"))
email_form = Trim(Request.Form("email"))
tagtekst_form = Trim(Request.Form("tagtekst"))
If len(tagtekst_form) > 300 Then
Response.Write "<p>Din besked er for lang!,<br><a href='java script:history.back(1)'>Tilbage</a></p>"
ElseIf navn_form = "" Then
Response.Write "<p>Du mangler at skrive dit navn,<br><a href='java script:history.back(1)'>Tilbage</a></p>"
ElseIf tagtekst_form = "" Then
Response.Write "<p>Du mangler at skrive en besked,<br><a href='java script:history.back(1)'>Tilbage</a></p>"
ElseIf hp_form = "" Then
Response.Write "<p>Du mangler at skrive din url,<br><a href='java script:history.back(1)'>Tilbage</a></p>"
ElseIf email_form = "" Then
Response.Write "<p>Du mangler at skrive din email,<br><a href='java script:history.back(1)'>Tilbage</a></p>"
Else
dim fs, wtfile
Set fs = CreateObject("Scripting.FileSystemObject")
Set wtfile = fs.opentextfile(Server.MapPath("indhold/tagwall.txt"), 8)
wtfile.Writeline navn_form
wtfile.Writeline dato_form
wtfile.Writeline hp_form
wtfile.Writeline email_form
wtfile.Writeline tagtekst_form
wtfile.close
Set wtfile=nothing
Set fs=nothing
response.write "<div align='center'><p>Tak fordi du skrev i Gæstebogen, din besked er tilføjet</p><a href='index.asp?indhold=tagwall'>[Tilbage Til Gæstebogen]</div>"
end if
end if
%>
