Line 51: 'Dim strGetBlogRSS As String = "Select * from tblBlog where BlogID = " & strBlogID & ""
Line 52: Dim strGetBlogRSS As String = "select tblBlog.BlogID, tblBlog.CatID, tblBlog.BlogTitle, tblBlog.BlogContent, Format(tblBlog.BlogDate,'dddd, mmmm dd, yyyy at hh:mm-ampm') as BlogDate, Format(tblBlog.BlogDate) as BlogRSSDate, tblBlog.BlogComments, tblBlog.SecurityLevel, tblCategory.CatName from tblBlog, tblCategory where tblBlog.CatID = tblCategory.CatID and BlogID = " & strBlogID & " and BlogEnabled= True"
Line 53: conn.Open()
Line 54: comm = New OleDbCommand(strGetBlogRSS, conn)
Line 55: dr = comm.ExecuteReader()
|