<% '=============================================================================================================================================================== ' GET ALL BLOGS '=============================================================================================================================================================== cn = "Driver={SQL Server};Server=SQUIDERS\SQLEXPRESS;Database=DAVEHOLMES;UID=sa;PWD=Monkey77" Set rs01a = Server.CreateObject("ADODB.Recordset") sql = "SELECT COUNT (*) AS MyCount FROM dbo.blog WHERE visible = 'Y'" rs01a.Open sql, cn If rs01a.fields.item("MyCount").value > 0 Then cn = "Driver={SQL Server};Server=SQUIDERS\SQLEXPRESS;Database=DAVEHOLMES;UID=sa;PWD=Monkey77" Set rs01b = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM dbo.blog WHERE visible = 'Y' order by blog_date_ymd DESC, blog_urn DESC" rs01b.Open sql, cn End If %> Dave Holmes Blog
Dave Holmes

Dave Holmes' Blog

<% If rs01a.fields.item("MyCount").value > 0 Then do until rs01b.eof Response.Write "
" & vbCrLf Response.Write "" & rs01b.fields.item("blog_title").value & "" & vbCrLf Response.Write "
" & vbCrLf Response.Write "

" & rs01b.fields.item("blog_title").value & "

" & vbCrLf Response.Write rs01b.fields.item("blog_intro").value & "

...read on

" & vbCrLf Response.Write "
" & vbCrLf rs01b.movenext loop Else Response.Write "

New blog posts from Dave are coming soon... watch this space!

" End If %>

© 2012 Dave Holmes

Dave Holmes