MOD:Randomize smileys for each post

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   mod for random smileys for each message...

owerrite message_form_inc.asp 

http://www.hemenpaylas.com/download/549063/message_form_inc.zip.html

if you want to change code manually here is the code:

delete this :
'If there is a remainder add 1 to the number of loops
 If UBound(saryEmoticons) MOD 2 > 0 Then intNumberOfOuterLoops = intNumberOfOuterLoops + 1

 'Loop throgh th list of emoticons
 For intLoop = 1 to intNumberOfOuterLoops

         Response.Write("<tr>")

  'Loop throgh th list of emoticons
  For intInnerLoop = 1 to 3

   'If there is nothing to display show an empty box
   If intIndexPosition > UBound(saryEmoticons) Then
    Response.Write(vbCrLf & "    <td>&nbsp;</td>")

   'Else show the emoticon
   Else
    If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then
     Response.Write(vbCrLf & "    <td><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0"" title=""" & saryEmoticons(intIndexPosition,1) & """ align=""absmiddle"" OnClick=""AddEmoticon(this)"" id=""" & saryEmoticons(intIndexPosition,3) & """ style=""cursor: pointer;""></td>")
    Else
     Response.Write(vbCrLf & "    <td><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0"" title=""" & saryEmoticons(intIndexPosition,1) & """ align=""absmiddle"" OnClick=""AddEmoticon('" & saryEmoticons(intIndexPosition,2) & "')"" id=""" & saryEmoticons(intIndexPosition,3) & """ style=""cursor: pointer;""></td>")
                 End If
                End If

               'Minus one form the index position
               intIndexPosition = intIndexPosition + 1
  Next

  Response.Write("</tr>")

 Next

copy and paste this:

'If there is a remainder add 1 to the number of loops
 If UBound(saryEmoticons) MOD 2 > 0 Then intNumberOfOuterLoops = intNumberOfOuterLoops + 1
               intIndexPosition=int(rnd*50)       
 'Loop throgh th list of emoticons
 For intLoop = 1 to intNumberOfOuterLoops
          If intIndexPosition > UBound(saryEmoticons) or intIndexPosition = 0 Then intIndexPosition=1

         Response.Write("<tr>")

  'Loop throgh th list of emoticons
  For intInnerLoop = 1 to 3
    If RTEenabled() <> "false" AND blnRTEEditor AND blnWYSIWYGEditor Then
     Response.Write(vbCrLf & "    <td><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0""  title=""" & saryEmoticons(intIndexPosition,1) & """ align=""absmiddle"" OnClick=""AddEmoticon(this)"" id=""" & saryEmoticons(intIndexPosition,3) & """ style=""cursor: pointer;""></td>")
    Else
     Response.Write(vbCrLf & "    <td><img src=""" & saryEmoticons(intIndexPosition,3) & """ border=""0"" title=""" & saryEmoticons(intIndexPosition,1) & """ align=""absmiddle"" OnClick=""AddEmoticon('" & saryEmoticons(intIndexPosition,2) & "')"" id=""" & saryEmoticons(intIndexPosition,3) & """ style=""cursor: pointer;""></td>")
             End If

      intIndexPosition = intIndexPosition + 1

  Next

  Response.Write("</tr>")

 Next