" & title & " ")
rs.movenext
End If
While Not rs.EOF
txt = rs.fields("post_date")
pos=InStr(txt," ")
pos = pos - 1
month_name1 = Mid(txt,1,pos)
pos=InStr(txt,",")
pos = pos + 1
post_year1 = Mid(txt,pos)
If post_year1 = post_year Then
If month_name1 = month_name Then
title = rs.fields("news_title")
Call REP(title)
Response.Write(" " & title & " ")
Else
month_name = month_name1
title = rs.fields("news_title")
Call REP(title)
Response.Write(" |
")
Response.Write("