10 inlägg per sida

10 svar · 288 visningar · startad av ReloadMaster 14 aug. 2001

ReloadMasterMedlem sedan aug. 2001239 inlägg

Frågan14 aug. 2001 19:47#1

hur ska jag ändra denna kod så den bara visar 10 inlägg i taget...

<html>
<head>
<title>Gästbok - _ _ _ _ _ _.nu</title>
</head>
<body>

<a href="gastbok.asp?gor=skriv">Skriv</a> <a href="gastbok.asp?visa=alla">Alla inlägg</a>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("gbdb.mdb")

SQL = "SELECT * FROM gastbok ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)

If RecSet.EOF Then
%>

Inga meddelanden hittades.

<%
Else
Do Until RecSet.EOF
namn = RecSet("namn")
email = RecSet("email")
hemsida = RecSet("hemsida")
meddelande = RecSet("meddelande")
datum = RecSet("tid")
IP = RecSet("IP")

<hr>
Skrivet av: <% =namn%> IP: <% =IP%> 
E-mail: <a href="mailto:<% =email%>"><% =email%></a> 
Hemsida: <a href="http://<% =hemsida%>"><% =hemsida%></a> 
Datum: <% =datum%> 
Meddelande: <% =meddelande%>

RecSet.MoveNext

Loop

End If

RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>

<hr>

Snälla skriv in det i den här koden så jag kan förstå...

------------------
.................

emissionMedlem sedan dec. 19996 721 inlägg

14 aug. 2001 21:28#2

http://cgi.webforum.nu/wf/arkiv/asp_faq.html#paging

ReloadMasterMedlem sedan aug. 2001239 inlägg

15 aug. 2001 16:41#3

Jag har redan testat det men jag får det inte att funka med koden jag använder...

------------------
.................

cyprysMedlem sedan dec. 20003 563 inlägg

15 aug. 2001 18:52#4

Som sagt tidigare
Kanske för att jag känner mig så snäll idag. :e :e

<html>
<head>
<title>Gästbok - _ _ _ _ _ _.nu</title>
</head>
<body>

<a href="gastbok.asp?gor=skriv">Skriv</a> <a href="gastbok.asp?visa=alla">Alla inlägg</a><br>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("gbdb.mdb")
SQL = "SELECT * FROM gastbok ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)
arr = RecSet.getrows
Set RecSet = nothing
Connect.Close
Set Connect = Nothing

' ANTAL PER SIDA
	a = 5
	site = cint(request.querystring("site"))
	beginn = lbound(arr, 2)
	ending = ubound(arr, 2)
	
	sida = site * a
	start = 0 + sida
	slut = start + a-1
	
for i = start to slut
%>

<%
namn = RecSet("namn")
email = RecSet("email")
hemsida = RecSet("hemsida")
meddelande = RecSet("meddelande")
datum = RecSet("tid")
IP = RecSet("IP")
%>
<hr>
Skrivet av: <% =namn%>      IP: <% =IP%><br>
E-mail: <a href="mailto:<% =email%>"><% =email%></a><br>
Hemsida: <a href="http://<% =hemsida%>"><% =hemsida%></a><br>
Datum: <% =datum%><br>
Meddelande:<br> <% =meddelande%><br><br>

<%
next

if ending > a then
		sidor = INT(ending / a) + 1
		response.write "&#124; "
		for x = 1 to sidor
			response.write "<a href=gastbok.asp?site="&x-1&">" & x & "</a> &#124; "
		next
		if sidor = site--1 then
			response.write " Nästa &raquo;"
		else
			response.write " <a href=gastbok.asp?site="&site--1&">Nästa &raquo;</a><br><br>"
		end if
	end if
%>

<hr>

Har dock inte testat koden så säg till om något inte stämmer så fixar vi det. ;)

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.

ReloadMasterMedlem sedan aug. 2001239 inlägg

15 aug. 2001 18:59#5

Skrev av koden som du skrev ovan men fick detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a000d'

Inkompatibla typer: 'RecSet'

/asp/scripts/kgastbok/gastbok2.asp, rad 31

------------------
.................

ReloadMasterMedlem sedan aug. 2001239 inlägg

15 aug. 2001 19:19#6

Tänkt kaankse ändra lit i koden till:
<html>
<head>
<title>Gästbok - _ _ _ _ _ _.nu</title>
</head>
<body>
<a href="gastbok.asp?gor=skriv">Skriv</a> <a href="gastbok.asp?visa=alla">Alla inlägg</a> 
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("gbdb.mdb")
SQL = "SELECT * FROM gastbok ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)
arr = RecSet.getrows

' ANTAL PER SIDA
a = 5
site = cint(request.querystring("site"))
beginn = lbound(arr, 2)
ending = ubound(arr, 2)

sida = site * a
start = 0 + sida
slut = start + a-1

for i = start to slut

If RecSet.EOF Then
%>

Inga meddelanden hittades.

<%
Else
Do Until RecSet.EOF
namn = RecSet("namn")
email = RecSet("email")
hemsida = RecSet("hemsida")
meddelande = RecSet("meddelande")
datum = RecSet("tid")
IP = RecSet("IP")
%>
<hr>
Skrivet av: <% =namn%> IP: <% =IP%> 
E-mail: <a href="mailto:<% =email%>"><% =email%></a> 
Hemsida: <a href="http://<% =hemsida%>"><% =hemsida%></a> 
Datum: <% =datum%> 
Meddelande: <% =meddelande%> 
<%
next
if ending > a then
sidor = INT(ending / a) + 1
response.write "| "
for x = 1 to sidor
response.write "<a href=gastbok.asp?site="&x-1&">" & x & "</a> | "
next
if sidor = site--1 then
response.write " Nästa »"
else
response.write " <a href=gastbok.asp?site="&site--1&">Nästa »</a> "
end if
end if

RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = Nothing

%>
<hr>

Men då fick jag felmeddelandet oväntad "nex" på rad 49

------------------
.................

LinaMedlem sedan jan. 2001332 inlägg

16 aug. 2001 06:15#7

Hmmm....
Du måste kolla den koden....
Du har en Do until-loop som inte är avslutad... Den ska avslutas med Loop...
Där saknas också RecSet.movenext...

Dessutom har du nån oavslutad if-sats...

Sen är det lite lättare för oss andra att kolla felet om du berättar vad som finns på raden som felmeddelandet pekar på...
I ditt fall här rad 49

------------------
Du lever bara en gång och den gången är nu!

[Redigerat av Lina den 16 aug 2001]

jorgenMedlem sedan feb. 20012 412 inlägg

16 aug. 2001 06:54#8

Hej!

Använd PatrikB:s pagingscript som finns under wF-script. Fungerar kanon på både Chill!ASP och "vanlig" ASP.

Du hittar det här:
http://script.webforum.nu/wf/Forum1/HTML/000063.html

mvh Jörgen

------------------
*** Var går gränsen mellan långa kortbyxor och korta långbyxor? ***

cyprysMedlem sedan dec. 20003 563 inlägg

16 aug. 2001 08:30#9

Ehh. Jag vet inte hur det gick tillbaka till do until ?
Jag gjorde om det till en array istället och där behövs ingen movenext. En for-sats duger fint.

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.

ReloadMasterMedlem sedan aug. 2001239 inlägg

16 aug. 2001 08:35#10

Om jag använder mig av din så får jag felmeddelandet inkompitabla typer hur ändrar jag det då?

------------------
.................

cyprysMedlem sedan dec. 20003 563 inlägg

16 aug. 2001 08:37#11

Vilken rad är det i koden?

[r] Förlåt. Det här borde nog funka lite bättre i alla fall :r

<html>
<head>
<title>Gästbok - _ _ _ _ _ _.nu</title>
</head>
<body>
<a href="gastbok.asp?gor=skriv">Skriv</a> <a href="gastbok.asp?visa=alla">Alla inlägg</a><br>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("gbdb.mdb")
SQL = "SELECT namn, email, hemsida, meddelande, tid, IP FROM gastbok ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)
arr = RecSet.getrows
Set RecSet = nothing
Connect.Close
Set Connect = Nothing

' ANTAL PER SIDA
a = 5
site = cint(request.querystring("site"))
beginn = lbound(arr, 2)
ending = ubound(arr, 2)

sida = site * a
start = 0 + sida
slut = start + a-1

for i = start to slut
%>
<hr>
Skrivet av: <% =arr(0, i)%> IP: <% =arr(5, i)%><br>
E-mail: <a href="mailto:<% =arr(1, i)%>"><% =arr(1, i)%></a><br>
Hemsida: <a href="http://<% =arr(2, i)%>"><% =arr(2, i)%></a><br>
Datum: <% =arr(4, i)%><br>
Meddelande:<br> <% =arr(3, i)%><br><br>
<%
next

if ending > a then
sidor = INT(ending / a) + 1
response.write "&#0124; "
for x = 1 to sidor
response.write "<a href=gastbok.asp?site="&x-1&">" & x & "</a> &#0124; "
next
if sidor = site--1 then
response.write " Nästa »"
else
response.write " <a href=gastbok.asp?site="&site--1&">Nästa »</a><br><br>"
end if
end if
%>
<hr>

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.

[Redigerat av cyprys den 16 aug 2001]