<% 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 = "
" & uTimeStamp(arrLatest(2,i)) & " "& arrLatest(4,i) &"
" Dim LatestDate LatestDate = arrLatest(2,i) exit for End if Next End if 'Check last topic and replace last post if this is newer strSQL = "SELECT aspbb_topics.tdatecreate, aspbb_topics.tid, aspbb_topics.ttitle, aspbb_topics.tforumid FROM aspbb_topics INNER JOIN aspbb_members ON aspbb_topics.tmemberid=aspbb_members.mid WHERE aspbb_topics.tmemberid ={0} ORDER BY aspbb_topics.tdatecreate DESC" objDAL.open arrLatest, strSQL, array(user) If not EOF(arrLatest) then For i = 0 to Ubound(arrLatest,2) if accesssub(userid,arrLatest(3,i)) then 'if this topic is newer than the newest post set GetLatest to this one instead if arrLatest(0,i) > LatestDate then GetLatest = "
" & uTimeStamp(arrLatest(0,i)) & " "& arrLatest(2,i) &"
" exit for end if End if Next End if End Function If request.QueryString("register")="new" then%>
<% =langRegistration %>
<% =langUserName %>: <% =langUserNameInfo %>
<% =langPWD%>: <% =langPWDInfo %>

<% =langPWD2nd%>:
<% =langName %>: <% =langNameInfo %>:
<% =langMail %>: <% =langMailInfo%>.
<% =langTheme %>:  
<% =langICQ %>: <% =langICQInfo %>
<% =langMSN %>: <% =langMSNInfo %>
<% =langSignature %>: <% =langSignatureInfo %>
<% =langSettings %>: <% =langShowMail %>:


<% =langSavePWD %>:
<% =langYN %>

<% =langTimeZone %>:


<% =langShowImagesInSignature %>:
<% =langOption %>:
<% elseif request.querystring("PROFILE_ID") <> "" then Dim arrMember strSQL = "Select muser, mname, mavatar, mreggad, mplace, mshowmail, mid, mmail, mmsn, micq, msign, mtitle, mwarnings from aspbb_members where mid ={0}" objDAL.open arrMember, strSQL, array(request.querystring("PROFILE_ID")) %> <% if arrMember(4,0) <> "" then%> <%end if if not arrMember(5,0) = 0 then %> <% end if if arrMember(8,0) <> "" then%> <%end if if arrMember(9,0) <> "" then%> <%end if if arrMember(10,0) <> "" then%> <%end if%>
<% =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))%>
<% =langLocation %>: <%=server.htmlencode(arrMember(4,0))%>
<% =langMail %>: <% Response.Write("
") %>  <%=server.htmlencode(arrMember(7,0))%>
MSN: <%=server.htmlencode(arrMember(8,0))%>
ICQ: <%=server.htmlencode(arrMember(9,0))%>
<% =langSignature %>: __________________
<%=ASPBBCode(arrMember(10,0),1)%>
<% =langTitle %>: <%=arrMember(11,0)%>
<% =langWarnings %>: <%=arrMember(12,0)%>
<% =langNoPosts %>: <%=PostByUser(arrMember(6,0))%>
<% =langLatestPost %>: <%=GetLatest(arrMember(6,0))%>

<%If isAdmin(userid) then%> <% =langEdit %> - <% =langWarnBan %> <%End if%>
<% =langSendPM %>


<% elseif request.querystring("edit")="profile" then if inside = 1 then Dim arrEdit strSQL = "Select muser, mname, mavatar, mreggad, mplace, mshowmail, mid, mmail, mmsn, micq, msign, mtitle, mwarnings, mstyle, mlanguage, mautologgon, mreportnot,mtimezone, mimgsigns from aspbb_members where mid ={0}" If Request.QueryString("mid") <> "" and isadmin(userid) then objDAL.Open arrEdit, strSQL, array(Request.QueryString("mid")) Else objDAL.Open arrEdit, strSQL, array(userid) End if if EOF(arrEdit) then response.write LangaugeParser.GetKey("errors", "ErrorGeneral") & "
" & LangaugeParser.GetKey("errors", "NotLoggedIn") else%> " method="post"> <%If isadmin(userid) then%> <%End if%> <%If (isadmin(userid) or isModerator(userid) <> "0") and (Request.QueryString("mid") = Cstr(userid) or Request.QueryString("mid") = "") then%> <%End if%>
<% =langChangeProfile %> <%=server.htmlencode(arrEdit(0,0))%>
<% =langName %>:  
<% =langTheme %>:
<% =langLanguage %>:
<% =langLocation %>:
<% =langMail %>:
<% =langMSN %>:
<% =langICQ %>:
<% =langSignature %>: __________________
<%= langTitle %>
<% =langSettings %>: <% =langShowMail %>:


<% =langSavePWD %>:


<% =langTimeZone %>:
<% '//MySQL Access fix dim timezone timezone = cdbl(replace(arrEdit(17,0), "." ,"")) timezone = cdbl(replace(timezone, "," ,"")) %>

<% =langShowImagesInSignature %>:

<% =langModeratorSettings %> <% =langModeratorReport %>:
<% =langOption %>:

">
<% =langUpdatePwd %>
<% =langNewPwd %>:
<% =langRepeatPwd %>:
<% =langOldPwd %>:
<% =langOption %>: <% =langForgotPWD %>

<% if len(arrEdit(2,0)) <> 0 then %> <% End if %>
<% =langAvatarUpload %>
<% =langAvatarChoose %>: <% =langAvatarMaxSize %> <% =avatarsize %> bytes.

<% =langAvatarCurrent %>:
<% End if else response.write LanguageParser.GetKey("errors", "ErrorGeneral") end if elseif request.querystring("action")="edit" then mname = request.form("name") mmail = request.form("mail") mmsn = request.form("msn") micq = request.form("icq") mstyle = request.form("theme") mplace = request.form("place") msign = request.form("sign") mshowmail = request.form("visamail") mtitle = Request.Form("title") mreportnot = Request.Form("mailnot") mlang = Request.Form("lang") mtimezone = Request.Form("mtimezone") mimgsigns = Request.Form("mimgsigns") if request.form("mautologgon") = "" then mautologgon = 0 else mautologgon = request.form("mautologgon") end if strSQL = "Update aspbb_members set mname ={0}, mmail ={1}, mmsn ={2}, mshowmail ={7}, micq ={3}, mplace = {5}, mstyle ={4}, msign ={6}, mautologgon ={11}, mlanguage ={10}, mtimezone={14}, mimgsigns={15}" If (isadmin(userid) or isModerator(userid) <> "0") and (Request.QueryString("mid") = Cstr(userid) or Request.QueryString("mid") = "") then strSQL = strSQL & ", mreportnot = {9}" End if If isadmin(userid) then strSQL = strSQL & ", mtitle ={8}" End if If isadmin(userid) and Request.QueryString("mid") <> "" then strSQL = strSQL & " where mid ={12}" strUrl = "profile.asp?edit=profile&mid="& Request.QueryString("mid") &"" Else strSQL = strSQL & " where mid ={13}" strUrl = "profile.asp?edit=profile" End if objDAL.Execute strSQL, array(mname, mmail, mmsn, micq, mstyle, mplace, msign, mshowmail,mtitle,mreportnot,mlang,mautologgon,Request("mid"),userid,mtimezone,mimgsigns) Response.Redirect(strUrl) elseif request.querystring("action")="register" then mname = request.form("mname1") & " " & request.form("mname2") mmail = request.form("mmail") mshowmail = request.form("mshowmail") if request.form("mmsn") <> "" then mmsn = request.form("mmsn") end if micq = request.form("micq") muser = request.form("muser") mpass = request.form("mpass") '//Just incase the javascript validation of the form has'nt stopped invaild forms. if mname = "" or mmail = "" or muser="" or mpass="" or len(mname) < 2 or len(mname) > 30 or len(mpass) < 2 or len(mpass) > 30 then Response.Write "" Response.end end if if request.form("mplace") <> "" then mplace = request.form("mplace") end if if request.form("msign") <> "" then msign = request.form("msign") end if mstyle = request.form("theme") mautologgon = request.form("mautologgon") mreggad = cTimeStamp(now()) mtimezone = request.form("mtimezone") mimgsigns = Request.Form("mimgsigns") strSQL = "select count(*) as intResult from aspbb_members where muser ={0}" if cint(objDAL.GetValue(strSQL, array(muser))) = 0 and muser <> "" then strSQL = "Select Count(*) from aspbb_members where mmail = {0}" if cint(objDAL.GetValue(strSQL, array(mmail))) = 0 and mmail <> "" Then if not requireactivation then strSQL = "Insert into aspbb_members (mname,mmail,mshowmail,mmsn,micq,muser,mpass,mplace,msign,mreggad,mstyle,mautologgon,mlanguage,mtitle,mtimezone,mimgsigns)" & _ " values({0},{1},{2},{3},{4},{5},{6},{7},{8},{9},{10},{11},{12},{13},{14},{15})" objDAL.Execute strSQL, array(mname,mmail,mshowmail,mmsn,micq,muser,sha256(mpass),mplace,msign,mreggad,mstyle,mautologgon,defaultLang,defaultUserTitle,mtimezone,mimgsigns) If aspbbEmail(strReplyAdress, strSenderName, mmail, mname, langRegistrationHeader, langRegistrationBody & vbcrlf & langUserName & ": " & muser & vbcrlf & langPWD & ": " & mpass) = true then response.write langMailRegSent End if Else dim strCode, intID strCode = GenerateNewPassword(10) strSQL = "Insert into aspbb_members (mname,mmail,mshowmail,mmsn,micq,muser,mtmppass,mplace,msign,mreggad,mstyle,mautologgon,mlanguage,mtitle,mtimezone, mactivatecode,mimgsigns)" & _ " values({0},{1},{2},{3},{4},{5},{6},{7},{8},{9},{10},{11},{12},{13},{14},{15},{16})" objDAL.Execute strSQL, array(mname,mmail,mshowmail,mmsn,micq,muser,sha256(mpass),mplace,msign,mreggad,mstyle,mautologgon,defaultLang,defaultUserTitle,mtimezone,strCode,mimgsigns) intID = objDAL.GetValue("Select @@IDENTITY",empty) If aspbbEmail(strReplyAdress, strSenderName, mmail, mname, langRegistrationHeader, langRegistrationBody & vbcrlf & langUserName & ": " & muser & vbcrlf & langPWD & ": " & mpass & vbcrlf & langActivateAccount & " " & strForumAddress &"/request_password.asp?action=activate&ac=" & strCode & "&uid=" & intID) then response.write langNeedActivation End if end if else Response.Write langEmailUsed End if else response.write langNameAlreadyExists end if elseif Request.QueryString("action") = "updatepass" then dim intEditId If isadmin(userid) and Request.QueryString("mid") <> "" then intEditId = Request.QueryString("mid") strUrl = "profile.asp?edit=profile&mid="& Request.QueryString("mid") &"" Else intEditId = userId strUrl = "profile.asp?edit=profile" End if dim oldPass oldPass = objDAL.GetValue("Select mpass from aspbb_members where mid ={0}", array(intEditID)) if oldPass = sha256(Request.Form("oldpass")) and Request.Form("pass") = Request.Form("pass") then objDAL.Execute "Update aspbb_members set mpass ={0} where mid ={1}", array(sha256(Request.Form("pass")), intEditID) Session("userPass") = sha256(chkstring(Request.Form("pass"), 0)) if request.cookies("forum")("userPass") <> "" then response.cookies("forum")("userPass") = sha256(chkstring(Request.Form("pass"), 0)) End if objDAL.Disconnect Response.Redirect(strUrl) Else Response.Write LanguageParser.GetKey("errors", "PwdError") End if else response.write LanguageParser.GetKey("errors", "ErrorGeneral") end if%>