<%
OpenAll("root")
sqlCheck = "SELECT * FROM info where pagename = 'A'"
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,"
","
")
datatin =replace(datatin,"","")
datatin =replace(datatin,"###","")
for i = 1 to 20
datatin =replace(datatin,"size="&i&"","size='"&i&"'")
next
clean = datatin
end function
%>
