<% OpenAll("root") sqlCheck = "SELECT * FROM info where pagename = 'C'" Set oRS = Conn.Execute (sqlCheck, , 1) 'response.write oRS("description") if isnull(oRS("data")) then paragraph = "" else descrip = oRS("Description") paragraph = Replace(Trim(oRS("data")), chr(13), "") paragraph = Replace(paragraph, chr(10), "") paragraph = Replace(paragraph, "'", "'") end if oRS.Close Set oRS = Nothing response.write clean(paragraph) CloseAll() function clean(datatin) datatin = datatin & "###" 'for null values datatin =replace(datatin,"&","and") datatin =replace(datatin,"’","'") datatin =replace(datatin,"“","'") datatin =replace(datatin,"”","'") datatin =replace(datatin,"","") datatin =replace(datatin,"","") datatin =replace(datatin,"–","-") datatin =replace(datatin,"'","'") datatin =replace(datatin,"

","") datatin =replace(datatin,"

","") datatin =replace(datatin,"###","") for i = 1 to 20 datatin =replace(datatin,"size="&i&"","size='"&i&"'") next clean = datatin end function %>