<%

' Replace in String AStr, all occurrences of AReplace with AWith
Function ReplaceStr(AStr, AReplace, AWith)
  Dim p
  ReplaceStr = ""
  Do While AStr <> ""
    p = InStr(AStr, AReplace)
    if p > 0 then
      ReplaceStr = ReplaceStr + Mid(AStr, 1, p - 1) + AWith
      AStr = Mid(AStr, p + Len(AReplace), Len(AStr))
    else
      ReplaceStr = ReplaceStr + AStr
      AStr = ""
    end if
  Loop
End Function

%>