<%
dim conn
set conn=server.createobject("adodb.connection")
dim constr,db
db=Server.MapPath("data\VODDt.mdb")
constr="provider=microsoft.jet.oledb.4.0;data source="
conn.open constr & db
dim skins
skins="skin1"
%>