% dim dsn dim objConn dim loginRec dim i dim command dim lastId if session("access") <> "9" then response.redirect("http://www.machinedevice.com") end if %>
|
|||||||
|
<% dsn="DBQ=" & Server.Mappath("md.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open dsn Set billboardRec = Server.CreateObject("ADODB.Recordset") billboardRec.Open "select * from billboard order by id", objConn, 1, 2 while not billboardRec.EOF %>
|
|||||||
| |||||||