I'm pretty sure we've all heard of NIH ("Not Invented Here") before. But I'll be willing to bet that you haven't heard of IHBLRIA ("Invented Here, But Let's Reinvent It Anyway"). And it you have, that's quite impressive; I just made it up right now.
<% Function padQuotes( instring ) REM This function pads an extra single quote in strings containing quotes for REM proper SQL searching. Dim bodybuild Dim bodystring Dim Length Dim i bodybuild = "" bodystring = instring Length = Len(bodystring) For i = 1 to length bodybuild = bodybuild & Mid(bodystring, i, 1) If Mid(bodystring, i, 1) = Chr(39) Then bodybuild = bodybuild & Mid(bodystring, i, 1) End If Next bodystring = bodybuild padQuotes = bodystring End Function %>