set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath(mdbpath)
set rs12=Server.CreateObject("ADODB.RecordSet")
sql="select * from admin"
rs12.open sql,conn,1,1
sitetitle=rs12("sitetitle")
siteurl=rs12("siteurl")
sitelogo=rs12("sitelogo")
siteads=rs12("siteads")
sitemeta=rs12("sitemeta")
sitekey=rs12("sitekey")
sitefoot=rs12("sitefoot")
ad1=rs12("ad1")
ad2=rs12("ad2")
ad3=rs12("ad3")
ad4=rs12("ad4")
rs12.close
set rs12=nothing
%>