Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Avatar add on (avatar log-out)		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

hollowman
Starting Member

Denmark
38 Posts
Posted - 05 February 2004 :  01:39:30  Show Profile  Visit hollowman's Homepage
Follow up from

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=49575&SearchTerms=avatar

Hi
i have a danish forum
My "You are logged on as" or in danish "Du er logget på som" is gone after the install why??

this is my code before install:

if strAuthType = "db" then %>
<% =fLangN(strLangInc_Header00200, "<b>" & profileLink(ChkString(strDBNTUserName, "display"),MemberID) & "</b>") %>
<% Response.Write "</font></td>" & vbNewLine & _
" <td> "
if strGfxButtons = "1" then
Response.Write "<input src=" & strImageUrl & "Lang" & strLangLCID & "button_logout.gif type=""image"" border=""0"" value=""Logout"" id=""submit1"" name=""Logout"" tabindex=""-1"">"
else
Response.Write "<input class=bouton type=""submit"" value=""" & fLang(strLangInc_Header00210) & """ id=""submit1"" name=""submit1"" tabindex=""-1"">"
end if
end if

now how do i mix that whit this:

if strAuthType = "db" then
Response.Write "<b>" & ChkString(strDBNTUserName, "display") & "</b></font></td>" & vbNewLine & _
" <td align=""center"">"
strSqL = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " Where " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"

set rs = my_Conn.Execute (strSql)

if strGfxButtons = "1" and chkString(rs("M_AVATAR_URL"),"sqlString") <> "noavatar.gif" then
Response.Write "<input src=""" & chkString(rs("M_AVATAR_URL"),"display") & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ type=""image"" border=""0"" value=""Logout"" id=""submit1"" name=""Logout"" tabindex=""-1""><br />" & vbNewLine & _
"<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>log-out</font><br />"
elseif strGfxButtons = "1" and chkString(rs("M_AVATAR_URL"),"sqlString") = "noavatar.gif" then
Response.Write "<input src=""" & strImageUrl & "button_logout.gif"" type=""image"" border=""0"" value=""Logout"" id=""submit1"" name=""Logout"" tabindex=""-1"">"
else
Response.Write "<input type=""submit"" value=""Logout"" id=""submit1"" name=""submit1"" tabindex=""-1"">"
end if
rs.close
set rs=nothing
end if
Hollowman.

cripto9t
Average Member

USA
881 Posts
Posted - 06 February 2004 :  08:09:55  Show Profile
Try this. I haven't tested it so be sure to make a back-up first .

if strAuthType = "db" then %>
<% =fLangN(strLangInc_Header00200, "<b>" & profileLink(ChkString(strDBNTUserName, "display"),MemberID) & "</b>") %>
<% Response.Write "</font></td>" & vbNewLine & _
" <td>  "
strSqL = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL"
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " Where " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" 

set rs = my_Conn.Execute (strSql)
if strGfxButtons = "1" and chkString(rs("M_AVATAR_URL"),"sqlString") <> "noavatar.gif" then
    Response.Write "<input src=""" & chkString(rs("M_AVATAR_URL"),"display") & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ type=""image"" border=""0"" value=""Logout"" id=""submit1"" name=""Logout"" tabindex=""-1""><br />" & vbNewLine & _
                   "<font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strFooterFontSize & """>log-out</font><br />" 
elseif strGfxButtons = "1" and chkString(rs("M_AVATAR_URL"),"sqlString") = "noavatar.gif" then   
    Response.Write "<input src=" & strImageUrl & "Lang" & strLangLCID & "button_logout.gif type=""image"" border=""0"" value=""Logout"" id=""submit1"" name=""Logout"" tabindex=""-1"">"
else
    Response.Write "<input class=bouton type=""submit"" value=""" & fLang(strLangInc_Header00210) & """ id=""submit1"" name=""submit1"" tabindex=""-1"">"
end if 
end if
    _-/Cripto9t\-_
Go to Top of Page

hollowman
Starting Member

Denmark
38 Posts
Posted - 09 February 2004 :  02:33:19  Show Profile  Visit hollowman's Homepage
Works very nice ty
Hollowman.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.41 seconds. Powered By: Snitz Forums 2000 Version 3.4.07