<% on error resume next
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("database/data.mdb"))
Sql="Select * from banner"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
RS.Movefirst
Do While Not RS.EOF
%>
