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
dim token
workrecord=replace(itemname,"<br />",CR)
pos=1
morefields = True
Do While morefields = True
pos=1
pos = InStr(pos, workrecord, "<")
If pos > 0 Then
endpos = InStr(pos, workrecord, ">")
If endpos=0 then
morefields=false
else
length = endpos - pos + 1
token = Mid(workrecord, pos, length)
workrecord=replace(workrecord,token,"")
end if
else
morefields=false
end if
loop
workrecord = replace(workrecord, """", "'")
Removehtmlheaders=workrecord
end function
Steve
Sex toys from a UK sex shop including vibrators and dildos.
All Forums
Removehtmlheaders Problem
New Topic
Reply to Topic
Printer Friendly
Topic 
Posted - December 04 2009 : 06:57:22
TrustGuard - PCI Security Scanner
