Originally posted by radiodelicateSilly question, but do the smilies work everywhere else? I ask only because (without the code in front of me) I would think that if forum code was working, the smilies would be too... I'll have to go and double-check, but it never hurts to start with the obvious questions.
3. Allow smilies in profile bios? Is there some way I can make it so my users will be able to use the smiley codes in their profiles, and make the smilies display properly? I mean, forum code works, why not smilies?
Originally posted by radiodelicateSmilies do work in the profile. You just need to enter the smilie code inside of the brackets to get it to display.<
3. Allow smilies in profile bios? Is there some way I can make it so my users will be able to use the smiley codes in their profiles, and make the smilies display properly? I mean, forum code works, why not smilies?
Originally posted by radiodelicateSmilies do work in the profile. You just need to enter the smilie code inside of the brackets to get it to display. haha weeeird. I've tried that, but it didn't work. I'll have to try again :P
3. Allow smilies in profile bios? Is there some way I can make it so my users will be able to use the smiley codes in their profiles, and make the smilies display properly? I mean, forum code works, why not smilies?
Originally posted by AnonJr There is some code floating around here that will let you use the profile image as the avatar. As for anything else, you would either have to write it yourself or sweet talk someone into developing something like that. If you decide to sweet talk someone into developing another Avatar MOD, I'd post the request in a new topic and be as descriptive as you can.Ok, I'll have a look at that MOD then, because that sounds like the best solution to me as well
All things being equal, it sounds like using the profile image for an avatar will be the easiest solution.
if strAllowForumCode = "1" then
fString = ReplaceURLs(fString)
fString = ReplaceCodeTags(fString)
if strIMGInPosts = "1" then
fString = ReplaceImageTags(fString)
end if
end if
if strIMGInPosts = "1" and Forum_ID = <number_of_forum> thenif strIMGInPosts = "1" and (Forum_ID = <number_of_forum> or Forum_ID = <number_of_forum2> or Forum_ID = <number_of_forum3> ...) thenOriginally posted by phy1729cheers, I'll give it a go. I'll have to allow images first, yeah?<
The quick and dirty way to do 1 isn't too hard if you're ok with modding the files. In inc_func_common.asp around line 128 (in green)Code:Change that to beif strAllowForumCode = "1" then
fString = ReplaceURLs(fString)
fString = ReplaceCodeTags(fString)
if strIMGInPosts = "1" then fString = ReplaceImageTags(fString)
end if
end ifCode:Change <number_of_forum> to whatever forum you need. This has not been tested. If you need to allow for many forums just change it toif strIMGInPosts = "1" and Forum_ID = <number_of_forum> thenCode:if strIMGInPosts = "1" and (Forum_ID = <number_of_forum> or Forum_ID = <number_of_forum2> or Forum_ID = <number_of_forum3> ...) then
Originally posted by texanmanI'm not sure if I understand exactly what you mean. If you are referring to my first question, I've already got it fixed. Thanks anyway
I think Shaggy had a tweak that allows image in the topic (not replies). I adopted it and it is great. Let me see if I can find it.
Originally posted by radiodelicate
it's all pages. I will check if things get better when I remove the changes as soon as I get home from work, don't have access to my files from here. I really hope it's the image tweak that slows things down, because other wise I'm clueless, and more or less up shit-creek without a paddle...
uhm, never mind. I checked the rest of the site, outside of the forum, and it's well slow as well. I suppose it's the server that has decided to run a bit extra slow for some reason :/
edit: the speed is back to normal again, so it certainly didn't have anything to do with the mod.
Step 1:
130 Member_Country = rsTopic("M_COUNTRY")
Insert: Member_PhotoURL = rsTopic("M_PHOTO_URL")
131 Topic_Date = rsTopic("T_DATE")
----------------------------------------
Step 2:
290 strSql = strSql & ", R.R_LAST_EDITBY, R.R_SIG, R.R_STATUS, R.R_DATE"
Modified: strSql = strSql & ", R.R_LAST_EDITBY, R.R_SIG, R.R_STATUS, R.R_DATE, M.M_PHOTO_URL"
----------------------------------------
Step 3:
510 rR_DATE = 21
511 if CanShowSignature = 1 then
512 rM_SIG = 22
513 end if
510 rR_DATE = 21
Insert: rM_PHOTO_URL = 22
511 if CanShowSignature = 1 then
Modified 513: rM_SIG = 23
512 end if
----------------------------------------
Step 4:
538 Reply_Date = arrReplyData(rR_DATE, iForum)
539 if CanShowSignature = 1 then
540 Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum))
541 end if
538 Reply_Date = arrReplyData(rR_DATE, iForum)
Insert: Reply_PhotoURL = arrReplyData(rM_PHOTO_URL, iForum)
539 if CanShowSignature = 1 then
540 Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum))
541 end if
----------------------------------------
Step 5:
560 Response.Write " </p>" & vbNewLine & _
561 " <p>" & vbNewLine
562 if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
560 Response.Write " </p>" & vbNewLine & _
Insert: Response.write GetMemberPhoto(Reply_PhotoURL)
561 " <p>" & vbNewLine
562 if strCountry = "1" and trim(Reply_MemberCountry) <> "" then
----------------------------------------
Step 6:
767 Response.Write " </p>" & vbNewLine & _
768 " <p>" & vbNewLine
769 if strCountry = "1" and trim(Member_Country) <> "" then
767 Response.Write " </p>" & vbNewLine & _
Insert: Response.write GetMemberPhoto(Member_PhotoURL)
768 " <p>" & vbNewLine
769 if strCountry = "1" and trim(Member_Country) <> "" then
----------------------------------------
Step 7:
Last step, I added this function to the end of the file.
If the photo url does not have a .gif, .jpg, or .png extention
nothing is displayed. It's a simple function you can change it
easily.
'***************************************************************************
'*** 20090131 Modified by James Possible added GetMemberPhoto() function ***
'*** Displays the member's profile picture with posts only if the ***
'*** Photo URL contains any one of the following image extensions ***
'*** .gif or .jpg or .png ***
'***************************************************************************
Function GetMemberPhoto(ImageURL)
Const VALID_PICTURE_EXTENSIONS = " .gif .jpg .png "
Dim sReturn
sReturn = ""
If Len(ImageURL) > 4 Then
If Instr(1, VALID_PICTURE_EXTENSIONS, Right(ImageURL, 4), 1) > 0 Then
sReturn = "<p>" & vbNewLine & _
"<img src=" & """" & ImageURL & """" & vbNewLine & _
" width=" & """" & "150" & """" & vbNewLine & _
" height=" & """" & "150" & """" & vbNewLine & _
" border=" & """" & "0" & """" & "/>" & vbNewLine & _
"</p>" & vbNewLine
End If
End If
GetMemberPhoto = sReturn
End Function