% Dim sql, rs, rsNews dbConnect(0) newsID = request.QueryString("id") sql = "SELECT news_id, title FROM news WHERE active = yes ORDER BY newsdate DESC" set rs = objConn.Execute(sql) if newsID = "" then sql = "SELECT * FROM news WHERE active = yes ORDER BY newsdate DESC" else sql = "SELECT * FROM news WHERE active = yes AND news_id = " & newsID end if set rsNews = objConn.Execute(sql) %>
|