%
' opening connection
rsSelected.Open "select * From Files WHERE ID="& ID &"", connectionString, 3, 4 ' vald nyhet
rs.Open "select * From Files order by [news_datetime] desc, ID DESC", connectionString, 3, 4 ' alla nyheter hämtas
meny = "7"
if (ID=0) then
rs2.Open "SELECT * FROM Skribenter WHERE ID=" & rs("news_writer"), connectionString, 3, 4
else
rs2.Open "SELECT * FROM Skribenter WHERE ID=" & rsSelected("news_writer"), connectionString, 3, 4
end if
%>
<% dim arts
arts= 0
If Not rsSelected.EOF Then ' hämtar den valda nyheten som man har klickat på
translate = rsSelected("kategori")
%> <%
Response.Write ""
Response.Write "" & pub &": " & rsSelected("news_datetime") & " | "
IF rsSelected("bild")&"" = "" Then 'om en bild saknas så visas en standard bild
Response.Write ""
Else
Response.Write ""
Response.Write ""
Response.Write " | "
End IF
Response.Write "" & rsSelected("File Desc") & "
"
Response.Write ""
Response.Write "" & rsSelected("news_headline") & " | "
Response.Write "" & translate & " " & rsSelected("ingress") & " | "
Response.Write " " & rsSelected("news_text") & " | "
Response.Write "
"
Response.Write " "
Else IF Not rs.EOF Then ' om man inte har valt en nyhet, hämta den senaste ------------------------------------------------------------------------------------->>>>
translate = rs("kategori")
%>
<%
End IF
'
NrOfNews = 60
End If
'..... luke kod start
NrOfPages = CInt((rs.RecordCount / NrOfNews ) + 0.5)
IF PageID < 0 Then
PageID = 0
End IF
IF CInt(PageID) >= CInt(NrOfPages) Then
PageID = CInt(NrOfPages - 1)
End IF
'...luke kod slut
Dim antal
antal = 0
Response.Write ""
While Not rs.EOF
IF antal >= PageID * NrOfNews Then
IF antal < (PageID * NrOfNews + NrOfNews) Then
Response.Write ("" & rs("news_datetime") &" | ")
'...luke kod ändring
Response.Write ("" & rs("news_headline") & " | ")
'...luke kod ändring klart
End IF
End IF
antal = antal + 1
rs.MoveNext
Wend
Response.Write (" ")
Response.Write ""
'...luke kod start
Response.Write (" " & first &" ")
Response.Write (" " & previous &" ")
Response.Write (" (" & page &" "& PageID+1 & "/" & (NrOfPages) & ")")
Response.Write (" " & next2 &"")
Response.Write (" " & last &" | ")
'...luke kod slut
Response.Write (" ")
rs.Close
rsSelected.Close
Set rsSelecte = Nothing
Set rs = Nothing
%>
|
|
|
|