<%
dbfile=Server.MapPath("/mywwl/mdb/fileout.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open"driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT COUNT(*) AS ucc FROM usedata GROUP BY filename HAVING filename='wwldns.zip'"
rs.Open sql, OBJdbConnection, 3, 3
if Not rs.EOF then
wwldns=rs.fields("ucc")
else
wwldns=0
end if
set rs = Nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT COUNT(*) AS ucc FROM usedata GROUP BY filename HAVING filename='cwcp.zip'"
rs.Open sql, OBJdbConnection, 3, 3
if Not rs.EOF then
cwcp=rs.fields("ucc")
else
cwcp=0
end if
set rs = Nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "SELECT COUNT(*) AS ucc FROM usedata GROUP BY filename HAVING filename='cyc.zip'"
rs.Open sql, OBJdbConnection, 3, 3
if Not rs.EOF then
cyc=rs.fields("ucc")
else
cyc=0
end if
set rs = Nothing
%>