<%@ Language=VBScript %> <% dim entry if len(Request.Querystring("date")) > 0 then entry = Request.Querystring("date") else entry = "031125" end if %> Leticia's Diary
Leticia's Diary
 
<% readfile = "E:\WebSites\FunnyStrange\leticia\entries\" & entry & ".txt" Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(readfile)=true) Then Set f=fs.OpenTextFile(readfile, 1) Response.Write(f.ReadAll) f.Close Set f=Nothing End If Set fs=Nothing %>

top of page