<%@Language = "VBScript"%> <% Dim theString theString = "Descretion is the better part of ""valor""." response.Write(theString & "
") While Instr(theString, """") > 0 theString = Left(theString, InStr(theString, """") - 1) & "##" & Mid(theString, inStr(theString, """") + 1) Wend response.Write(theString) %>