<%
OpenAll("root")
sqlCheck = "SELECT * FROM info where pagename = 'B'"
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)
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
%>
<%
sqlCheck = "SELECT * FROM Articles where Winner = 'Y' order by ID ASC"
Set oRS = Conn.Execute (sqlCheck, , 1)
if oRS.EOF Then
else
oRS.MoveFirst
latestID = oRS("ID")
Do While Not oRS.EOF
sqlCheck = "SELECT * FROM users where ID = "&oRS("userID") &""
Set oRS2 = Conn.Execute (sqlCheck, , 1)
UserName = oRS2("username")
oRS2.Close
Set oRS2 = Nothing
'HTML = HTML & "Contributed by : " & UserName &"
"
HTML = HTML & oRS("TextData") &"
"
oRS.MoveNext
Loop
end if
response.write(HTML)
oRS.Close
Set oRS = Nothing
CloseAll()
%>
To continue the script ....click here
|
