List Articles

<% dim intSearchHits dim strSearchResults intSearchHits=0 OrderBy = Request.QueryString("sort") Select Case OrderBy Case "rubrik" OrderBy = "ORDER BY rubrik" Case "id" OrderBy = "ORDER BY id" Case "datum" OrderBy = "ORDER BY datum" Case "visa" OrderBy = "ORDER BY visa" Case "forfattare" OrderBy = "ORDER BY forfattare" Case Else OrderBy = "ORDER BY datum desc" end select set rsOldnews = connect.execute("select * from nyheter " & OrderBy) %> List Articles <% if intSearchHits < 1 then do while not rsOldnews.eof bolVisa = rsOldnews("visa") select case bolVisa case "1" %> <% case "0" %> <% end select rsOldnews.movenext loop else rsSok.movefirst do while not rsSok.eof bolVisa = rsSok("visa") select case bolVisa case "1" %> <% case "0" %> <% end select rsSok.movenext loop rsSok.Close end if %>

	List Articles/News			Add new :: Menu
<% strSearch = Request.Form("search") If strSearch <> "" Then set rsSok= Connect.execute("Select * from nyheter Where nyheter LIKE '%" & Request.Form("search")& "%' or rubrik LIKE '%" & Request.Form("search")& "%' or forfattare LIKE '%" & Request.Form("search")& "%' or ingress LIKE '%" & Request.Form("search")& "%'") Do Until rssok.EOF if len(rsSok("rubrik")) > 0 then intSearchHits=intSearchHits+1 End If rsSok.MoveNext LOOP if intsearchhits=0 then response.write "Your search produced " & intSearchHits & " results, showing all. " & strSearchResults else response.write "Your search produced " & intSearchHits & " results: " & strSearchResults end if End If %>
ID	Article	Visible	Date	Published by
&visa=<%=rsOldnews("visa")%>> <% =rsOldnews("id") %>	&visa=<%=rsOldnews("visa")%>> <% =rsOldnews("Rubrik") %>	Yes	<% =rsOldnews("Datum") %>	<% =rsOldnews("Forfattare") %>	" target="_blank">	onclick="return confirm('Are you sure you want to delete this article?')">	&visa=<%=rsOldnews("visa")%>>
<% =rsOldnews("id") %>	&visa=<%=rsOldnews("visa")%>> <% =rsOldnews("Rubrik") %>	No	<% =rsOldnews("Datum") %>	<% =rsOldnews("Forfattare") %>	" target="_blank">	onclick="return confirm('Are you sure you want to delete this article?')">	&visa=<%=rsOldnews("visa")%>>
&visa=<%=rsSok("visa")%>> <% =rsSok("id") %>	&visa=<%=rsSok("visa")%>> <% =rsSok("Rubrik") %>	Yes	<% =rsSok("Datum") %>	<% =rsSok("Forfattare") %>	" target="_blank">	onclick="return confirm('Are you sure you want to delete this article?')">	&visa=<%=rsSok("visa")%>>
<% =rsSok("id") %>	&visa=<%=rsSok("visa")%>> <% =rsSok("Rubrik") %>	No	<% =rsSok("Datum") %>	<% =rsSok("Forfattare") %>	" target="_blank">	onclick="return confirm('Are you sure you want to delete this article?')">	&visa=<%=rsSok("visa")%>>