%
LanguageParser.IncludeSection "profile"
%>
<%
'//Chek if user has logged in
If inside <> 1 and Request.QueryString("register") <> "new" and Request.Form("action") = "register" then
Response.Redirect "default.asp"
End if
Dim fso, folder, files, file, mname, mmail, mmsn, mlang, micq, mstyle, mplace, msign, mshowmail, mtitle, mreportnot, mautologgon, strUrl, mreggad, mtimezone
Function GetLatest(byval user)
dim arrLatest
'Start by checking the last post
strSQL = "SELECT aspbb_posts.pid, aspbb_posts.pforumid, aspbb_posts.pdatecreate, aspbb_posts.ptopicid, aspbb_topics.ttitle FROM (aspbb_posts INNER JOIN aspbb_members ON aspbb_posts.pmemberid=aspbb_members.mid) Inner Join aspbb_topics on aspbb_topics.tid = aspbb_posts.ptopicid WHERE aspbb_posts.pmemberid ={0} ORDER BY aspbb_posts.pdatecreate DESC"
objDAL.open arrLatest, strSQL, array(user)
Dim i
If not EOF(arrLatest) Then
For i = 0 to Ubound(arrLatest,2)
if accesssub(userid,arrLatest(1,i)) then
GetLatest = "
<% =langProfile %> <%=server.htmlencode(arrMember(0,0))%> |
<% =langName %>: |
<%=server.htmlencode(arrMember(1,0))%>
|
|
<% If isOnline(arrMember(6, 0)) then response.write " " Else response.write " " End if %>
|
<% =langAvatar %>: |
<%
if len(arrMember(2,0)) Then
Response.Write ""
End if
%>
|
<% =langRegistred %>: |
<%=uTimeStamp(arrMember(3,0))%> |
<% if arrMember(4,0) <> "" then%>
<% =langLocation %>: |
<%=server.htmlencode(arrMember(4,0))%> |
<%end if
if not arrMember(5,0) = 0 then %>
<% =langMail %>: |
<% Response.Write("") %> <%=server.htmlencode(arrMember(7,0))%> |
<% end if
if arrMember(8,0) <> "" then%>
MSN: |
<%=server.htmlencode(arrMember(8,0))%> |
<%end if
if arrMember(9,0) <> "" then%>
ICQ: |
<%=server.htmlencode(arrMember(9,0))%> |
<%end if
if arrMember(10,0) <> "" then%>
<% =langSignature %>: |
__________________ <%=ASPBBCode(arrMember(10,0),1)%> |
<%end if%>
<% =langTitle %>: |
<%=arrMember(11,0)%> |
<% =langWarnings %>: |
<%=arrMember(12,0)%> |
<% =langNoPosts %>: |
<%=PostByUser(arrMember(6,0))%> |
<% =langLatestPost %>: |
<%=GetLatest(arrMember(6,0))%> |