<% 
dim connstr
dim conn
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("yousiteadmin/mydb.mdb")&";Persist Security Info=False;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql2="select top 1 * from webset order by id desc"
set rs2=conn.execute(sql2)		
do while not rs2.eof
webname=rs2("webname")
icp=rs2("icp")
tongji=rs2("tongji")
rs2.movenext:loop:set rs2=nothing

sql2="select top 1 * from webseo order by id desc"
set rs2=conn.execute(sql2)		
do while not rs2.eof
seotitle=rs2("seotitle")
seokeys=rs2("seokeys")
seoms=rs2("seoms")
rs2.movenext:loop:set rs2=nothing
%>  






