quote:

---

Originally posted by mortioli

I've got the dates etc working. Thanks.

Another question though...all this info is put into a .txt file, and I have an .asp file which shows all the info (through the admin pages), but because the size will increase quite dramatically, is there a way of having a button or link which will clear the contents of the .txt file? Saves on logging into FTP and uploading a blank file.

Cheers again!

---

<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<table border="0" width="100%">
  <tr>
    <td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="<%= strImageUrl %>icon_folder_open.gif" height=15 width=15 border="0"> <a href="default.asp">All Forums</a><br>
    <img src="<%= strImageUrl %>icon_bar.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_folder_open.gif" height=15 width=15 border="0"> <a href="admin_home.asp">Admin Section</a><br>
    <img src="<%= strImageUrl %>icon_blank.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_bar.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_folder_open_topic.gif" height=15 width=15 border="0"> Forum Logs<br>
    </font></td>
  </tr>
</table>
<br><br>
<table border="0" width="100%">
<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strFileName = "C:\blah\blah\logs\forum.txt"
const fsoForReading = 1

Dim iFileSize
iFileSize = objFSO.GetFile(strFileName).Size
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Log File size (bytes): <b>" & FormatNumber(iFileSize, 0) & _
"</b></font>"

If objFSO.FileExists("C:\blah\blah\logs\forum.txt") then
   'The file exists, so open it and output its contents
   Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
   Response.Write "<PRE>" & objTextStream.ReadAll & "</PRE>"
   objTextStream.Close
   Set objTextStream = Nothing
Else
   'The file did not exist
   Response.Write strFileName & " was not found."
End If

'Clean up
Set objFSO = Nothing

%>
</table>
<br><br>
<!--#INCLUDE file="inc_footer.asp" -->
<%
Else
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=scriptname"
End IF
%>

quote:

---

Originally posted by al_iguana


is there any way you can get the log creation date (in a similar way that you get the file size)? could then work out how many days since log creation (or since you last cleared it)

---