<% Option Explicit
' +---------------------------------+
' | |
' | © Copyright emil(onload.nu) |
' | |
' +---------------------------------+
%>
<%
Dim rs,Conn,SQL,week,i
Dim arrNews,arrWeeks
if(isNumeric(Request.QueryString("week")) AND Request.QueryString("week") <> "") Then
week = int(Request.QueryString("week"))
else
week = int(DatePart("ww",Now(),2))
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("../dbroot/xxx.mdb")
SQL = "SELECT topic,news,datum FROM nyheter WHERE DatePart('ww',datum,2) = "& week &" AND year(datum) = year(Now()) ORDER BY datum DESC"
Set rs = Conn.Execute(SQL)
if not rs.EOF Then
arrNews = rs.GetRows()
end if
SQL = "SELECT DatePart('ww',datum,2) AS vecka FROM nyheter WHERE year(datum) = year(Now()) GROUP BY DatePart('ww',datum,2) ORDER BY DatePart('ww',datum,2) DESC"
Set rs = Conn.Execute(SQL)
if not rs.EOF Then
arrWeeks = rs.GetRows()
end if
rs.Close : Set rs = Nothing
Conn.Close : Set Conn = Nothing
%>
Nyheter per vecka
<%
if(isArray(arrNews)) Then
for i = 0 to UBound(arrNews,2)
Response.Write ""& arrNews(0,i) &" - vecka "& DatePart("ww",arrNews(2,i),2) &"
"& arrNews(1,i) &"
"
next
else
Response.Write "Inga nyheter denna vecka!"
end if
if(isArray(arrWeeks)) Then
Response.Write "
Nyheter under detta året:"
for i = 0 to UBound(arrWeeks,2)
Response.Write " "& arrWeeks(0,i) &" | "
next
Response.Write ""
end if
%>