Rimpiazzo tag

[Gio&Ste]

Per inserire attraverso un form dei tag faccio in questo modo che poi associo ad un link

	if ((code != "") && (code == "EMAIL")) {
		insertText = prompt("Inserite il titolo della E-mail", "");
			
			if ((insertText != null) && (insertText != "")){
				insertCode = prompt("Inserire l'indirizzo E-mail che desiderate aggiungere", "");
					
					if ((insertCode != null) && (insertCode != "")){					
					document.topicform.Articolo.value += "[" + code + "=" + insertCode + "]" + insertText + "[/" + code + "]";
				}
			}
	}
	if ((code != "") && (code == "ABBREV")) {
		insertText = prompt("Inserite la parola abbreviata", "");
			
			if ((insertText != null) && (insertText != "")){
				insertCode = prompt("Inserire la parola completa", "");
					
					if ((insertCode != null) && (insertCode != "")){					
					document.topicform.Articolo.value += "[" + code + "=" + insertCode + "]" + insertText + "[/" + code + "]";
				}
			}
	}

 [img]im/editor_image.gif[/img] [img]im/editor_abbreviation.gif[/img]

e poi per inserire nel db il codice con i tag giusti faccio ancora così:

Do While NOT InStr(1, strMessage, "[EMAIL=", 1) = 0 AND NOT InStr(1, strMessage, "[/EMAIL]", 1) = 0
					    	
	lngLinkStartPos = InStr(1, strMessage, "[EMAIL=", 1)
	lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/EMAIL]", 1) + 8
	strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))	
	strTempMessageLink = strMessageLink
	
	strTempMessageLink = Replace(strTempMessageLink, "[EMAIL=", "<a href=""mailto:", 1, -1, 1)
	strTempMessageLink = Replace(strTempMessageLink, "[/EMAIL]", "</a>", 1, -1, 1)
	strTempMessageLink = Replace(strTempMessageLink, "]", """>", 1, -1, 1)
	
	strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)		
Loop

Do While NOT InStr(1, strMessage, "[ABBREV=", 1) = 0 AND NOT InStr(1, strMessage, "[/ABBREV]", 1) = 0
					    	
	lngLinkStartPos = InStr(1, strMessage, "[ABBREV=", 1)
	lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/ABBREV]", 1) + 8
	strMessageLink = Trim(Mid(strMessage, lngLinkStartPos, (lngLinkEndPos - lngLinkStartPos)))	
	strTempMessageLink = strMessageLink
	
	strTempMessageLink = Replace(strTempMessageLink, "[ABBREV=", "<abbr title=""" , 1, -1, 1)
	strTempMessageLink = Replace(strTempMessageLink, "[/ABBREV]", "</abbr>", 1, -1, 1)
	strTempMessageLink = Replace(strTempMessageLink, "]", """>", 1, -1, 1)
	
	strMessage = Replace(strMessage, strMessageLink, strTempMessageLink, 1, -1, 1)		
Loop

 strMessage= strMessage

mentre per l'email non ho nessun problema con il tag abbreviazioni mi succede un pò di casino. Praticamente mi salva <abbr title""> [/ABBREV]
Non riesco a trovare l'errore voi lo vedete???

[Gio&Ste]

lngLinkStartPos = InStr(1, strMessage, "[ABBREV=", 1)
lngLinkEndPos = InStr(lngLinkStartPos, strMessage, "[/ABBREV]", 1) + 10