<%
'## this script needs to be called along with the zFilter_key.asp file ##
Function zFilter_Reverse(StringToFilter) 'string
'# returns the string to the UBB-style codes
'- returns URL tags -
zTmpString = StringToFilter
zTmpString = Replace(zTmpString,"",""]")
zTmpString = Replace(zTmpString,"","[/url]")
'- returns formatting tags -
zTmpString = Replace(zTmpString,"","[b]")
zTmpString = Replace(zTmpString,"","[/b]")
zTmpString = Replace(zTmpString,"","[i]")
zTmpString = Replace(zTmpString,"","[/i]")
zTmpString = Replace(zTmpString,"","[u]")
zTmpString = Replace(zTmpString,"","[/u]")
For Each key in zFilter_Key
zTmpString = Replace(zTmpString,zFilter_Key.item(key),key)
Next
'- returns image tags -
zTmpString = Replace(zTmpString,"![](","[img]",1,-1,1)
zTmpString = Replace(zTmpString,")
","[/img]",1,-1,1)
zTmpString = Replace(zTmpString,"
",vbLf) 'new lines
zFilter_Reverse = zTmpString
End Function
%>