Problem quoting/editing emoticons (smileys)

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

   Hi

can anyone tell me EXACTLY what page I need to go and modify this code below to fix the problem

Thank you in advance for your time

B5

 edesigner wrote:

 This is the code corrected, you had forgoten to Disable "Forum Codes"  -boRg- , and the last lines destroyed.

'Loop through the message till all or any IMAGE links are converted back into codes   
 Do
While InStr(1, strMessage, "<img ", 1) >
0                 

 'Find the start position in the image tag      
  lngStartPos = InStr(1, strMessage, "<img ", 1)            

  'Find the position in the message for the image closing tag       
 lngEndPos
= InStr(lngStartPos, strMessage, "/>", 1) +
3              

 'Make sure the end position is not in error      

If lngEndPos - lngStartPos =< 10 Then lngEndPos = lngStartPos +
10                

  'Read in the code to be converted back into the forum codes        
strMessageLink
= Trim(Mid(strMessage, lngStartPos, (lngEndPos -
lngStartPos)))           

  'Place the image tag into the tempoary message variable        
strTempMessage = strMessageLink               
 'Format the HTML image tag back into forum codes       
strTempMessage = Replace(strTempMessage, "src=""", "", 1, -1, 1)
strTempMessage = Replace(strTempMessage, "<img ", "strTempMessage = Replace(strTempMessage, """ />", "">", 1, -1, 1)

  'Place the new fromatted codes into the message string body       
 strMessage
= Replace(strMessage, strMessageLink, strTempMessage, 1, -1,
1)           
 Loop

Chris