| |
Previous Blog Entries<%if not RS.Eof then
%>
<%do while NOT RS.EOF
entry = replace(RS("entry"), "''", "'")
entry = replace(entry, "", " ")
topic = replace(RS("topic"), "''", "'")
if not isNull(RS("alignment")) then
alignment = RS("alignment")
else
alignment = ""
end if
if NOT isNull(RS("img")) then
imgsrc = RS("img")
else
imgsrc = ""
end if
if not isNull(RS("imgsize")) then
width = RS("imgsize")
else
width = ""
end if
if NOT isNull(RS("caption")) then
caption = replace(RS("caption"), "''", "'")
else
caption = ""
end if%>
<%=RS("DateEntered")%>
<%=topic%>
<% if imgsrc <> "" then%>
|
<% if caption <> "" then%>
| <%=caption%> |
<% end if%>
<%end if%>
<%=entry%>
<%SQL2 = "SELECT * FROM Comments WHERE BlogID = " & RS("BlogID") & " AND approved = 'yes'"
Set RS2 = COnn.Execute(SQL2)
if not RS2.EOF then%>
Comments:
<%do while NOT RS2.EOF%>
<%=RS2("comments")%>
Posted by "><%=RS2("firstname")%> <%=RS2("lastname")%> on <%=RS2("dateentered")%>
<%RS2.MoveNext
Loop
end if
RS2.close
set RS2 = nothing%> |
| |
<%RS.MoveNext
Loop%>
<%else%>
There are no entries.
<%end if%>
|
|
|
