<%
dim con
dim rs
dim sql
dim rs1
dim sql1
set con=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rs1=Server.CreateObject("ADODB.Recordset")
con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("market.mdb")
sql="select * from mtoday;"
sql1="select * from news;"
rs.open sql, con
rs1.open sql1, con
dim change
dim div
dim diff
dim valu
dim i
%>
<% dim todate
todate=now()
response.Write FormatDateTime(todate,1)%>
