Begränsa antalet rader

5 svar · 197 visningar · startad av Karamell 8 dec. 2002

KaramellMedlem sedan juni 200199 inlägg

Frågan8 dec. 2002 02:26#1

Jag har ett skript som kollar i mitt forum efter senaste trådarna. På mainsidan visas detta skript, vill dock inte se alla trådar utan bara de fem första.

Såhär ser skriptet ut:

\<%

Dim rsLastestPosts
Dim strPosts
Dim adoCon
Dim strCon
Dim strSQL

'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Database connection info and driver
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=; DBQ=" & Server.MapPath("forum\admin\wwForum.mdb")

'Set an active connection to the Connection object
adoCon.Open strCon

Set rsLastestPosts = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT Top 6 tblTopic.*, tblForum.* "
strSQL = strSQL & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID "
strSQL = strSQL & "WHERE ((tblForum.Password) Is Null) "
strSQL = strSQL & "ORDER BY tblTopic.Last_entry_date DESC;"

rsLastestPosts.Open strSQL, strCon

If rsLastestPosts.EOF Then Response.Write "<span class=""smltext"">No Forum Posts Made</span>"

Do while NOT rsLastestPosts.EOF

If len(rsLastestPosts("Subject"))>25 then
strPosts = left(rsLastestPosts("Subject"),3) & "... "
Else
strPosts = rsLastestPosts("Subject")
End If

crisse6Medlem sedan dec. 20002 526 inlägg

8 dec. 2002 05:08#2

vilken sql ska gora det da?

EitrazMedlem sedan sep. 2002366 inlägg

8 dec. 2002 07:58#3

Såhär du menar?

n=0
Do while NOT rsLastestPosts.EOF And n < 5

If len(rsLastestPosts("Subject"))>25 then 
strPosts = left(rsLastestPosts("Subject"),3) & "... " 
Else 
strPosts = rsLastestPosts("Subject") 
End If

n = n + 1
rsLastestPosts.MoveNext
Loop

-Eitraz

SilvioFMedlem sedan juni 2000547 inlägg

8 dec. 2002 08:16#4

Re: Begränsa antalet rader

Karamell skrev:

vill dock inte se alla trådar utan bara de fem första.

strSQL = "SELECT Top 6 tblTopic.*, tblForum.* "
strSQL = strSQL & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID "
strSQL = strSQL & "WHERE ((tblForum.Password) Is Null) "
strSQL = strSQL & "ORDER BY tblTopic.Last_entry_date DESC;"

Eeh... Det är ju bara att ändra Top 6 till Top 5 om du bara vill se de fem översta inläggen. :OO

EitrazMedlem sedan sep. 2002366 inlägg

8 dec. 2002 08:25#5

Hoho, missade det :)

Men han såg Alla sa han innan.. kanske bara hade 6 st poster i databasen iofs..

-Eitraz

KaramellMedlem sedan juni 200199 inlägg

8 dec. 2002 11:39#6

tack för hjälpen, asså var ybertrött igår missade den där strängen...