<%
dim sql
dim rs
dim strAllowHTML
dim strAllowflash
dim ads1
dim ads2

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")

sql="select * from config"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
strAllowHTML=rs("strAllowHTML")
strAllowflash=rs("strAllowflash")
ads1=rs("ads1")
ads2=rs("ads2")
rs.close
%>