How to add quotes to a text input box

This is what you are trying to do.

This is quite easy. All that is required is to replace the " character with ". An example of this in ASP is below

Function ReplaceQuote(s)
  Dim c, r, i
  r = ""

  for i = 1 to Len(s)
    c = Mid(s, i, 1)
    if c = Chr(34) then c = """
    r = r & c
  next
  ReplaceQuote = r
End Function

dim s
s = "This "" is a test"
Response.Write s & "<br />" & vbcrlf

<input type="text" name="t" size="25" value="<%= ReplaceQuote(s) %>">

Another option is to use the Replace function within ASP -- Replace(s, """", """) -- to get the same result.