<% 
dim db,conn,connstr
db="#DataBase.mdb"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("/DataBase/"&db&"")
conn.Open connstr

Function HtmlEncode(Content) 
  Content = Replace(Content, ">", "&gt;") 
  Content = Replace(Content, "<", "&lt;")
  Content = Replace(Content, " ", "&nbsp;")
  Content = Replace(Content, "'", "")
  Content = Replace(Content, CHR(10),"<BR>") 
  HtmlEncode = content 
End Function
%>