<%
Response.Write ("")
Response.Write ("")
Response.Write rs.Fields("title")
Response.Write ("")
Response.Write ("")
Response.Write ("")
Response.Write rs.Fields("date")
Response.Write (" ")
%>
<%
'-- this code reads from a txt file with the path stored in the database
set filObject = fsoObject.OpenTextFile(rs.Fields("body"), 1, False)
Response.Write ("")
counter=0
do while not filObject.AtEndOfStream
counter=counter+1
thisline=filObject.readline
response.write thisline & "
"
loop
Response.Write ("")
filObject.Close
set filObject=nothing
set fsoObject=nothing
%>
|
