I am trying to change the Removehtmlheaders function as at the moment it removes the html coding which is great, but we want it to insert a space where the html code is.
Any ideas anyone:
Function Removehtmlheaders(itemname, CR)
dim workrecord, firstchar, morefields, pos, endpos, length
morefields = True
Do While morefields = True
pos = InStr(pos, workrecord, "<")
If pos > 0 Then
endpos = InStr(pos, workrecord, ">")
If endpos=0 then
length = endpos - pos + 1
token = Mid(workrecord, pos, length)
workrecord = replace(workrecord, """", "'")
Sex toys from a UK sex shop including vibrators and dildos.