% dim rs dim sql Sub performQuery() sql = "SELECT News.Body, News.Special, News.Title, News.Date, News.NewsID " sql = sql & "FROM News" if request.queryString("View") <> "" then sql = sql & " WHERE News.Special='" & request.queryString("View") & "'" end if sql = sql & " ORDER BY News.Date DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 0, 1 End Sub %> <% dim rs2 dim sql2 Sub performQuery2() sql2 = "SELECT Articles.Body, Articles.Special, Articles.Title, Articles.Date, Articles.NewsID " sql2 = sql2 & "FROM Articles" if request.queryString("View") <> "" then sql2 = sql2 & " WHERE Articles.Special='" & request.queryString("View") & "'" end if sql2 = sql2 & " ORDER BY Articles.Date DESC" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, conn, 0, 1 End Sub %>
|
|||||||||||||||||||||||||