<!--#INCLUDE file="conection_rec.inc" -->
<%
Session.LCID = 1053
Page_Size = 4
If Request("Page") = "" Then
Current_Page = 1
Else
Current_Page = CInt(Request("Page"))
End If
Set RecSet=Server.CreateObject("ADODB.RecordSet")
RecSet.CursorLocation = 3
RecSet.PageSize = Page_Size
SQL = "Select * From nyheter ORDER BY adat DESC"
RecSet.Open SQL, Connect, 3, 1, &H0001
Page_Count = RecSet.PageCount
If 1 > Current_Page Then Current_Page = 1
If Current_Page > Page_Count Then Current_Page = Page_Count
RecSet.AbsolutePage = Current_Page
Do While RecSet.AbsolutePage = Current_Page And Not RecSet.EOF
%>
<table width="591" border="0" cellspacing="0" cellpadding="0" height="19">
<tr>
<td width="1"> </td>
<td width="5" background="bilder/baksubject-ljus.gif"> </td>
<td width="460" background="bilder/baksubject-ljus.gif" class="Rubrik"><a href="default.asp?page=<%=request.querystring("page")%>&nyhet=visa&rID=<%=recset("ID")%>"><%=recset("subject")%></a> </td>
<td width="120" background="bilder/baksubject-ljus.gif" class="Rubrik">
<div align="right"><%=recset("adat")%></div>
</td>
</tr>
</table>
<%
RecSet.MoveNext
Loop
antal = recset.recordcount
page_count = (antal-1)/page_size + 1
recset.close
set recset = nothing
connect.close
set connect = nothing
%>
vill ha in så att varannan rad blir färgade med bilder/baksubject-mork.gif
har gjort detta förrut men då utan recset och jag vet inte hur jag får till detta nu :(
antal = "0"
set Rs = Databas.execute(sql)
Do Until Rs.EOF
antal = antal +1
counter = counter + 1
If counter Mod 2 = 0 then
color = "bilder/bak.gif"
Else
color = "bilder/main.gif"
End If
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="<%=color%>">
<tr>
<td width="13%" background="<%=color%>"><%=Rs("adat")%></td>
<td width="23%" background="<%=color%>"><a href="<%=Rs("lank")%>" target="_new"><%=FixSpace(Rs("href"))%></a></td>
<td width="53%" background="<%=color%>"><%=Rs("info")%></td>
Någon som vill hjälpa mig att få till den översta koden så att även bakgrunderna byts där...
