behöver hjälp med paging! jag har kollat i script arkivet hittade några paging med länkarna till scriptet fungerade inte =/ varken Palles eller PatrikB's ocksen sökte jag lite allmänt på WF å hittade massor om paging men det verkade lite halv avancerade! förstod inte mycket utav dem koderna!
Feltyp:
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/mc/gb_show.asp, line 20
Får jag när jag kör denna kod! rad 20 är fetmarkerad!
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/gb.mdb")&";"
SQL = "SELECT * From gb ORDER BY datum DESC"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Connect, 1, 3
[b]RS.PageSize = 10[/b]
X=0
If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
intPage = 1
Else
intPage = CInt(Request.QueryString("page"))
End If
RS.AbsolutePage = intPage
DO UNTIL RS.EOF OR X = RS.PageSize
nummer = nummer + 1
If nummer Mod 2 = 0 Then
farg = "#E6E7DD"
Else
farg = "#F4F5EB"
End If
namn = RS("namn")
datum = RS("datum")
icon = RS("icon")
mess = RS("mess")
svar = RS("svar")
%>
<tr>
<td width="20" bgcolor="<%=farg%>"><div align="center"><img src="bilder/icon/<%=icon%>.gif" alt=""></div></td>
<td width="361" bgcolor="<%=farg%>"> <b><%=Server.HTMLEncode(namn)%></b></td>
<td width="137" bgcolor="<%=farg%>"><div align="center"><b><%=datum%></b></div></td>
</tr>
<tr>
<td colspan="3" bgcolor="<%=farg%>"><%=Server.HTMLEncode(mess)%><%if svar <> "" then%>
<BR><b>Mani svarar: <%=svar%></b><%end if%></td>
</tr>
<%
X=X+1
RS.MOVENEXT
LOOP
If RS.PageCount > 1 Then
For i = 1 To RS.PageCount
If i <> intPage Then
Response.Write("<a href=""?page=" & i & """>" & i & "</a> ")
Else
Response.Write("[" & i & "] ")
End If
Next
End If
RS.CLOSE
Conn.CLOSE
Set RS = nothing
Set Conn = nothing
%>
Jag tror inte på att det är rätt rad du markerat. Jag tror att den rad felmeddelandet pekar på är den ovanför. Du har nämligen angett fel namn på connection-objektet på den raden.
Tackar Tackar! nu får jag inte något fel medelande! men däremot! På sida nummer 2 så visas ingenting! och på sidan 1 visas 10 poster och i databsen finns 15 postar! dvs 5 poster som skall visas på sida 2 är spårlöst försvunna :OO
EDIT:
Ähh glöm det! jag kom på att jag måste ändra lite frågaor i wuerystringen :r
Efter lite modifieringar i Paging scriptet har det slutat att fungera! :o jag får inga felmedelanden det bara helt enkelt inte fungerar! det som är fetmarkerat är den biten som inte gör något fast den skall skriva ut nästa sida osv osv! vet inte vad felet kan vara då jag inte har ändrat något som har med pagingen att göra! =7
<%
vems = request.querystring("user")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databaser/gastbok.mdb")&";"
SQL = "SELECT * From gastbok WHERE to = '"&vems&"' ORDER BY datum DESC"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn, 1, 3
RS.PageSize = 10
X=0
If Request.QueryString("side") = "" OR NOT IsNumeric(Request.QueryString("side")) Then
intPage = 1
Else
intPage = CInt(Request.QueryString("side"))
End If
RS.AbsolutePage = intPage
DO UNTIL RS.EOF OR X = RS.PageSize
nummer = nummer + 1
If nummer Mod 2 = 0 Then
farg = "#E6E7DD"
Else
farg = "#F4F5EB"
End If
from = RS("from")
vems = RS("to")
mess = RS("mess")
hemligt = RS("hemligt")
datum = RS("datum")
%>
<tr>
<td width="110" rowspan="2" bgcolor="<%=farg%>">Bild</td>
<td width="325" bgcolor="<%=farg%>"><%=from%></td>
<td width="100" bgcolor="<%=farg%>"><%=datum%></td>
</tr>
<%If hemligt = "ja" AND (vems = session("uname") OR from = session("uname") OR session("sort") = "admin") then%>
<tr>
<td colspan="2" bgcolor="<%=farg%>"><%=mess%></td>
</tr>
<%elseif hemligt = "nej" then%>
<tr>
<td colspan="2" bgcolor="<%=farg%>"><%=mess%></td>
</tr>
<%else%>
<tr>
<td colspan="2" bgcolor="<%=farg%>">hemligt</td>
</tr>
<%end if%>
<tr>
<td colspan="3" bgcolor="#FFFFFF" height="1"></td>
</tr>
<%
X=X+1
RS.MOVENEXT
LOOP
%>
<tr bgcolor="#CCCCCC">
<td colspan="3">
[b][i]
<%
If RS.PageCount > 1 Then
For i = 1 To RS.PageCount
If i <> intPage Then
response.write ("<a href=""?page=gastboken&side=" & i & """>" & i & "</a>, ")
Else
response.write ("<b>[" & i & "]</b>, ")
End If
Next
End If
%>
[/i][/b]
</td>
</tr>
Prova att, i anslutning till den fetmarkerade kodbiten, skriva ut variablernas värden.
Kommer du in i if-satsen överhuvudtaget?
hur skall jag skriva ut variablernas värde?
och hur vet jag om jag kommer in i IF satsen!? uppenbarligen inte eftersom den skall visa [1] om det bara är en enda sida..
<%
Response.write "PageCount: " & RS.PageCount & "<br>"
Response.write "intPage: " & intPage & "<br>"
If RS.PageCount > 1 Then
Response.write "Nog fasen är vi här inne! :D"
End If
%>
Edit:
uppenbarligen inte eftersom den skall visa [1] om det bara är en enda sida..
Är det bara en enda sida? Då förstår jag att det inte fungerar.
<%
Response.write "PageCount: " & RS.PageCount & "<br>"
Response.write "intPage: " & intPage & "<br>"
If RS.PageCount > 1 Then
Response.write "Nog fasen är vi här inne! :D"
End If
%>
Edit:
uppenbarligen inte eftersom den skall visa [1] om det bara är en enda sida..
Är det bara en enda sida? Då förstår jag att det inte fungerar.
Mvh
jag får fram detta då
PageCount: 1
intPage: 1
dessvärre kommer inte
"Nog fasiken är vi här inne! :D"
EDIT: Jasså @nders, då fåru dela med dig av hemligheten :P
Om det bara är en enda sida får du hantera det i ELSE. Som det är nu skriver du endast ut sidnummer om det är mer än en sida.
<%
If RS.PageCount > 1 Then
For i = 1 To RS.PageCount
If i <> intPage Then
response.write ("<a href=""?page=gastboken&side=" & i & """>" & i & "</a>, ")
Else
response.write ("<b>[" & i & "]</b>, ")
End If
Next
[b]Else
response.write ("<b>[1]</b>")[/b]
End If
%>
