Snitz Forums 2000 - Online Status

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Online Status

New Topic

Topic Locked

Printer Friendly

Author

Topic

UnderRated
Starting Member

Portugal
39 Posts

Posted - 14 April 2005 : 14:15:52

I would like to change my Online Status from looking like this

to look like this

and this is my code now

If rsOnlineMember.EOF Or rsOnlineMember.BOF Then
Response.Write " " & vbNewLine &_
" " & fLang(strLangTopic00890) & "" & vbNewLine &_
" " & vbNewLine &_
" " & vbNewLine &_
" " & fLang(strLangTopic00900) & "" & vbNewLine &_
" "
else
Response.Write " " & vbNewLine &_
" " & fLang(strLangTopic00890) & "" & vbNewLine &_
" " & vbNewLine &_
" " & vbNewLine &_
" " & fLang(strLangTopic00910) & "" & vbNewLine &_
" "
end if

basically i want to add the gif file of the little man and change the font color. what changes do i have to make to the code?

Edited by - UnderRated on 14 April 2005 14:17:48

masterao
Senior Member

Sweden
1678 Posts

Posted - 14 April 2005 : 14:59:43

Something like this should work:

quote:

Change this

Response.Write " " & vbNewLine &_
" " & fLang(strLangTopic00890) & "" & vbNewLine &_
" " & vbNewLine &_
" " & vbNewLine &_
" " & fLang(strLangTopic00900) & "" & vbNewLine &_
" "

to

Response.Write " <img src=""[image dir]/icon_offline.gif"" border=""0"">"

and

Response.Write " " & vbNewLine &_
" " & fLang(strLangTopic00890) & "" & vbNewLine &_
" " & vbNewLine &_
" " & vbNewLine &_
" " & fLang(strLangTopic00910) & "" & vbNewLine &_
" "

to

Response.Write " <img src=""[image dir]/icon_online.gif"" border=""0"">"

That should do it, if you have the images named icon_offline.gif and icon_online.gif.

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

UnderRated
Starting Member

Portugal
39 Posts

Posted - 14 April 2005 : 15:09:53

it gives me this error

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/forum/topic.asp, line 1001

Response.Write " <img src=""[image dir]/icon_offline.gif"" border=""0"">"

Edited by - UnderRated on 14 April 2005 15:12:27

UnderRated
Starting Member

Portugal
39 Posts

Posted - 14 April 2005 : 15:11:23

i already managed to change the font color
here's what i want to do

If rsOnlineMember.EOF Or rsOnlineMember.BOF Then
Response.Write " " & vbNewLine &_
" " & fLang(strLangTopic00890) & "" & vbNewLine &_
" " & vbNewLine &_
[insert image here]
" " & vbNewLine &_
" " & fLang(strLangTopic00900) & "" & vbNewLine &_
" "
else
Response.Write " " & vbNewLine &_
" " & fLang(strLangTopic00890) & "" & vbNewLine &_
" " & vbNewLine &_
[insert image here]
" " & vbNewLine &_
" " & fLang(strLangTopic00910) & "" & vbNewLine &_
" "
end if

also the very first reply in the topic does not show the changes

Edited by - UnderRated on 14 April 2005 15:14:52

masterao
Senior Member

Sweden
1678 Posts

Posted - 14 April 2005 : 16:45:51

The red-marked text in my first reply shouldn't be part of the url. If you have your forum-images in a separate directy, exchange [image dir] with that name. For example, if you have the images in a dir called images and the icon is named icon_online.gif (for example), it should look like this:

<img src=""images/icon_online.gif"" border=""0"">

I noticed now that all you wanted to do was to add the small icon between status and the user's online status (I missed that, sorry). With that in mind, it should look like this instead for what I wrote earlier:

quote:

If rsOnlineMember.EOF Or rsOnlineMember.BOF Then
Response.Write " " & vbNewLine &_
" " & fLang(strLangTopic00890) & "" & vbNewLine &_
" " & vbNewLine &_
" <img src=""(image dir/image_user_offline.gif)"" border=""0"">" & vbNewLine &_
" " & vbNewLine &_
" " & fLang(strLangTopic00900) & "" & vbNewLine &_
" "
else
Response.Write " " & vbNewLine &_
" " & fLang(strLangTopic00890) & "" & vbNewLine &_
" " & vbNewLine &_
" <img src=""(image dir/image_user_online.gif)"" border=""0"">" & vbNewLine &_
" " & vbNewLine &_
" " & fLang(strLangTopic00910) & "" & vbNewLine &_
" "
end if

You must edit the part marked red, exchanging all of the redmarked text with the image name for offline and online (including the dir if you have your forum-images in a directory).

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

UnderRated
Starting Member

Portugal
39 Posts

Posted - 14 April 2005 : 17:03:42

Thanks you, it works but the first post on the topic doesn't show it, why?

masterao
Senior Member

Sweden
1678 Posts

Posted - 14 April 2005 : 17:36:20

That is because you need to add the same changes for the sub GetFirst() in topic.asp as well.

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

UnderRated
Starting Member

Portugal
39 Posts