Alignment Query : first of all this is a topic related...

Wed, 23 Nov 2005 08:35:45 +0000

Author: Ali Bilgrami
Subject: 17319
Posted: 23 November 2005 at 8:35am

first of all this is a topic related to MODS you shud be posting this in the relative topic in which this mod was discussed originally AND in the relative MODS FORUM unless you had some other reason for making a new one.

ANYWAY

change this

If NOT rsTopPostersMod.EOF Then Response.Write("
")
Loop

to this

If NOT rsTopPostersMod.EOF Then Response.Write(":")
Loop

OR if you do not want a spacer

Loop

simply delete the IF statement above LOOP.

Alignment Query : Hi all, A real easy question...

Wed, 23 Nov 2005 04:12:44 +0000

Author: Shayneh
Subject: 17319
Posted: 23 November 2005 at 4:12am

Hi all,

A real easy question for you gurus out there but i cant seem to figure it out. I have Top posters code installed as below but it displays the top posters vertically when i need it to be displayed horizontally.

Example. It displays as below

Poster1 xx

Poster2 xx

Poster3 xx

Poster4 xx

Poster5 xx

I need it display as Poster1 xx, Poster2 xx, Poster3 xx, Poster4 xx, Poster5 xx

<%
Dim rsTopPostersMod
Dim strSQLTopPostersMod
Dim strTopPostersModCon
Dim adoTopPostersModCon
Dim strTopPosterUsername
Dim strTopPostersModForumPath
'The path to the forum
strTopPostersModForumPath = " "
'Database connection
'-----------------------------
'-----------------------------
'Default connection
strTopPostersModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/database/wwforum.mdb")
'Uncomment for a full phsyical path. Then change the path
'strTopPostersModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:/yoursite/root/forum/admin/database/"
'Uncomment for a DSN connection
'strTopPostersModCon = "DSN=DSN_NAME"
'-----------------------------
'-----------------------------
Set adoTopPostersModCon = Server.CreateObject("ADODB.Connection")
adoTopPostersModCon.Open strTopPostersModCon
Set rsTopPostersMod = Server.CreateObject("ADODB.Recordset")
strSQLTopPostersMod = "SELECT TOP 5 tblAuthor.Author_ID, tblAuthor.Username, tblAuthor.No_of_posts FROM tblAuthor "
strSQLTopPostersMod = strSQLTopPostersMod & "ORDER BY tblAuthor.No_of_posts DESC;"
rsTopPostersMod.Open strSQLTopPostersMod, adoTopPostersModCon
Do WHILE NOT rsTopPostersMod.EOF
If len(rsTopPostersMod("Username"))>18 then
strTopPosterUsername = left(rsTopPostersMod("Username"),18)
Else
strTopPosterUsername = rsTopPostersMod("Username")
End If
Response.Write("" & strTopPosterUsername & " (" & rsTopPostersMod("No_of_posts") & ")")
rsTopPostersMod.MoveNext
If NOT rsTopPostersMod.EOF Then Response.Write("
")
Loop
rsTopPostersMod.Close
Set rsTopPostersMod = Nothing
adoTopPostersModCon.Close
Set adoTopPostersModCon = Nothing
%>

Appreciate the help!

Web Wiz Support and Community Forums : Alignment Query

Alignment Query : first of all this is a topic related...

Alignment Query : Hi all, A real easy question...