Indsæt gåseøjne omkring atributværdier

Mit problem er at når jeg bruger en DHTML editor, sletter den  gåseøjne omkring værdien der tilhører en attribut.
Se nedenstående eksempel hvor første del er når det er gemt i databasen, og anden del sådan som det skal se ud:

1)<table id=table1 borderColor=#cac8ca cellPadding=2 width=400 align=center border=1>


2)<table id="table1" borderColor="#cac8ca" cellPadding="2" width="400 align="center" border="1">

I det næste kodeeksempel kan du se at jeg godt kan få sat gåseøjne efter lighedstegnet, men hvordan får jeg den til også at sætte gåseøjne efter ordet(værdien)


Function decodeHTML(ByVal str)
    If IsNull(str) Then
    decodeHTML = ""
  Exit Function
End If

str = Replace(str, "=", "=""")
decodeHTML = str
End Function