son üyeler

[rhan]

rhan.somee.com adresinde maxwebportal ile site yapıyorum
üyeler sayfasını son kullanıcılar ve online kullanıcılar ile birleştirmeye çalıştım.
tek kişi online iken sorun olmuyor. fakat birden fazla üye online ise tüm online üyeleri yan yana ( alt alta değil) sırlıyor. bunu nasıl çözebilirim.
yerdımlarınız için teşekkürler.

Kod: [Seç]

'## Harpswell, ME 04079
'#################################################################################
<%
dim intLastSeen
intLastSeen = 10
%>

<%
mwpThemeTableCustomCode = "width=""100%"""
mwpThemeTitle= "ÜYELER - SON 10 ÜYE"
mwpThemeBlock_open()%>

<tr><td bgcolor="<% =strForumCellColor %>" width="100%"><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize%>"><a href="members.asp">Toplam Üye</a>: <% =Users%></font></td></tr>
<% End If %>
<tr><td bgcolor="<% =strForumCellColor %>" width="100%"><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize -1%>"><%=strOnlineMembersCount%><a href="active_users.asp"> Üye  </a> ve <%=strOnlineGuestsCount%> Misafir</font></font></td></tr>
<tr><td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="38%" height="1">
      <tr>
        <td width="100%" height="1"> <tr>
<td bgcolor="<% =strForumCellColor %>" valign="middle" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">
<%
        mypage = request("whichpage")

If  mypage = "" then
   mypage = 1
end if

mypagesize = request.cookies(strCookieURL & "paging")("pagesize")

If  mypagesize = "" then
   mypagesize = 15
end if

set rs = Server.CreateObject("ADODB.Recordset")
'## Forum_SQL
strSql ="SELECT " & strTablePrefix & "ONLINE.UserID, " & strTablePrefix & "ONLINE.M_BROWSE, " & strTablePrefix & "ONLINE.DateCreated "
strSql = strSql & " FROM " & strMemberTablePrefix & "ONLINE "
strSql = strSql & " ORDER BY " & strTablePrefix & "ONLINE.DateCreated DESC"

rs.cachesize = 20
rs.open  strSql, my_Conn, 3

i = 0

If rs.EOF or rs.BOF then  '## No categories found in DB
Response.Write ""
Else

rs.movefirst
num = 0
rs.pagesize = mypagesize
maxpages = cint(rs.pagecount)
maxrecs = cint(rs.pagesize)
rs.absolutepage = mypage
howmanyrecs = 0
rec = 1
do until rs.EOF or (rec = mypagesize+1)
if Right(rs("UserID"), 5) <> "Guest" then
strSql = "SELECT "   & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME,  " & strTablePrefix & "ONLINE.UserID "
strSql = strSql & " FROM " & strTablePrefix & "MEMBERS, " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & rs("UserID") & "' "
set rsMember =  my_Conn.Execute (strSql)
end if

if Right(rs("UserID"), 5) <> "Guest" then

Response.Write("<a href='pop_profile.asp?mode=display&id=" & rsMember("MEMBER_ID") & "')"">")
Response.Write(rs("UserID") & "")
Response.Write("<a href='pm_pop_send.asp?Mdest=" & rs("UserID") & "&method=Topic')"">")
Response.Write("<img src=images/icons/pm.gif border=0 width=11 height=17 align=absmiddle hspace=6>" & "")
                  Response.Write("<img src=images/icon_online.gif border=0 width=42 height=16 align=absmiddle hspace=6>" & "</a>")

end if
rs.MoveNext
rec = rec + 1
loop
 %>
</font>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>">
<% = %><% if Guests=1 then %><% else %></font></p>
<p>
<% end if
end if %>
</td>
</tr>
<tr>
<font face="<% =strDefaultFontFace %>" size="2" color="<% =strDefaultFontColor %>">
</font></p>
        </td>
      </tr>
    </table>
<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1
scrollDelay=60 direction=up width=150 height=100>
<table border="0" cellpadding="0" cellspacing="0" width="100" >
<%
function DisplayLastSeen()
dim rs
set rs = server.CreateObject("adodb.recordset")
strSql = "SELECT TOP " & intLastSeen & " MEMBER_ID, M_NAME, M_DATE FROM " & strMemberTablePrefix & "MEMBERS ORDER BY M_DATE DESC"
rs.Open strSql, my_Conn
%>
<%
intCounter = 1
do while not rs.EOF%>
<tr>
<td align="left" class=menuitem ><a href="pop_profile.asp?mode=display&id=<%=rs("MEMBER_ID")%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize -1%>" color="<% =strDefaultFontColor %>"><%= rs("M_NAME")%></a></font></td>
<td align="left" class=menuitem >
<%
'############### online
strSql ="SELECT " & strTablePrefix & "ONLINE.UserID "
strSql = strSql & " FROM " & strTablePrefix & "ONLINE "
strSql = strSql & " WHERE " & strTablePrefix & "ONLINE.UserID = '" & rs("M_NAME") & "' AND CheckedIn <> ''"

set rsOnline = Server.CreateObject("ADODB.Recordset")
rsOnline.open strSql, my_Conn, 3
if rsOnline.EOF or rsOnline.BOF then
Response.Write("<img src=images/icons/pm.gif border=0 width=11 height=17 align=absmiddle hspace=6>" & "</a>")
strOnlineIconLnk = "<a href=""active_users.asp"" title=""Offline"" " & rs("M_NAME") & " is OFFLINE""><img src=""images/icon_offline.gif"" border=""0"" align=""absmiddle""></a>"
elseif lcase(rsOnline("UserID")) = lcase(rs("M_NAME")) then
strOnlineIconLnk = "<a href=""active_users.asp"" title=""Online"" " & rs("M_NAME") & " is ONLINE""><img src=""images/icon_online.gif"" border=""0"" align=""absmiddle""></a>"
else
strOnlineIconLnk = "<a href=""active_users.asp"" title=""Offline"" " & rs("M_NAME") & " is OFFLINE""><img src=""images/icon_offline.gif"" border=""0"" align=""absmiddle""></a>"
end if
rsOnline.close
Set rsOnline = Nothing
'#########################################################
Response.write strOnlineIconLnk
%>
</td>
</tr>
<%
intCounter = intCounter + 1
rs.movenext
loop
rs.Close
%>
<%End Function%>
<div align="center">
<center>
<p></p>
</center>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="100%" id="AutoNumber1">
<tr>
<td width="100%" align="center"><%=displayLastSeen%></td>
</tr>
</table>

</tr></td>


</MARQUEE>
<%mwpThemeBlock_close()%>




[burajan]

Kodları incelemedim ancak üye isimlerinin yazıldığı kısmı bul. Eğer yan yana sıralanıyorsa üye isimlerinin yazıldığı kodu yukarıdaki dosyadan bul onların sonuna

Kod: [Seç]

<br> satır atlama kodu ekle.

[rhan]

 ekledim hata verdi

if Right(rs("UserID"), 5) <> "Guest" then
         
            Response.Write("<a href='pop_profile.asp?mode=display&id=" & rsMember("MEMBER_ID") & "')"">")
            Response.Write(rs("UserID") & "")
            Response.Write("<a href='pm_pop_send.asp?Mdest=" & rs("UserID") & "&method=Topic')"">")
            Response.Write("<img src=images/icons/pm.gif border=0 width=11 height=17 align=absmiddle hspace=6>" & "")
                        Response.Write("<img src=images/icon_online.gif border=0 width=42 height=16 align=absmiddle hspace=6>" & "[/url]")
   
         end if
         rs.MoveNext
         rec = rec + 1
      loop


burda bi yere yazmam lazım sanırım, aşağıdaki gibi yazınca
              end if


         rs.MoveNext
         rec = rec + 1

Microsoft VBScript compilation  error '800a0400'
Expected statement
/xsonuye.asp, line 72


^ hatası veriyor

[burajan]

Arkadaşım kodlarda zaten normalde hata var. Mesela Toplam üyenin altında end if kodu eklenmiş. Ancak dosyada if olmadığı için end if koyulmaz. Yanlış bir kodlama var. Onu iyi incelemek gerekir.

[rhan]

kodlar siteden alınma kodlar sorunsuz çalışıyor
deneme yanılma ile çözdüm, teşekkür ederim.

Response.Write("<img src=images/icon_online.gif border=0 width=42 height=16 align=absmiddle hspace=6>" & "[/url]
")
         end if

burada
 eklenecek yer orası