% //www.hcstudios.com set conn=server.createobject("ADODB.connection") conn.ConnectionTimeout = 15 conn.CommandTimeout = 30 conn.Open "DBQ=" & Server.MapPath("/restricted/db/napmsvcalendar.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password" sqlstr = "select * from CalendarMaster" sqlstr = sqlstr & " where Date >= (now-1)" sqlstr = sqlstr & " order by Date,Affiliate" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open sqlstr, conn, 3, 3 %>
|
|
ISM Regional Events
|
|||||||||||||||||||||||||||||||||