<%
function spChars(myValue,in_out)
spChars = replace(myValue,"|","'")
end function
function getNewsList()
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("database/hounddog.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
set oRS = myConn.execute("select * from news order by stamp desc")
s = s & "
