<% SQLCategory = "SELECT CatID, CatText FROM tblcategory ORDER BY CatText Asc" set rsCategory = adoCon.Execute(SQLCategory) strCategory = request("category") if strCategory = "" Then strCategory = blog_category end if response.write "

"& vbCrlf response.write "" & vbCrlf response.write "Select a Category" & VbCrlf Do While not rsCategory.eof If int(strCategory) = rsCategory("CatID") then response.write "" & rsCategory("cattext") & "" & VbCrlf Else response.write "" & rsCategory("cattext") & "" & VbCrlf End if rsCategory.Movenext Loop response.write "" response.write "

" rsCategory.Close set rsCategory=Nothing %>