<% Option Explicit Response.Buffer = True '// "Dima" variabler Dim lng_absolute_page, lng_page_count, lng_row_count Dim bild, fso %> <% If cLng(Len(Request.QueryString("page")))>0 Then lng_absolute_page = cLng(Request.QueryString("page")) Else lng_absolute_page = 1 End If %> <% Set objCon = ConnectionOpen() Set objRs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * "&_ "FROM nyheter "&_ "ORDER BY datum DESC;" objRs.CursorLocation = 3 objRs.Open SQL, objCon, 3, 4 If Not objRs.Eof Then '// Antal svar per sida objRs.PageSize = 10 '// Aktuell sida objRs.AbsolutePage = clng(lng_absolute_page) '// Antal sidor lng_page_count = objRs.PageCount lng_row_count = 0 '// Loopa svaren Do Until objRs.Eof OR lng_row_count => objRs.PageSize lng_row_count = lng_row_count + 1 %>

<%response.write(NewText(objRs("rubrik")))%> <%response.write(FormatDateTime(objRs("datum"),2))%> <%response.write(NewText(objRs("textpm")))%>

<%bild = Server.MapPath(""&".\nyhetsbilder\"& objRs("nyhetsid") & "_" & objRs("rubrik") &".jpg") set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(bild) Then%> _<%=Server.HTMLEncode(objRs("rubrik"))%>.JPG&width=180" > <%else%>   <%end if bild = "" set fso = Nothing%>

<% objRs.Movenext Loop End If '// Stäng och frigör objRs objRs.Close Set objRs = Nothing Dim a '// Stäng och frigör objCon objCon.Close Set objCon = Nothing %>










Login