<% Function zWrite_News(arrayid,comments) If arrayid > UBound(zobjRS) Then zWrite_News = "Error." Exit Function End If Dim zTmpPost,zTmpComments zTmpComments = "" & zobjRS(4,arrayid) & " Comments" zTmpPost = "

" & zobjRS(1,arrayid) & " - " & zTmpComments & " - " & zobjRS(6,arrayid) & " - " & zDate("%e, %n %d%s, %Y",zobjRS(2,arrayid)) & " - " & zobjRS(5,arrayid) & "

" & zobjRS(3,arrayid) & "

" zWrite_News = zTmpPost End Function Function zWrite_Comments(count) Dim zTmpComment If Not zobjRS1.EOF Then zTmpComment = "

#" & count & " - " & zobjRS1("PostedBy") & " - " & zDate("%n %d%s, %Y %H:%t",zobjRS1("PostedDate")) & "

" & zobjRS1("Comment") & "

" Else zTmpComment = "Error." End If zWrite_Comments = zTmpComment End Function Function zWrite_Index(arrayid) Dim zTmpIndex zTmpIndex = "

" & zobjRS(1,arrayid) & "

" & zDate("%n %d%s, %y",zobjRS(2,arrayid)) & " - " & zobjRS(3,arrayid) & "

" zWrite_Index = zTmpIndex End Function %>