Läste faqen och gjorde ett recordset utefter förklaringarna där.
Problemet är nu att jag använder recordsetet på min förstasida till nyheter, ( visar 3 senaste nyheterna med möjlighet att klicka sig vidare till mer ). Men vill samtidigt visa 3 senaste sportresultaten med möjlighet att klicka sig vidare och se fler resultat.
Hur gör man så att när man klickar på "Sida 2" så att inte både Nyheterna och resultaten hoppar till sida 2?
Hoppas nån förstår och kan hjälpa =)
tack på förhand mvh emil
koden för nyheterna:
<%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If
mypagesize = 3
SQL = "Select * From Nyhet ORDER BY id DESC"
Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("sevenet.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
Response.write "Där fanns det ju inget... " & sok
Else
rstemp.movefirst
rstemp.pagesize = mypagesize
maxcount = Cint(rstemp.pagecount)
rstemp.absolutepage = mypage
howmanyrecs = 0
howmanyfields = rstemp.fields.count -1
Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
counter = counter + 1
Response.write "<tr bgcolor='" & e9e9e9 &"'><td ><b>" & RStemp("Rubrik") & "</td></tr>"
Response.write "<tr bgcolor='" & color & "'><td bgcolor=FFFFFF>" & RStemp("Av") & "</td></tr>"
Response.write "<tr bgcolor='" & color & "'><td>" & RStemp("Datum") & "</td></tr>"
Response.write "<tr bgcolor='" & color & "'><td bgcolor=FFFFFF>" & RStemp("Text") & "</td></tr>"
Response.write "<tr bgcolor='" & color & "'><td bgcolor=>" & RStemp("br") & "</td></tr>"
rstemp.movenext
howmanyrecs = howmanyrecs + 1
Loop
rstemp.close
Set rstemp = nothing
%>
<tr><td width="406"><hr></td></tr>
<tr><td width="406">
<%
If maxcount <> 0 then
response.write " Sida " & mypage & " av totalt " & maxcount & " sidor med nyheter. <br>" & sidor:
pad = "0"
scriptname = request.Servervariables("script_name")
for counter = 1 to maxcount
If counter >= 3 then
pad = ""
End If
ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
if counter mod 3 = 0 then
response.write "<br>"
End If
Next
End If
End If
%>